mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(internal-face-interactive): Handle default in usual way,

Browse source 
Provide completion for color reading.
(set-face-foreground, set-face-background): Specify `color'
when reading the color name interactively.
This commit is contained in:
Richard M. Stallman 1997-08-04 04:23:51 +00:00
parent eea844b25e
commit f60a629a96
1 changed files with 16 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/faces.el
View file

@ -189,7 +189,7 @@ in that frame; otherwise change each frame."
"Change the foreground color of face FACE to COLOR (a string).
If the optional FRAME argument is provided, change only
in that frame; otherwise change each frame."
(interactive (internal-face-interactive "foreground"))
(interactive (internal-face-interactive "foreground" 'color))
(internal-set-face-1 face 'foreground color 4 frame))
(defvar face-default-stipple "gray3"
@ -214,7 +214,7 @@ FRAME specifies the frame and thus the display for interpreting COLOR."
"Change the background color of face FACE to COLOR (a string).
If the optional FRAME argument is provided, change only
in that frame; otherwise change each frame."
(interactive (internal-face-interactive "background"))
(interactive (internal-face-interactive "background" 'color))
;; For a specific frame, use gray stipple instead of gray color
;; if the display does not support a gray color.
(if (and frame (not (eq frame t)) color
@ -455,11 +455,20 @@ If NAME is already a face, it is simply returned."
(default (if (fboundp fn)
(or (funcall fn face (selected-frame))
(funcall fn 'default (selected-frame)))))
(value (if bool
(y-or-n-p (concat "Should face " (symbol-name face)
" be " bool "? "))
(read-string (concat prompt " " (symbol-name face) " to: ")
default))))
value)
(setq value
(cond ((eq bool 'color)
(completing-read (concat prompt " " (symbol-name face) " to: ")
(mapcar (function (lambda (color)
(cons color color)))
x-colors)
nil nil nil nil default))
(bool
(y-or-n-p (concat "Should face " (symbol-name face)
" be " bool "? ")))
(t
(read-string (concat prompt " " (symbol-name face) " to: ")
nil nil default))))
(list face (if (equal value "") nil value))))
(defun internal-face-interactive-stipple (what)