[Openmcl-cvs-notifications] r12323 - /trunk/source/cocoa-ide/hemlock/src/modeline.lisp

[gb at clozure.com]

Author: gb
Date: Sun Jun 28 05:59:07 2009
New Revision: 12323

Log:
Modline's "buffer modified" indicator: check to see if the document's
modified.

Modified:
    trunk/source/cocoa-ide/hemlock/src/modeline.lisp

Modified: trunk/source/cocoa-ide/hemlock/src/modeline.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/hemlock/src/modeline.lisp (original)
+++ trunk/source/cocoa-ide/hemlock/src/modeline.lisp Sun Jun 28 05:59:07 20=
09
@@ -121,7 +121,7 @@
  :name :modifiedp
  :function #'(lambda (buffer)
 	       "Returns \"* \" if buffer is modified, or \"  \"."
-	       (let ((modifiedp (buffer-modified buffer)))
+	       (let ((modifiedp (buffer-document-modified buffer)))
 		 (if modifiedp
 		     "* "
 		     "  "))))