mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

(list-colors-print): Print #RRGGBB in default face.

Browse Source 
Remove 1 space before #RRGGBB to not truncate it on terminal
windows w/o fringes.  Remove 1 space between bg and fg examples
to get more space.
(list-colors-duplicates): Replace `and' with `if' for `boundp' to
avoid byte-compile warnings.
This commit is contained in:
Juri Linkov 2005-03-08 21:47:03 +00:00
parent af3abed126
commit 51d23bd053
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/facemenu.el
View File

@ -513,17 +513,17 @@ argument BUFFER-NAME is nil, it defaults to *Colors*."
'face (cons 'background-color (car color)))
(put-text-property
(prog1 (point)
(insert " " (if (cdr color)
(mapconcat 'identity (cdr color) ", ")
(car color)))
(indent-to (max (- (window-width) 8) 44))
(insert (apply 'format " #%02x%02x%02x"
(mapcar (lambda (c) (lsh c -8))
(color-values (car color)))))
(insert "\n"))
(insert " " (if (cdr color)
(mapconcat 'identity (cdr color) ", ")
(car color))))
(point)
'face (cons 'foreground-color (car color))))
'face (cons 'foreground-color (car color)))
(indent-to (max (- (window-width) 8) 44))
(insert (apply 'format "#%02x%02x%02x"
(mapcar (lambda (c) (lsh c -8))
(color-values (car color)))))
(insert "\n"))
(goto-char (point-min)))
(defun list-colors-duplicates (&optional list)
@ -539,8 +539,8 @@ a list of colors that the current display can handle."
(l list))
(while (cdr l)
(if (and (facemenu-color-equal (car (car l)) (car (car (cdr l))))
(not (and (boundp 'w32-default-color-map)
(not (assoc (car (car l)) w32-default-color-map)))))
(not (if (boundp 'w32-default-color-map)
(not (assoc (car (car l)) w32-default-color-map)))))
(progn
(setcdr (car l) (cons (car (car (cdr l))) (cdr (car l))))
(setcdr l (cdr (cdr l))))