bug#3948: 23.1.50; Please mark list-colors buffer unmodified

[Juri Linkov]

> It is rather annoying that it is marked as modified. Perhaps there are
> more buffers that are marked modified but are not that?

`list-colors-display' is non-standard since it outputs the buffer's
content in `temp-buffer-show-hook' to be able to align hex numbers
at the window's right edge.  This can be fixed by restoring the
`modified' flag explicitly:

Index: lisp/facemenu.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/facemenu.el,v
retrieving revision 1.108
diff -c -r1.108 facemenu.el
*** lisp/facemenu.el    18 Apr 2009 13:50:23 -0000      1.108
--- lisp/facemenu.el    4 Aug 2009 21:32:16 -0000
***************
*** 493,499 ****
        ;; 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)))))
  
  (defun list-colors-print (list)
    (dolist (color list)
--- 574,584 ----
        ;; to get the right value of window-width in list-colors-print
        ;; after the buffer is displayed.
        (add-hook 'temp-buffer-show-hook
!                 (lambda ()
!                   (set-buffer-modified-p
!                    (prog1 (buffer-modified-p)
!                      (list-colors-print list))))
!                 nil t)))))
  
  (defun list-colors-print (list)
    (dolist (color list)

-- 
Juri Linkov
http://www.jurta.org/emacs/