martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(list-colors-display): Minor clarification.

Browse Source 
(facemenu-special-menu): Add "Intangible" item.
(facemenu-color-equal): Doc fix.
This commit is contained in:
Richard M. Stallman
1995-04-16 04:15:39 +00:00
parent d0672e0d73
commit 7c49006bee
1 changed files with 17 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
lisp/facemenu.el
View File

@@ -168,6 +168,7 @@ when they are created.")
(let ((map (make-sparse-keymap "Special")))
(define-key map [read-only] (cons "Read-Only" 'facemenu-set-read-only))
(define-key map [invisible] (cons "Invisible" 'facemenu-set-invisible))
(define-key map [intangible] (cons "Intangible" 'facemenu-set-intangible))
map)
"Menu keymap for non-face text-properties.")
;;;###autoload
@@ -391,17 +392,20 @@ This sets the `read-only' text property; it can be undone with
;;;###autoload
(defun list-colors-display (&optional list)
"Display colors.
You can optionally supply a LIST of colors to display, or this function will
get a list for the current display, removing alternate names for the same
color."
"Display names of defined colors, and show what they look like.
If the optional argument LIST is non-nil, it should be a list of
colors to display. Otherwise, this command computes a list
of colors that the current display can handle."
(interactive)
(if (and (null list) (eq 'x window-system))
(let ((l (setq list (x-defined-colors))))
(while (cdr l)
(if (facemenu-color-equal (car l) (car (cdr l)))
(setcdr l (cdr (cdr l)))
(setq l (cdr l))))))
(progn
(setq list (x-defined-colors))
;; Delete duplicate colors.
(let ((l list))
(while (cdr l)
(if (facemenu-color-equal (car l) (car (cdr l)))
(setcdr l (cdr (cdr l)))
(setq l (cdr l)))))))
(with-output-to-temp-buffer "*Colors*"
(save-excursion
(set-buffer standard-output)
@@ -423,9 +427,10 @@ color."
(defun facemenu-color-equal (a b)
"Return t if colors A and B are the same color.
A and B should be strings naming colors. The window-system server is queried
to find how they would actually be displayed. Nil is always returned if the
correct answer cannot be determined."
A and B should be strings naming colors.
This function queries the window-system server to find out what the
color names mean. It returns nil if the colors differ or if it can't
determine the correct answer."
(cond ((equal a b) t)
((and (eq 'x window-system)
(equal (x-color-values a) (x-color-values b))))))