Changeset 853

Timestamp:

Jul 31, 2004, 4:50:46 PM (20 years ago)

Author:

Gary Byers

Message:

handle modeline update in %SET-BUFFER-MODIFIED

File:

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

trunk/ccl/hemlock/src/buffer.lisp

@@ -41 +41 @@
 (defun %set-buffer-modified (buffer sense)
   "If true make the buffer modified, if NIL unmodified."
-  (unless (bufferp buffer) (error "~S is not a buffer." buffer))  
+  (unless (bufferp buffer) (error "~S is not a buffer." buffer))
+  (unless (eq (buffer-modified buffer) (not (null sense)))
+    (queue-buffer-change buffer))
   (invoke-hook hemlock::buffer-modified-hook buffer sense)
   (if sense