Changeset 6756

Timestamp:

Jun 18, 2007, 1:37:08 AM (17 years ago)

Author:

Gary Byers

Message:

Don't sleep in MESSAGE, CLEAR-ECHO-AREA. Still slow, sometimes.

File:

• branches/ide-1.0/ccl/hemlock/src/echo.lisp (modified) (4 diffs)

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

@@ -99 +99 @@
 
 (defhvar "Message Pause" "The number of seconds to pause after a Message."
-  :value 0.5s0)
+  :value 0.0s0)
 
 (defvar *last-message-time* 0
@@ -114 +114 @@
 (defun clear-echo-area ()
   "You guessed it."
-  (maybe-wait)
+  ;(maybe-wait)
   (let* ((b (current-buffer))
          (doc (buffer-document *echo-area-buffer*)))
@@ -137 +137 @@
   to give the luser a chance to see it.  String and Args are a format 
   control string and format arguments, respectively."
-  (maybe-wait)
+  ;(maybe-wait)
   (modifying-echo-buffer
    (cond ((eq *current-window* *echo-area-window*)
@@ -153 +153 @@
                    (insert-character mark #\newline)
                    (clear-echo-area)))
-            (apply #'format *echo-area-stream* string args)
+            (write-string (apply #'format nil string args)
+                          *echo-area-stream*)
             (setf (buffer-modified *echo-area-buffer*) t))))
    (force-output *echo-area-stream*)