From: Boris Goldowsky <boris@gnu.org>
Date: Tue, 14 Feb 1995 15:00:40 +0000 (+0000)
Subject: (facemenu-self-insert-face): If previous
X-Git-Tag: emacs-19.34~5109
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=41e5bf664f53d97f620e0297ba023b3ae26199ed;p=emacs.git

(facemenu-self-insert-face): If previous
	self-insert-face is still valid, add to rather than replace it.
---

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)