[Emacs-diffs] emacs/lisp ChangeLog facemenu.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/10/31 20:16:55

Modified files:
        lisp           : ChangeLog facemenu.el 

Log message:
        * facemenu.el (list-colors-display): Don't mark buffer as
        modified (Bug#3948).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16537&r2=1.16538
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/facemenu.el?cvsroot=emacs&r1=1.109&r2=1.110

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16537
retrieving revision 1.16538
diff -u -b -r1.16537 -r1.16538
--- ChangeLog   31 Oct 2009 19:30:47 -0000      1.16537
+++ ChangeLog   31 Oct 2009 20:16:50 -0000      1.16538
@@ -1,3 +1,8 @@
+2009-10-31  Juri Linkov  <address@hidden>
+
+       * facemenu.el (list-colors-display): Don't mark buffer as
+       modified (Bug#3948).
+
 2009-10-31  Chong Yidong  <address@hidden>
 
        * international/mule-diag.el (list-character-sets-1): Minor

Index: facemenu.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/facemenu.el,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -b -r1.109 -r1.110
--- facemenu.el 16 Aug 2009 05:25:25 -0000      1.109
+++ facemenu.el 31 Oct 2009 20:16:55 -0000      1.110
@@ -499,7 +499,11 @@
        ;; to get the right value of window-width in list-colors-print
        ;; after the buffer is displayed.
        (add-hook 'temp-buffer-show-hook
-                 (lambda () (list-colors-print list)) nil t)))))
+                 (lambda ()
+                   (set-buffer-modified-p
+                    (prog1 (buffer-modified-p)
+                      (list-colors-print list))))
+                 nil t)))))
 
 (defun list-colors-print (list)
   (dolist (color list)