Mercurial > emacs
changeset 14154:e16dc69d909a
(facemenu-add-face): Adding default to no region
once again sets it for following typed in text.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 12 Jan 1996 06:12:08 +0000 |
| parents | 3e949d37e46f |
| children | 26e5bc43f61e |
| files | lisp/facemenu.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))