diff options
| author | Karl Heuer | 1995-05-16 06:14:22 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-05-16 06:14:22 +0000 |
| commit | f61deddc6d2cc98b73e95e31cd3716a456a5d94d (patch) | |
| tree | da7dd6612c18dcccd9949cd330012f59d8bbe6cf | |
| parent | 6e55cbc223e1aeffb2e713208506372f15d2854f (diff) | |
| download | emacs-f61deddc6d2cc98b73e95e31cd3716a456a5d94d.tar.gz emacs-f61deddc6d2cc98b73e95e31cd3716a456a5d94d.zip | |
(facemenu-set-face-from-menu): Doc fix.
(facemenu-set-background, facemenu-set-foreground): Doc fix.
(facemenu-set-face): Doc fix.
| -rw-r--r-- | lisp/facemenu.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index d7f9964bd78..1c9c5de811f 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el | |||
| @@ -263,7 +263,7 @@ Interactively, the face to be used is prompted for. | |||
| 263 | If the region is active, it will be set to the requested face. If | 263 | If the region is active, it will be set to the requested face. If |
| 264 | it is inactive \(even if mark-even-if-inactive is set) the next | 264 | it is inactive \(even if mark-even-if-inactive is set) the next |
| 265 | character that is typed \(or otherwise inserted) will be set to | 265 | character that is typed \(or otherwise inserted) will be set to |
| 266 | the the selected face. Moving point or switching buffers before | 266 | the selected face. Moving point or switching buffers before |
| 267 | typing a character cancels the request." | 267 | typing a character cancels the request." |
| 268 | (interactive (list (read-face-name "Use face: "))) | 268 | (interactive (list (read-face-name "Use face: "))) |
| 269 | (barf-if-buffer-read-only) | 269 | (barf-if-buffer-read-only) |
| @@ -281,7 +281,7 @@ The color is prompted for. A face named `fg:color' is used \(or created). | |||
| 281 | If the region is active, it will be set to the requested face. If | 281 | If the region is active, it will be set to the requested face. If |
| 282 | it is inactive \(even if mark-even-if-inactive is set) the next | 282 | it is inactive \(even if mark-even-if-inactive is set) the next |
| 283 | character that is typed \(via `self-insert-command') will be set to | 283 | character that is typed \(via `self-insert-command') will be set to |
| 284 | the the selected face. Moving point or switching buffers before | 284 | the selected face. Moving point or switching buffers before |
| 285 | typing a character cancels the request." | 285 | typing a character cancels the request." |
| 286 | (interactive (list (facemenu-read-color "Foreground color: "))) | 286 | (interactive (list (facemenu-read-color "Foreground color: "))) |
| 287 | (let ((face (intern (concat "fg:" color)))) | 287 | (let ((face (intern (concat "fg:" color)))) |
| @@ -296,7 +296,7 @@ The color is prompted for. A face named `bg:color' is used \(or created). | |||
| 296 | If the region is active, it will be set to the requested face. If | 296 | If the region is active, it will be set to the requested face. If |
| 297 | it is inactive \(even if mark-even-if-inactive is set) the next | 297 | it is inactive \(even if mark-even-if-inactive is set) the next |
| 298 | character that is typed \(via `self-insert-command') will be set to | 298 | character that is typed \(via `self-insert-command') will be set to |
| 299 | the the selected face. Moving point or switching buffers before | 299 | the selected face. Moving point or switching buffers before |
| 300 | typing a character cancels the request." | 300 | typing a character cancels the request." |
| 301 | (interactive (list (facemenu-read-color "Background color: "))) | 301 | (interactive (list (facemenu-read-color "Background color: "))) |
| 302 | (let ((face (intern (concat "bg:" color)))) | 302 | (let ((face (intern (concat "bg:" color)))) |
| @@ -312,7 +312,7 @@ is the menu item's name. | |||
| 312 | If the region is active, it will be set to the requested face. If | 312 | If the region is active, it will be set to the requested face. If |
| 313 | it is inactive \(even if mark-even-if-inactive is set) the next | 313 | it is inactive \(even if mark-even-if-inactive is set) the next |
| 314 | character that is typed \(or otherwise inserted) will be set to | 314 | character that is typed \(or otherwise inserted) will be set to |
| 315 | the the selected face. Moving point or switching buffers before | 315 | the selected face. Moving point or switching buffers before |
| 316 | typing a character cancels the request." | 316 | typing a character cancels the request." |
| 317 | (interactive (list last-command-event | 317 | (interactive (list last-command-event |
| 318 | (if mark-active (region-beginning)) | 318 | (if mark-active (region-beginning)) |