Changeset 7883

Timestamp:

Dec 11, 2007, 5:09:49 AM (17 years ago)

Author:

gz

Message:

restore get-info-and-go-to-it

File:

• branches/event-ide/ccl/cocoa-ide/hemlock/src/edit-defs.lisp (modified) (2 diffs)

branches/event-ide/ccl/cocoa-ide/hemlock/src/edit-defs.lisp

@@ -87 +87 @@
                                              *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 +163 @@
             (push-buffer-mark (copy-mark point))
             (move-mark point m))))))))
+|#
 
 (defparameter *source-file-indicator-defining-operators* ())