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