# HG changeset patch
# User Boris Goldowsky <boris@gnu.org>
# Date 792774040 0
# Node ID 2834ab2db11a5e22a3e5ec55243395f95681791f
# Parent  0bee4d7bc9a47ab6b551f8cbac01db64dcc6f1f8
 (facemenu-self-insert-face): If previous
	self-insert-face is still valid, add to rather than replace it.

diff -r 0bee4d7bc9a4 -r 2834ab2db11a lisp/facemenu.el
--- 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)