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/facemenu.el | |
| 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/facemenu.el')
| -rw-r--r-- | lisp/facemenu.el | 6 |
1 files changed, 5 insertions, 1 deletions
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) |