# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 821427128 0
# Node ID e16dc69d909a71e722f764770d314b7b9787e6d1
# Parent  3e949d37e46f78fbc356436415f57d3e02cdbb2f
(facemenu-add-face): Adding default to no region
once again sets it for following typed in text.

diff -r 3e949d37e46f -r e16dc69d909a lisp/facemenu.el
--- a/lisp/facemenu.el	Fri Jan 12 05:54:33 1996 +0000
+++ b/lisp/facemenu.el	Fri Jan 12 06:12:08 1996 +0000
@@ -1,5 +1,5 @@
 ;;; facemenu.el --- create a face menu for interactively adding fonts to text
-;; Copyright (c) 1994, 1995 Free Software Foundation, Inc.
+;; Copyright (c) 1994, 1995, 1996 Free Software Foundation, Inc.
 
 ;; Author: Boris Goldowsky <boris@gnu.ai.mit.edu>
 ;; Keywords: faces
@@ -497,7 +497,10 @@
 	   (not (eq facemenu-remove-face-function t)))
       (if facemenu-remove-face-function
 	  (funcall facemenu-remove-face-function start end)
-	(remove-text-properties start end '(face default)))
+	(if (and start (< start end))
+	    (remove-text-properties start end '(face default))
+	  (setq self-insert-face 'default
+		self-insert-face-command this-command)))
     (if facemenu-add-face-function
 	(save-excursion
 	  (if end (goto-char end))