Changeset 851

Timestamp:

Jul 31, 2004, 4:43:30 PM (20 years ago)

Author:

Gary Byers

Message:

modeline buffer-update zeal

File:

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

trunk/ccl/hemlock/src/modeline.lisp

@@ -240 +240 @@
   (add-hook hemlock::buffer-name-hook 'queue-buffer-change)
   (add-hook hemlock::buffer-pathname-hook 'queue-buffer-change)
-  (add-hook hemlock::buffer-modified-hook 'queue-buffer-change)
-  (add-hook hemlock::window-buffer-hook 'queue-window-change))
+  ;; (SETF (BUFFER-MODIFIED ...)) handles updating the modeline;
+  ;; it only wants to do so if the buffer's modified state changes.
+;  (add-hook hemlock::buffer-modified-hook 'queue-buffer-change)
+  (add-hook hemlock::window-buffer-hook 'queue-window-change)
+)
 
 (defun queue-buffer-change (buffer &optional something-else another-else)