diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-01-12 06:12:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-01-12 06:12:08 +0000 |
| commit | 4f7d26c5ab46b81fd609031c1640331b6efcf27e (patch) | |
| tree | 9790cdb0ff141cec3b3c0360f912cfcd55bcdf1c /lisp/facemenu.el | |
| parent | a2d6167f078898bcf79dbd7ff85c4f3b5609c206 (diff) | |
| download | emacs-4f7d26c5ab46b81fd609031c1640331b6efcf27e.tar.gz | |
(facemenu-add-face): Adding default to no region
once again sets it for following typed in text.
Diffstat (limited to 'lisp/facemenu.el')
| -rw-r--r-- | lisp/facemenu.el | 7 |
1 files changed, 5 insertions, 2 deletions
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)) |