comparison lisp/textmodes/ispell.el @ 6288:3197bf3cc0a1

(ispell-pdict-save, ispell-kill-ispell, ispell-continue): (ispell-help): Add autoloads.

6287:33477d79a6f2

;;; Global ispell-pdict-modified-p is set by ispell-command-loop and
;;; tracks changes in the dictionary.  The global may either be
;;; a value or a list, whose value is the state of whether the
;;; dictionary needs to be saved.

(defun ispell-pdict-save (&optional no-query force-save)
  "Check to see if the personal dictionary has been modified.
  If so, ask if it needs to be saved."
  (interactive (list ispell-silently-savep t))
  (if (and ispell-pdict-modified-p (listp ispell-pdict-modified-p))

	     (t (ding) t))))))
    result))
  (if (not ispell-keep-choices-win) (bury-buffer ispell-choices-buffer))))


(defun ispell-help ()
  "This gives a list of the options available when a misspelling is encountered.

Selections are:

	  (process-send-string ispell-process
			       (concat extended-char-mode "\n"))))
    (process-kill-without-query ispell-process)))


(defun ispell-kill-ispell (&optional no-error)
  "Kill current ispell process (so that you may start a fresh one).
With NO-ERROR, just return non-nil if there was no ispell running."
  (interactive)
  (if (not (and ispell-process

(defun ispell-buffer () 
  "Check the current buffer for spelling errors interactively."
  (interactive)
  (ispell-region (point-min) (point-max)))


(defun ispell-continue ()
  (interactive)
  "Continue a spelling session after making some changes."
  (if (not (marker-position ispell-region-end))
      (message "No session to continue.  Use 'X' command when checking!")

6288:3197bf3cc0a1

;;; Global ispell-pdict-modified-p is set by ispell-command-loop and
;;; tracks changes in the dictionary.  The global may either be
;;; a value or a list, whose value is the state of whether the
;;; dictionary needs to be saved.

;;;###autoload
(defun ispell-pdict-save (&optional no-query force-save)
  "Check to see if the personal dictionary has been modified.
  If so, ask if it needs to be saved."
  (interactive (list ispell-silently-savep t))
  (if (and ispell-pdict-modified-p (listp ispell-pdict-modified-p))

	     (t (ding) t))))))
    result))
  (if (not ispell-keep-choices-win) (bury-buffer ispell-choices-buffer))))


;;;###autoload
(defun ispell-help ()
  "This gives a list of the options available when a misspelling is encountered.

Selections are:

	  (process-send-string ispell-process
			       (concat extended-char-mode "\n"))))
    (process-kill-without-query ispell-process)))


;;;###autoload
(defun ispell-kill-ispell (&optional no-error)
  "Kill current ispell process (so that you may start a fresh one).
With NO-ERROR, just return non-nil if there was no ispell running."
  (interactive)
  (if (not (and ispell-process

(defun ispell-buffer () 
  "Check the current buffer for spelling errors interactively."
  (interactive)
  (ispell-region (point-min) (point-max)))

;;;###autoload
(defun ispell-continue ()
  (interactive)
  "Continue a spelling session after making some changes."
  (if (not (marker-position ispell-region-end))
      (message "No session to continue.  Use 'X' command when checking!")