Index: /branches/event-ide/ccl/cocoa-ide/hemlock/src/edit-defs.lisp
===================================================================
--- /branches/event-ide/ccl/cocoa-ide/hemlock/src/edit-defs.lisp	(revision 7882)
+++ /branches/event-ide/ccl/cocoa-ide/hemlock/src/edit-defs.lisp	(revision 7883)
@@ -87,5 +87,13 @@
                                              *package*))))
 
-
+(defun get-def-info-and-go-to-it (string package)
+  (multiple-value-bind (fun-name error)
+      (let* ((*package* package))
+        (ignore-errors (values (read-from-string string))))
+    (if error
+      (editor-error)
+      (edit-definition fun-name))))
+
+#|
 ;;; "Edit Command Definition" is a hack due to creeping evolution in
 ;;; GO-TO-DEFINITION.  We specify :function type and a name with "-COMMAND"
@@ -155,4 +163,5 @@
 	    (push-buffer-mark (copy-mark point))
 	    (move-mark point m))))))))
+|#
 
 (defparameter *source-file-indicator-defining-operators* ())