Mercurial > emacs
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."