Changeset 12878
- Timestamp:
- Sep 22, 2009, 9:11:13 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/cocoa-ide/hemlock/src/edit-defs.lisp
r12651 r12878 93 93 (error (c) (editor-error (format nil "~a" c))))))) 94 94 95 96 #|97 ;;; "Edit Command Definition" is a hack due to creeping evolution in98 ;;; GO-TO-DEFINITION. We specify :function type and a name with "-COMMAND"99 ;;; instead of :command type and the real command name because this causes100 ;;; the right pattern to be created for searching. We could either specify101 ;;; that you always edit command definitions with this command (breaking102 ;;; "Go to Definition" for commands called as functions), fixing the code,103 ;;; or we can hack this command so everything works.104 ;;;105 95 (defcommand "Edit Command Definition" (p) 106 "Prompts for command definition name and goes to it for editing."107 96 "Prompts for command definition name and goes to it for editing." 108 97 (multiple-value-bind … … 116 105 (prompt-for-keyword :tables (list *command-names*) 117 106 :prompt "Command to edit: ")) 118 (go-to-definition (fun-defined-from-pathname (command-function command)) 119 :function 120 (concatenate 'simple-string name "-COMMAND")))) 121 107 (declare (ignore name)) 108 (handler-case (edit-definition (command-function command)) 109 (error (c) (editor-error (format nil "~a" c)))))) 110 111 #| 122 112 ;;; FUN-DEFINED-FROM-PATHNAME takes a symbol or function object. It 123 113 ;;; returns a pathname for the file the function was defined in. If it was
Note: See TracChangeset
for help on using the changeset viewer.