(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
(message "Ispell parsing done.")
(ispell-next))))
-;;;###autoload
+;;;autoload
(defalias 'ispell-buffer 'ispell)
(defun ispell-next ()
(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.
(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")
(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
(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
(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.
;;; 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
("\\[\\([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,
(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.