mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

All autoload cookies disabled.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-05-06 01:52:22 +00:00
parent 869d4256c8
commit 3595955ca6
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/textmodes/ispell4.el
View File

@ -243,7 +243,7 @@ that have not already been dumped will be lost."
(define-key ispell-menu-map [ispell-buffer]
'("Check Buffer" . ispell))
;;;###autoload
;;;autoload
(defun ispell (&optional buf start end)
"Run Ispell over current buffer's visited file.
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
(message "Ispell parsing done.")
(ispell-next))))
;;;###autoload
;;;autoload
(defalias 'ispell-buffer 'ispell)
(defun ispell-next ()
@ -361,7 +361,7 @@ Return value is t unless exit is due to typing `q'."
(message "Bad ispell internal list"))))
(ispell-dump)))
;;;###autoload
;;;autoload
(defun ispell-word (&optional resume)
"Check the spelling of the word under the cursor.
See the command `ispell' for more information.
@ -382,9 +382,9 @@ With a prefix argument, resume handling of the previous Ispell command."
(define-key esc-map "$" 'spell-word)
(spell-word)))))))
;;;###autoload (define-key esc-map "$" 'ispell-word)
;;;autoload (define-key esc-map "$" 'ispell-word)
;;;###autoload
;;;autoload
(defun ispell-region (start &optional end)
"Check the spelling for all of the words in the region."
(interactive "r")
@ -793,7 +793,7 @@ will help find those completions.")
(put 'ispell-lookup-last-bow 'permanent-local t)
;;;; Interactive functions.
;;;###autoload
;;;autoload
(defun ispell-complete-word (&optional interior-frag)
"Complete word using letters at point to word beginning using `look'.
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'."
(display-completion-list list)))
(message "Making completion list...done")))))
;;;###autoload
;;;autoload
(defun ispell-complete-word-interior-frag ()
"Runs `ispell-complete-word' with a non-nil INTERIOR-FRAG.
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.")
(defvar ispell-message-limit (* 100 80)
"*Ispell-message will check no more than this number of characters.")
;;;###autoload
;;;autoload
(defun ispell-message ()
"Check the spelling of a mail message or news post.
Don't check spelling of message headers (except subject) or included messages.

6
lisp/textmodes/outline.el
View File

@ -1,5 +1,5 @@
;;; outline.el --- outline mode commands for Emacs
;; Copyright (C) 1986, 1993, 1994 Free Software Foundation, Inc.
;; Copyright (C) 1986, 1993, 1994, 1995 Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: outlines
@ -149,7 +149,7 @@ in the file it applies to.")
("\\[\\([A-Z][A-Za-z]+\\)*[0-9]+\\]" . font-lock-type-face))
"Additional expressions to highlight in Outline mode.")
;;;###autoload
;;;autoload
(defun outline-mode ()
"Set major mode for editing outlines with selective display.
Headings are lines which start with asterisks: one for major headings,
@ -235,7 +235,7 @@ After that, changing the prefix key requires manipulating keymaps.")
(cons (cons 'outline-minor-mode outline-minor-mode-map)
minor-mode-map-alist)))
;;;###autoload
;;;autoload
(defun outline-minor-mode (&optional arg)
"Toggle Outline minor mode.
With arg, turn Outline minor mode on if arg is positive, off otherwise.