Mercurial > emacs

changeset 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 df80277264ec
files lisp/faces.el
diffstat 1 files changed, 10 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Thu Mar 30 07:15:37 1995 +0000
+++ b/lisp/faces.el	Thu Mar 30 07:17:46 1995 +0000
@@ -162,7 +162,7 @@
   (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 @@
 			       (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 "))))