From: Miles Bader <miles@gnu.org>
Date: Thu, 25 Oct 2001 01:08:52 +0000 (+0000)
Subject: (facemenu-add-new-face): Fix variable names.
X-Git-Tag: ttn-vms-21-2-B4~19183
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d792b181b33461fc501f3800c1270e0ed37a3d6;p=emacs.git

(facemenu-add-new-face): Fix variable names.
---

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 8cde5586c9a..812f5a23de9 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -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 @@ This is called whenever you create a new face."
   (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."