From c9349f0a05aa95d3ce4d406387e479a99cd0a4bb Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 31 Oct 2009 20:16:50 +0000 Subject: [PATCH] * facemenu.el (list-colors-display): Don't mark buffer as modified (Bug#3948). --- lisp/ChangeLog | 5 +++++ lisp/facemenu.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) 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 + + * facemenu.el (list-colors-display): Don't mark buffer as + modified (Bug#3948). + 2009-10-31 Chong Yidong * 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) -- 2.39.5