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

modified (Bug#3948).

2 files changed, 10 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c0bf442ca8..6a4babdd227 100644
--- 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 7da1c37fcbe..aedb6d355b6 100644
--- 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)