Mercurial > emacs

comparison lisp/faces.el @ 11153:984f7567a1bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Thu, 30 Mar 1995 07:17:46 +0000
parents eb26f12a8be6
children 4d2a2fe1d8d7
comparison
equal deleted inserted replaced
11152:eb26f12a8be6 11153:984f7567a1bd
160 If the optional FRAME argument is provided, change only 160 If the optional FRAME argument is provided, change only
161 in that frame; otherwise change each frame." 161 in that frame; otherwise change each frame."
162 (interactive (internal-face-interactive "underline-p" "underlined")) 162 (interactive (internal-face-interactive "underline-p" "underlined"))
163 (internal-set-face-1 face 'underline underline-p 7 frame)) 163 (internal-set-face-1 face 'underline underline-p 7 frame))
164 164
165 (defun modify-face-read-string (default name alist) 165 (defun modify-face-read-string (face default name alist)
166 (let ((value 166 (let ((value
167 (completing-read 167 (completing-read
168 (if default 168 (if default
169 (format "Set face %s %s (default %s): " 169 (format "Set face %s %s (default %s): "
170 face name (downcase default)) 170 face name (downcase default))
190 (colors (mapcar 'list x-colors)) 190 (colors (mapcar 'list x-colors))
191 (stipples (mapcar 'list 191 (stipples (mapcar 'list
192 (apply 'nconc 192 (apply 'nconc
193 (mapcar 'directory-files 193 (mapcar 'directory-files
194 x-bitmap-file-path)))) 194 x-bitmap-file-path))))
195 (foreground (modify-face-read-string (face-foreground (intern face)) 195 (foreground (modify-face-read-string
196 "foreground" colors)) 196 face (face-foreground (intern face))
197 (background (modify-face-read-string (face-background (intern face)) 197 "foreground" colors))
198 "background" colors)) 198 (background (modify-face-read-string
199 (stipple (modify-face-read-string (face-stipple (intern face)) 199 face (face-background (intern face))
200 "stipple" stipples)) 200 "background" colors))
201 (stipple (modify-face-read-string
202 face (face-stipple (intern face))
203 "stipple" stipples))
201 (bold-p (y-or-n-p (concat "Set face " face " bold "))) 204 (bold-p (y-or-n-p (concat "Set face " face " bold ")))
202 (italic-p (y-or-n-p (concat "Set face " face " italic "))) 205 (italic-p (y-or-n-p (concat "Set face " face " italic ")))
203 (underline-p (y-or-n-p (concat "Set face " face " underline ")))) 206 (underline-p (y-or-n-p (concat "Set face " face " underline "))))
204 (message "Face %s: %s" face 207 (message "Face %s: %s" face
205 (mapconcat 'identity 208 (mapconcat 'identity