Changeset 7883


Ignore:
Timestamp:
Dec 11, 2007, 1:09:49 PM (13 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/event-ide/ccl/cocoa-ide/hemlock/src/edit-defs.lisp

    r7833 r7883  
    8787                                             *package*))))
    8888
    89 
     89(defun get-def-info-and-go-to-it (string package)
     90  (multiple-value-bind (fun-name error)
     91      (let* ((*package* package))
     92        (ignore-errors (values (read-from-string string))))
     93    (if error
     94      (editor-error)
     95      (edit-definition fun-name))))
     96
     97#|
    9098;;; "Edit Command Definition" is a hack due to creeping evolution in
    9199;;; GO-TO-DEFINITION.  We specify :function type and a name with "-COMMAND"
     
    155163            (push-buffer-mark (copy-mark point))
    156164            (move-mark point m))))))))
     165|#
    157166
    158167(defparameter *source-file-indicator-defining-operators* ())
Note: See TracChangeset for help on using the changeset viewer.