Changeset 8447

Timestamp:

Feb 9, 2008, 9:10:30 AM (17 years ago)

Author:

gz

Message:

use buffer-package fn

File:

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

branches/gz-working/cocoa-ide/hemlock/src/edit-defs.lisp

@@ -77 +77 @@
 (defcommand "Edit Definition" (p)
   "Prompts for function/macro's definition name and goes to it for editing."
-  "Prompts for function/macro's definition name and goes to it for editing."
   (declare (ignore p))
   (let ((fun-name (prompt-for-string
@@ -83 +82 @@
                    :help "Symbol name of function.")))
     (get-def-info-and-go-to-it fun-name (or
-                                             (find-package
-                                              (variable-value 'current-package :buffer (current-buffer)))
-                                             *package*))))
+                                         (buffer-package (current-buffer))
+                                         *package*))))
 
 (defun get-def-info-and-go-to-it (string package)