diff options
author | Boris Goldowsky <boris@gnu.org> | 1995-02-14 15:00:40 +0000 |
---|---|---|
committer | Boris Goldowsky <boris@gnu.org> | 1995-02-14 15:00:40 +0000 |
commit | 41e5bf664f53d97f620e0297ba023b3ae26199ed (patch) | |
tree | 99c74d74c15b38f17bc8f89625e19514be7a59c7 /lisp/facemenu.el | |
parent | 6807c7018d40d042f97671035ffe1dd4bf1a2ec5 (diff) |
(facemenu-self-insert-face): If previous
self-insert-face is still valid, add to rather than replace it.
Diffstat (limited to 'lisp/facemenu.el')
-rw-r--r-- | lisp/facemenu.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 706cf49d39f..b7307b6e3e3 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -216,8 +216,6 @@ requested in `facemenu-keybindings'.") "Alist of colors, used for completion. If null, `facemenu-read-color' will set it.") -(defvar facemenu-loc nil) - (defun facemenu-update () "Add or update the \"Face\" menu in the menu bar. You can call this to update things if you change any of the menu configuration @@ -302,7 +300,11 @@ typing a character cancels the request." (facemenu-self-insert-face face))) (defun facemenu-self-insert-face (face) - (setq self-insert-face face + (setq self-insert-face (if (eq last-command self-insert-face-command) + (cons face (if (listp self-insert-face) + self-insert-face + (list self-insert-face))) + face) self-insert-face-command this-command)) (defun facemenu-set-invisible (start end) |