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