From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 31 Oct 2009 20:16:50 +0000 (+0000)
Subject: * facemenu.el (list-colors-display): Don't mark buffer as
X-Git-Tag: emacs-pretest-23.1.90~602
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c9349f0a05aa95d3ce4d406387e479a99cd0a4bb;p=emacs.git

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

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)