Changeset 863

Timestamp:

Aug 30, 2004, 9:29:19 PM (16 years ago)

Author:

gb

Message:

Don't be quite so eager to clear the echo area, especially when it's the
current buffer.

File:

• trunk/ccl/hemlock/src/interp.lisp (modified) (1 diff)

trunk/ccl/hemlock/src/interp.lisp

@@ -468 +468 @@
                        (command 
                         (let ((punt t))
-                          (clear-echo-area)
+                          (unless (eq *current-buffer* *echo-area-buffer*)
+                            (clear-echo-area))
                           (catch 'command-loop-catcher
                             (dolist (c t-bindings)