changeset 40280:e14f2ec78074

(facemenu-add-new-face): Fix variable names.
author Miles Bader <miles@gnu.org>
date Thu, 25 Oct 2001 01:08:52 +0000
parents 1adbc1480e83
children ec4224073236
files lisp/facemenu.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/facemenu.el	Thu Oct 25 00:53:48 2001 +0000
+++ b/lisp/facemenu.el	Thu Oct 25 01:08:52 2001 +0000
@@ -1,6 +1,6 @@
 ;;; facemenu.el --- create a face menu for interactively adding fonts to text
 
-;; Copyright (c) 1994, 1995, 1996 Free Software Foundation, Inc.
+;; Copyright (c) 1994, 1995, 1996, 2001 Free Software Foundation, Inc.
 
 ;; Author: Boris Goldowsky <boris@gnu.org>
 ;; Keywords: faces
@@ -654,13 +654,13 @@
   (let* (name
 	 symbol
 	 docstring
-	 (key (cdr (assoc face facemenu-keybindings)))
+	 (key (cdr (assoc face-or-color facemenu-keybindings)))
 	 function menu-val)
     (if (symbolp face-or-color)
 	(setq name (symbol-name face-or-color)
 	      symbol face-or-color)
       (setq name face-or-color
-	    face (intern name)))
+	    symbol (intern name)))
     (cond ((eq menu 'facemenu-foreground-menu)
 	   (setq docstring
 		 (format "Select foreground color %s for subsequent insertion."