Changeset 854

Timestamp:

Jul 31, 2004, 4:52:35 PM (20 years ago)

Author:

Gary Byers

Message:

package-name-change-hook

Location:

trunk/ccl/hemlock/src

Files:

• lispbuf.lisp (modified) (1 diff)
• lispmode.lisp (modified) (1 diff)

trunk/ccl/hemlock/src/lispbuf.lisp

@@ -44 +44 @@
        (t
         (message
-         "Ignoring \"package\" file option -- cannot convert to a string."))))))
+         "Ignoring \"package\" file option -- cannot convert to a string."))))
+    :hooks (list 'package-name-change-hook)))
 
 

trunk/ccl/hemlock/src/lispmode.lisp

@@ -1749 +1749 @@
       "The package used for evaluation of Lisp in this buffer."
       :buffer buffer
-      :value "CL-USER")))
+      :value "CL-USER"
+      :hooks (list 'package-name-change-hook))))