Index: /trunk/ccl/hemlock/src/listener.lisp
===================================================================
--- /trunk/ccl/hemlock/src/listener.lisp	(revision 696)
+++ /trunk/ccl/hemlock/src/listener.lisp	(revision 697)
@@ -24,4 +24,9 @@
 	  ,@body)))))
 
+
+(defun pakage-name-change-hook (name kind where new-value)
+  (declare (ignore name new-value))
+  (if (eq kind :buffer)
+    (hi::queue-buffer-change where)))
 
 (define-file-option "Package" (buffer value)
@@ -43,5 +48,5 @@
 	(message
 	 "Ignoring \"package\" file option -- cannot convert to a string."))))
-))
+    :hooks (list 'package-name-change-hook)))
 
 
@@ -187,16 +192,17 @@
         (let* ((string (region-to-string input-region)))
           (move-mark (value buffer-input-mark) (current-point))
-          (listener-document-send-string (hi::buffer-document (current-buffer)) string))))))
-
-(defvar *control-d-string* (make-string 1 :initial-element (code-char (logand (char-code #\d) #x1f))))
-
-(defcommand "EOF or Delete Forward" (p)
-  "Send an EOF if input-mark is at buffer's end, else delete forward character."
-  "Send an EOF if input-mark is at buffer's end, else delete forward character."
+          (hi::send-string-to-listener-process (hi::buffer-process (current-buffer))
+                                           string))))))
+
+(defvar *pop-string* ":POP" "what you have to type to exit a break loop")
+
+(defcommand "POP or Delete Forward" (p)
+  "Send :POP if input-mark is at buffer's end, else delete forward character."
+  "Send :POP if input-mark is at buffer's end, else delete forward character."
   (let* ((input-mark (value buffer-input-mark))
          (point (current-point)))
     (if (and (null (next-character point))
              (null (next-character input-mark)))
-      (listener-document-send-string (hi::buffer-document (current-buffer)) *control-d-string*)
+      (listener-document-send-string (hi::buffer-document (current-buffer)) *pop-string*)
       (delete-next-character-command p))))