Changeset 863


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/hemlock/src/interp.lisp

    r802 r863  
    468468                       (command
    469469                        (let ((punt t))
    470                           (clear-echo-area)
     470                          (unless (eq *current-buffer* *echo-area-buffer*)
     471                            (clear-echo-area))
    471472                          (catch 'command-loop-catcher
    472473                            (dolist (c t-bindings)
Note: See TracChangeset for help on using the changeset viewer.