Changeset 7079

Timestamp:

08/23/07 17:10:24 (4 years ago)

Author:

gb

Message:

Don't call DOCUMENT-SET-POINT-POSITION in CLEAR-ECHO-AREA: editing changes
may still be pending on the echo area (how ?), and DOCUMENT-SET-POINT-POSITION
may need to do layout/display updates.
Use RECURSIVE-GET-KEY-EVENT when prompting in the echo area.

Files:

• trunk/ccl/cocoa-ide/hemlock/src/echo.lisp (modified) (5 diffs)

trunk/ccl/cocoa-ide/hemlock/src/echo.lisp

@@ -112 +112 @@
 (defun clear-echo-area ()
   "You guessed it."
-  ;(maybe-wait)
-  (let* ((b (current-buffer))
-         (doc (buffer-document *echo-area-buffer*)))
+  ;;(maybe-wait)
+  (let* ((b (current-buffer)))
     (unwind-protect
          (progn
@@ -121 +120 @@
             (delete-region *echo-area-region*))
            (setf (buffer-modified *echo-area-buffer*) nil))
-      (when doc
-        (document-set-point-position doc))
       (setf (current-buffer) b))))
 
@@ -489 +486 @@
                                             (if defaultp (if default "Y" "N"))))
           (loop
-            (let ((key-event (get-key-event *editor-input*)))
+            (let ((key-event (recursive-get-key-event *editor-input*)))
               (cond ((or (eq key-event #k"y")
                          (eq key-event #k"Y"))
@@ -522 +519 @@
             (setf (current-window) *echo-area-window*))
           (display-prompt-nicely prompt)
-          (get-key-event *editor-input* t))
+          (recursive-get-key-event *editor-input* t))
       (when change-window (setf (current-window) old-window)))))
 
@@ -544 +541 @@
                 (declare (vector key))
                 TOP
-                (setf key-event (get-key-event *editor-input*))
+                (setf key-event (recursive-get-key-event *editor-input*))
                 (cond ((logical-key-event-p key-event :quote)
-                       (setf key-event (get-key-event *editor-input* t)))
+                       (setf key-event (recursive-get-key-event *editor-input* t)))
                       ((logical-key-event-p key-event :confirm)
                        (cond ((and default (zerop (length key)))