mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(flyspell-mode): Use define-minor-mode.

Browse Source
This commit is contained in:
Lute Kamstra 2005-06-08 08:14:32 +00:00
parent ecc8893aa3
commit b978659cce
2 changed files with 11 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2005-06-08 Lute Kamstra <lute@gnu.org>
* textmodes/flyspell.el (flyspell-mode): Use define-minor-mode.
2005-06-07 Lute Kamstra <lute@gnu.org>
* textmodes/org.el (org-run-mode-hooks): New function.

30
lisp/textmodes/flyspell.el
View File

@ -468,7 +468,7 @@ See also `flyspell-duplicate-distance'."
;* flyspell-mode ... */
;*---------------------------------------------------------------------*/
;;;###autoload
(defun flyspell-mode (&optional arg)
(define-minor-mode flyspell-mode
"Minor mode performing on-the-fly spelling checking.
This spawns a single Ispell process and checks each word.
The default flyspell behavior is to highlight incorrect words.
@ -496,28 +496,12 @@ in your .emacs file.
\\[flyspell-region] checks all words inside a region.
\\[flyspell-buffer] checks the whole buffer."
(interactive "P")
(let ((old-flyspell-mode flyspell-mode))
;; Mark the mode as on or off.
(setq flyspell-mode (not (or (and (null arg) flyspell-mode)
(<= (prefix-numeric-value arg) 0))))
;; Do the real work.
(unless (eq flyspell-mode old-flyspell-mode)
(if flyspell-mode
(flyspell-mode-on)
(flyspell-mode-off))
;; Force modeline redisplay.
(set-buffer-modified-p (buffer-modified-p)))))
;*---------------------------------------------------------------------*/
;* Autoloading */
;*---------------------------------------------------------------------*/
;;;###autoload
(add-minor-mode 'flyspell-mode
'flyspell-mode-line-string
flyspell-mode-map
nil
'flyspell-mode)
:lighter flyspell-mode-line-string
:keymap flyspell-mode-map
:group 'flyspell
(if flyspell-mode
(flyspell-mode-on)
(flyspell-mode-off)))
;*---------------------------------------------------------------------*/
;* flyspell-buffers ... */