diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-03-30 07:17:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-03-30 07:17:46 +0000 |
| commit | 2b979e14a374261e3c813a4788a0784e2fd0599b (patch) | |
| tree | 584915195589f0f7ed3b14da9af580ac27613773 /lisp | |
| parent | 6ffb01c433ca90b07eae72db8570d77604faa254 (diff) | |
| download | emacs-2b979e14a374261e3c813a4788a0784e2fd0599b.tar.gz | |
Fix previous change.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/faces.el | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index af7b785157a..fded42226e1 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -162,7 +162,7 @@ in that frame; otherwise change each frame." (interactive (internal-face-interactive "underline-p" "underlined")) (internal-set-face-1 face 'underline underline-p 7 frame)) -(defun modify-face-read-string (default name alist) +(defun modify-face-read-string (face default name alist) (let ((value (completing-read (if default @@ -192,12 +192,15 @@ If called interactively, prompts for a face and face attributes." (apply 'nconc (mapcar 'directory-files x-bitmap-file-path)))) - (foreground (modify-face-read-string (face-foreground (intern face)) - "foreground" colors)) - (background (modify-face-read-string (face-background (intern face)) - "background" colors)) - (stipple (modify-face-read-string (face-stipple (intern face)) - "stipple" stipples)) + (foreground (modify-face-read-string + face (face-foreground (intern face)) + "foreground" colors)) + (background (modify-face-read-string + face (face-background (intern face)) + "background" colors)) + (stipple (modify-face-read-string + face (face-stipple (intern face)) + "stipple" stipples)) (bold-p (y-or-n-p (concat "Set face " face " bold "))) (italic-p (y-or-n-p (concat "Set face " face " italic "))) (underline-p (y-or-n-p (concat "Set face " face " underline ")))) |