diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-04-19 15:44:55 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-04-19 15:44:55 +0200 |
| commit | 06b605171f1c9d8b42bd3326a243b8b03d2e4e58 (patch) | |
| tree | e96c135042999136bf0e75d113aae306e51983e3 /lisp/facemenu.el | |
| parent | 04c569546ad52f6270d8fc6d4aa0750950a0ac05 (diff) | |
| download | emacs-06b605171f1c9d8b42bd3326a243b8b03d2e4e58.tar.gz | |
lisp/*.el: Lexical-binding cleanup.
Diffstat (limited to 'lisp/facemenu.el')
| -rw-r--r-- | lisp/facemenu.el | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index fffe09a84a5..1b42aa9ea73 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -825,19 +825,13 @@ MENU should be `facemenu-foreground-menu' or `facemenu-background-menu'. Return the event type (a symbol) of the added menu entry. This is called whenever you use a new color." - (let (symbol docstring) + (let (symbol) (unless (color-defined-p color) (error "Color `%s' undefined" color)) (cond ((eq menu 'facemenu-foreground-menu) - (setq docstring - (format "Select foreground color %s for subsequent insertion." - color) - symbol (intern (concat "fg:" color)))) + (setq symbol (intern (concat "fg:" color)))) ((eq menu 'facemenu-background-menu) - (setq docstring - (format "Select background color %s for subsequent insertion." - color) - symbol (intern (concat "bg:" color)))) + (setq symbol (intern (concat "bg:" color)))) (t (error "MENU should be `facemenu-foreground-menu' or `facemenu-background-menu'"))) (unless (facemenu-iterate ; Check if color is already in the menu. (lambda (m) (and (listp m) |