/[cmucl]/src/hemlock/echo.lisp
ViewVC logotype

Diff of /src/hemlock/echo.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by ram, Fri Feb 8 16:34:05 1991 UTC revision 1.4 by chiles, Wed Oct 23 11:00:02 1991 UTC
# Line 158  Line 158 
158    
159    
160  ;;; LOUD-MESSAGE -- Public.  ;;; LOUD-MESSAGE -- Public.
161  ;;;    Like message, only more provocative.  ;;;
162    ;;; Like message, only more provocative.
163  ;;;  ;;;
164  (defun loud-message (&rest args)  (defun loud-message (&rest args)
165    "This is the same as MESSAGE, but it beeps and clears the echo area before    "This is the same as MESSAGE, but it beeps and clears the echo area before
# Line 168  Line 169 
169    (apply #'message args))    (apply #'message args))
170    
171    
172    (defhvar "Raise Echo Area When Modified"
173      "When set, Hemlock raises the echo area window when output appears there."
174      :value nil)
175    ;;;
176    (defun raise-echo-area-when-modified (buffer modified)
177      (when (and (value ed::raise-echo-area-when-modified)
178                 (eq buffer *echo-area-buffer*)
179                 modified)
180        (let* ((hunk (window-hunk *echo-area-window*))
181               (win (window-group-xparent (bitmap-hunk-window-group hunk))))
182          (xlib:map-window win)
183          (setf (xlib:window-priority win) :above)
184          (xlib:display-force-output
185           (bitmap-device-display (device-hunk-device hunk))))))
186    ;;;
187    (add-hook buffer-modified-hook 'raise-echo-area-when-modified)
188    
189    
190    
191  ;;;; DISPLAY-PROMPT-NICELY and PARSE-FOR-SOMETHING.  ;;;; DISPLAY-PROMPT-NICELY and PARSE-FOR-SOMETHING.
192    
# Line 343  Line 362 
362     by the current buffer, and by any modes for the current buffer."     by the current buffer, and by any modes for the current buffer."
363    (do ((tables (list (buffer-variables *current-buffer*)    (do ((tables (list (buffer-variables *current-buffer*)
364                       *global-variable-names*)                       *global-variable-names*)
365                 (cons (hi::mode-object-variables (car mode)) tables))                 (cons (mode-object-variables (car mode)) tables))
366         (mode (buffer-mode-objects *current-buffer*) (cdr mode)))         (mode (buffer-mode-objects *current-buffer*) (cdr mode)))
367        ((null mode) tables)))        ((null mode) tables)))
368    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5