Mercurial > emacs
comparison lisp/facemenu.el @ 27715:b4b1af4aee43
(facemenu-set-face): Amend interactive prompt.
author | Dave Love <fx@gnu.org> |
---|---|
date | Wed, 16 Feb 2000 22:45:03 +0000 |
parents | 6a6704c5e3b4 |
children | c3e8689514c1 |
comparison
equal
deleted
inserted
replaced
27714:22a581e00fe4 | 27715:b4b1af4aee43 |
---|---|
330 this command sets the region to the requested face. | 330 this command sets the region to the requested face. |
331 | 331 |
332 Otherwise, this command specifies the face for the next character | 332 Otherwise, this command specifies the face for the next character |
333 inserted. Moving point or switching buffers before | 333 inserted. Moving point or switching buffers before |
334 typing a character to insert cancels the specification." | 334 typing a character to insert cancels the specification." |
335 (interactive (list (read-face-name "Use face: "))) | 335 (interactive (list (read-face-name "Use face "))) |
336 (barf-if-buffer-read-only) | 336 (barf-if-buffer-read-only) |
337 (facemenu-add-new-face face) | 337 (facemenu-add-new-face face) |
338 (if (and mark-active (not current-prefix-arg)) | 338 (if (and mark-active (not current-prefix-arg)) |
339 (let ((start (or start (region-beginning))) | 339 (let ((start (or start (region-beginning))) |
340 (end (or end (region-end)))) | 340 (end (or end (region-end)))) |