diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-10-31 20:16:50 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-10-31 20:16:50 +0000 |
| commit | c9349f0a05aa95d3ce4d406387e479a99cd0a4bb (patch) | |
| tree | 10c8c69fc3827597a74141216195d40d3087778c /lisp | |
| parent | 9bd79893e2637f289767639bca9b1ecddcb8a623 (diff) | |
| download | emacs-c9349f0a05aa95d3ce4d406387e479a99cd0a4bb.tar.gz | |
* facemenu.el (list-colors-display): Don't mark buffer as
modified (Bug#3948).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/facemenu.el | 6 |
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) |