Changeset 802

Timestamp:

Apr 30, 2004, 7:30:51 PM (21 years ago)

Author:

Gary Byers

Message:

Clear echo area on entry to command.

File:

• trunk/ccl/hemlock/src/interp.lisp (modified) (2 diffs)

trunk/ccl/hemlock/src/interp.lisp

@@ -452 +452 @@
                (progn
                  (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)))
@@ -469 +468 @@
                        (command 
                         (let ((punt t))
+                          (clear-echo-area)
                           (catch 'command-loop-catcher
                             (dolist (c t-bindings)