Mercurial > emacs
changeset 105820:ea3a6d116908
* facemenu.el (list-colors-display): Don't mark buffer as
modified (Bug#3948).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 31 Oct 2009 20:16:50 +0000 |
| parents | 810bd90737d5 |
| children | 18698b6aca31 |
| files | lisp/ChangeLog lisp/facemenu.el |
| diffstat | 2 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)