diff options
| author | Miles Bader <[email protected]> | 2001-10-25 01:08:52 +0000 |
|---|---|---|
| committer | Miles Bader <[email protected]> | 2001-10-25 01:08:52 +0000 |
| commit | 1d792b181b33461fc501f3800c1270e0ed37a3d6 (patch) | |
| tree | 17f7b966511b35023f28724937068178e139207c /lisp/facemenu.el | |
| parent | f2f0a644239bfac134e4e3f05b47dc7fd120e073 (diff) | |
(facemenu-add-new-face): Fix variable names.
Diffstat (limited to 'lisp/facemenu.el')
| -rw-r--r-- | lisp/facemenu.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 8cde5586c9..812f5a23de 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 <[email protected]> ;; 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." |