Mercurial > emacs
comparison lisp/facemenu.el @ 29050:e3cbe0ccf8c9
(facemenu-set-face): Fix interactive prompt.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 21 May 2000 16:56:47 +0000 |
| parents | 90875cd704b5 |
| children | 6d383cf4bb99 |
comparison
equal
deleted
inserted
replaced
| 29049:bc81a1597206 | 29050:e3cbe0ccf8c9 |
|---|---|
| 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)))) |