Changeset 669

Timestamp:

Mar 18, 2004, 4:46:02 PM (21 years ago)

Author:

Gary Byers

Message:

Bind current-buffer when clearing echo area.

File:

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

trunk/ccl/hemlock/src/echo.lisp

@@ -109 +109 @@
   "You guessed it."
   (maybe-wait)
-  (delete-region *echo-area-region*)
-  (setf (buffer-modified *echo-area-buffer*) nil))
+  (let* ((b (current-buffer)))
+    (unwind-protect
+         (progn
+           (setf (current-buffer) *echo-area-buffer*)
+           (delete-region *echo-area-region*)
+           (setf (buffer-modified *echo-area-buffer*) nil))
+      (setf (current-buffer) b))))
 
 ;;; Message  --  Public