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)) |