procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(facemenu-self-insert-face): If previous

Browse source 
self-insert-face is still valid, add to rather than replace it.
This commit is contained in:
Boris Goldowsky 1995-02-14 15:00:40 +00:00
parent 6807c7018d
commit 41e5bf664f
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/facemenu.el
View file

@ -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)