Mercurial > emacs
comparison lisp/facemenu.el @ 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 | 35e379a3952e |
children | 83f275dcd93a |
comparison
equal
deleted
inserted
replaced
14153:3e949d37e46f | 14154:e16dc69d909a |
---|---|
1 ;;; facemenu.el --- create a face menu for interactively adding fonts to text | 1 ;;; facemenu.el --- create a face menu for interactively adding fonts to text |
2 ;; Copyright (c) 1994, 1995 Free Software Foundation, Inc. | 2 ;; Copyright (c) 1994, 1995, 1996 Free Software Foundation, Inc. |
3 | 3 |
4 ;; Author: Boris Goldowsky <boris@gnu.ai.mit.edu> | 4 ;; Author: Boris Goldowsky <boris@gnu.ai.mit.edu> |
5 ;; Keywords: faces | 5 ;; Keywords: faces |
6 | 6 |
7 ;; This file is part of GNU Emacs. | 7 ;; This file is part of GNU Emacs. |
495 (interactive "*xFace: \nr") | 495 (interactive "*xFace: \nr") |
496 (if (and (eq face 'default) | 496 (if (and (eq face 'default) |
497 (not (eq facemenu-remove-face-function t))) | 497 (not (eq facemenu-remove-face-function t))) |
498 (if facemenu-remove-face-function | 498 (if facemenu-remove-face-function |
499 (funcall facemenu-remove-face-function start end) | 499 (funcall facemenu-remove-face-function start end) |
500 (remove-text-properties start end '(face default))) | 500 (if (and start (< start end)) |
501 (remove-text-properties start end '(face default)) | |
502 (setq self-insert-face 'default | |
503 self-insert-face-command this-command))) | |
501 (if facemenu-add-face-function | 504 (if facemenu-add-face-function |
502 (save-excursion | 505 (save-excursion |
503 (if end (goto-char end)) | 506 (if end (goto-char end)) |
504 (save-excursion | 507 (save-excursion |
505 (if start (goto-char start)) | 508 (if start (goto-char start)) |