Mercurial > emacs
changeset 10749:2834ab2db11a
(facemenu-self-insert-face): If previous
self-insert-face is still valid, add to rather than replace it.
| author | Boris Goldowsky <boris@gnu.org> |
|---|---|
| date | Tue, 14 Feb 1995 15:00:40 +0000 |
| parents | 0bee4d7bc9a4 |
| children | 7bf07f10bed3 |
| files | lisp/facemenu.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/facemenu.el Tue Feb 14 14:28:44 1995 +0000 +++ b/lisp/facemenu.el Tue Feb 14 15:00:40 1995 +0000 @@ -216,8 +216,6 @@ "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 @@ (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)