(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 3e85ada0812a0a2c27eb744a35f86a29db393375..752a95f8d7036bea7a4bcb075a1cdb484a88e96c 100644 (file)
--- 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))