andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
modified (Bug#3948).
This commit is contained in:
Chong Yidong 2009-10-31 20:16:50 +00:00
parent 9bd79893e2
commit c9349f0a05
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

6
lisp/facemenu.el
View file

@ -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)