Changeset 6771 for branches

Timestamp:

Jun 20, 2007, 11:31:27 AM (17 years ago)

Author:

Gary Byers

Message:

I think that I like %command-loop's behavior, finally.

File:

• branches/ide-1.0/ccl/hemlock/src/interp.lisp (modified) (1 diff)

branches/ide-1.0/ccl/hemlock/src/interp.lisp

@@ -456 +456 @@
         (let* ((temporary-object-pool (allocate-temporary-object-pool)))
           (unwind-protect
-               (multiple-value-bind (key self-insert)
-                   (get-key-event *editor-input*)
-                 (progn
+               (progn
+                 (unless (eq *current-buffer* *echo-area-buffer*)
+                   (unless (or (zerop (length cmd))
+                               (not (value hemlock::key-echo-delay)))
+                     (editor-sleep (value hemlock::key-echo-delay))
+                     (unless (listen-editor-input *editor-input*)
+                       (clear-echo-area)
+                       (dotimes (i (length cmd))
+                         (hemlock-ext:print-pretty-key (aref cmd i) *echo-area-stream*)
+                         (write-char #\space *echo-area-stream*)))))
+                 (multiple-value-bind (key self-insert)
+                     (get-key-event *editor-input*)
                    (unless (eq *current-buffer* *echo-area-buffer*)
                      (when (buffer-modified *echo-area-buffer*)
-                       (clear-echo-area))
-                     (unless (or (zerop (length cmd))
-                                 (not (value hemlock::key-echo-delay)))
-                       (editor-sleep (value hemlock::key-echo-delay))
-                       (unless (listen-editor-input *editor-input*)
-                         (clear-echo-area)
-                         (dotimes (i (length cmd))
-                           (hemlock-ext:print-pretty-key (aref cmd i) *echo-area-stream*)
-                           (write-char #\space *echo-area-stream*)))))
+                       (clear-echo-area)))
                    (vector-push-extend key cmd)
                    (multiple-value-bind (trans-result prefix-p)