Changeset 697

Timestamp:

Mar 22, 2004, 9:35:33 AM (21 years ago)

Author:

Gary Byers

Message:

Hook for package change. Use selection stream.

File:

• trunk/ccl/hemlock/src/listener.lisp (modified) (3 diffs)

trunk/ccl/hemlock/src/listener.lisp

@@ -24 +24 @@
           ,@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 +48 @@
         (message
          "Ignoring \"package\" file option -- cannot convert to a string."))))
-))
+    :hooks (list 'package-name-change-hook)))
 
 
@@ -187 +192 @@
         (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))))