* facemenu.el (list-colors-display): Don't mark buffer as

modified (Bug#3948).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c0bf442ca884b2a0d353e3d18587f7d19a608b0..6a4babdd227ad4c1a94e181f26b73ed59d6f1fb3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-10-31  Juri Linkov  <juri@jurta.org>
+
+       * facemenu.el (list-colors-display): Don't mark buffer as
+       modified (Bug#3948).
+
 2009-10-31  Chong Yidong  <cyd@stupidchicken.com>
 
        * international/mule-diag.el (list-character-sets-1): Minor

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 7da1c37fcbe3fdf6b8a027cb2c36a7a31d4805a3..aedb6d355b62d72222575d2c6941c877febc7da6 100644 (file)
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -499,7 +499,11 @@ argument BUFFER-NAME is nil, it defaults to *Colors*."
        ;; 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)