# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1257020210 0
# Node ID ea3a6d1169082830a838e6b6ba4152bb71ed8240
# Parent  810bd90737d5f124665194a2d635ebd03f646bb7
* facemenu.el (list-colors-display): Don't mark buffer as
modified (Bug#3948).

diff -r 810bd90737d5 -r ea3a6d116908 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Oct 31 19:44:02 2009 +0000
+++ b/lisp/ChangeLog	Sat Oct 31 20:16:50 2009 +0000
@@ -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 -r 810bd90737d5 -r ea3a6d116908 lisp/facemenu.el
--- a/lisp/facemenu.el	Sat Oct 31 19:44:02 2009 +0000
+++ b/lisp/facemenu.el	Sat Oct 31 20:16:50 2009 +0000
@@ -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)