diff options
| author | Richard M. Stallman | 1995-05-06 01:52:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-05-06 01:52:22 +0000 |
| commit | 3595955ca6959a2f0e13dec843af7857b45a6eb3 (patch) | |
| tree | 32bb63410b235dc15616b8a53d68a7bf46dd7bd9 | |
| parent | 869d4256c80bcc92176ad9255503709868c45b0e (diff) | |
| download | emacs-3595955ca6959a2f0e13dec843af7857b45a6eb3.tar.gz emacs-3595955ca6959a2f0e13dec843af7857b45a6eb3.zip | |
All autoload cookies disabled.
| -rw-r--r-- | lisp/textmodes/ispell4.el | 16 | ||||
| -rw-r--r-- | lisp/textmodes/outline.el | 6 |
2 files changed, 11 insertions, 11 deletions
diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el index 3e87b7c7322..6a06a3be6f1 100644 --- a/lisp/textmodes/ispell4.el +++ b/lisp/textmodes/ispell4.el | |||
| @@ -243,7 +243,7 @@ that have not already been dumped will be lost." | |||
| 243 | (define-key ispell-menu-map [ispell-buffer] | 243 | (define-key ispell-menu-map [ispell-buffer] |
| 244 | '("Check Buffer" . ispell)) | 244 | '("Check Buffer" . ispell)) |
| 245 | 245 | ||
| 246 | ;;;###autoload | 246 | ;;;autoload |
| 247 | (defun ispell (&optional buf start end) | 247 | (defun ispell (&optional buf start end) |
| 248 | "Run Ispell over current buffer's visited file. | 248 | "Run Ispell over current buffer's visited file. |
| 249 | First the file is scanned for misspelled words, then Ispell | 249 | First the file is scanned for misspelled words, then Ispell |
| @@ -320,7 +320,7 @@ q, \\[keyboard-quit] Leave the command loop. You can come back later with \\[is | |||
| 320 | (message "Ispell parsing done.") | 320 | (message "Ispell parsing done.") |
| 321 | (ispell-next)))) | 321 | (ispell-next)))) |
| 322 | 322 | ||
| 323 | ;;;###autoload | 323 | ;;;autoload |
| 324 | (defalias 'ispell-buffer 'ispell) | 324 | (defalias 'ispell-buffer 'ispell) |
| 325 | 325 | ||
| 326 | (defun ispell-next () | 326 | (defun ispell-next () |
| @@ -361,7 +361,7 @@ Return value is t unless exit is due to typing `q'." | |||
| 361 | (message "Bad ispell internal list")))) | 361 | (message "Bad ispell internal list")))) |
| 362 | (ispell-dump))) | 362 | (ispell-dump))) |
| 363 | 363 | ||
| 364 | ;;;###autoload | 364 | ;;;autoload |
| 365 | (defun ispell-word (&optional resume) | 365 | (defun ispell-word (&optional resume) |
| 366 | "Check the spelling of the word under the cursor. | 366 | "Check the spelling of the word under the cursor. |
| 367 | See the command `ispell' for more information. | 367 | See the command `ispell' for more information. |
| @@ -382,9 +382,9 @@ With a prefix argument, resume handling of the previous Ispell command." | |||
| 382 | (define-key esc-map "$" 'spell-word) | 382 | (define-key esc-map "$" 'spell-word) |
| 383 | (spell-word))))))) | 383 | (spell-word))))))) |
| 384 | 384 | ||
| 385 | ;;;###autoload (define-key esc-map "$" 'ispell-word) | 385 | ;;;autoload (define-key esc-map "$" 'ispell-word) |
| 386 | 386 | ||
| 387 | ;;;###autoload | 387 | ;;;autoload |
| 388 | (defun ispell-region (start &optional end) | 388 | (defun ispell-region (start &optional end) |
| 389 | "Check the spelling for all of the words in the region." | 389 | "Check the spelling for all of the words in the region." |
| 390 | (interactive "r") | 390 | (interactive "r") |
| @@ -793,7 +793,7 @@ will help find those completions.") | |||
| 793 | (put 'ispell-lookup-last-bow 'permanent-local t) | 793 | (put 'ispell-lookup-last-bow 'permanent-local t) |
| 794 | 794 | ||
| 795 | ;;;; Interactive functions. | 795 | ;;;; Interactive functions. |
| 796 | ;;;###autoload | 796 | ;;;autoload |
| 797 | (defun ispell-complete-word (&optional interior-frag) | 797 | (defun ispell-complete-word (&optional interior-frag) |
| 798 | "Complete word using letters at point to word beginning using `look'. | 798 | "Complete word using letters at point to word beginning using `look'. |
| 799 | With optional argument INTERIOR-FRAG, word fragment at point is assumed to be | 799 | With optional argument INTERIOR-FRAG, word fragment at point is assumed to be |
| @@ -902,7 +902,7 @@ See also `ispell-look-dictionary' and `ispell-gnu-look-still-broken-p'." | |||
| 902 | (display-completion-list list))) | 902 | (display-completion-list list))) |
| 903 | (message "Making completion list...done"))))) | 903 | (message "Making completion list...done"))))) |
| 904 | 904 | ||
| 905 | ;;;###autoload | 905 | ;;;autoload |
| 906 | (defun ispell-complete-word-interior-frag () | 906 | (defun ispell-complete-word-interior-frag () |
| 907 | "Runs `ispell-complete-word' with a non-nil INTERIOR-FRAG. | 907 | "Runs `ispell-complete-word' with a non-nil INTERIOR-FRAG. |
| 908 | A completion list is built for word fragment at point which is assumed to be | 908 | A completion list is built for word fragment at point which is assumed to be |
| @@ -982,7 +982,7 @@ Otherwise, it must be a function which is called to get the limit.") | |||
| 982 | (defvar ispell-message-limit (* 100 80) | 982 | (defvar ispell-message-limit (* 100 80) |
| 983 | "*Ispell-message will check no more than this number of characters.") | 983 | "*Ispell-message will check no more than this number of characters.") |
| 984 | 984 | ||
| 985 | ;;;###autoload | 985 | ;;;autoload |
| 986 | (defun ispell-message () | 986 | (defun ispell-message () |
| 987 | "Check the spelling of a mail message or news post. | 987 | "Check the spelling of a mail message or news post. |
| 988 | Don't check spelling of message headers (except subject) or included messages. | 988 | Don't check spelling of message headers (except subject) or included messages. |
diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el index 2b5256b91f8..d05dff58d10 100644 --- a/lisp/textmodes/outline.el +++ b/lisp/textmodes/outline.el | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | ;;; outline.el --- outline mode commands for Emacs | 1 | ;;; outline.el --- outline mode commands for Emacs |
| 2 | ;; Copyright (C) 1986, 1993, 1994 Free Software Foundation, Inc. | 2 | ;; Copyright (C) 1986, 1993, 1994, 1995 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | ;; Maintainer: FSF | 4 | ;; Maintainer: FSF |
| 5 | ;; Keywords: outlines | 5 | ;; Keywords: outlines |
| @@ -149,7 +149,7 @@ in the file it applies to.") | |||
| 149 | ("\\[\\([A-Z][A-Za-z]+\\)*[0-9]+\\]" . font-lock-type-face)) | 149 | ("\\[\\([A-Z][A-Za-z]+\\)*[0-9]+\\]" . font-lock-type-face)) |
| 150 | "Additional expressions to highlight in Outline mode.") | 150 | "Additional expressions to highlight in Outline mode.") |
| 151 | 151 | ||
| 152 | ;;;###autoload | 152 | ;;;autoload |
| 153 | (defun outline-mode () | 153 | (defun outline-mode () |
| 154 | "Set major mode for editing outlines with selective display. | 154 | "Set major mode for editing outlines with selective display. |
| 155 | Headings are lines which start with asterisks: one for major headings, | 155 | Headings are lines which start with asterisks: one for major headings, |
| @@ -235,7 +235,7 @@ After that, changing the prefix key requires manipulating keymaps.") | |||
| 235 | (cons (cons 'outline-minor-mode outline-minor-mode-map) | 235 | (cons (cons 'outline-minor-mode outline-minor-mode-map) |
| 236 | minor-mode-map-alist))) | 236 | minor-mode-map-alist))) |
| 237 | 237 | ||
| 238 | ;;;###autoload | 238 | ;;;autoload |
| 239 | (defun outline-minor-mode (&optional arg) | 239 | (defun outline-minor-mode (&optional arg) |
| 240 | "Toggle Outline minor mode. | 240 | "Toggle Outline minor mode. |
| 241 | With arg, turn Outline minor mode on if arg is positive, off otherwise. | 241 | With arg, turn Outline minor mode on if arg is positive, off otherwise. |