From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 12 Jan 1996 06:12:08 +0000 (+0000)
Subject: (facemenu-add-face): Adding default to no region
X-Git-Tag: emacs-19.34~1706
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=682e437e05d76954c49ab81f446b0934a1fb4da5;p=emacs.git

(facemenu-add-face): Adding default to no region
once again sets it for following typed in text.
---

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 3e85ada0812..752a95f8d70 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -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 @@ effect.  See `facemenu-remove-face-function'."
 	   (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))