diff options
| author | Lute Kamstra <[email protected]> | 2005-06-08 08:14:32 +0000 |
|---|---|---|
| committer | Lute Kamstra <[email protected]> | 2005-06-08 08:14:32 +0000 |
| commit | b978659cce9315dc255565c5488817aa4cc401ff (patch) | |
| tree | 68376a3c3e9e5ef0e8437b1260cf74d94b28fe9e | |
| parent | ecc8893aa3cd26a2d1a601b605ab59e74ffb0eac (diff) | |
(flyspell-mode): Use define-minor-mode.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/textmodes/flyspell.el | 30 |
2 files changed, 11 insertions, 23 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 368d513997..9d1e57f026 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2005-06-08 Lute Kamstra <[email protected]> + + * textmodes/flyspell.el (flyspell-mode): Use define-minor-mode. + 2005-06-07 Lute Kamstra <[email protected]> * textmodes/org.el (org-run-mode-hooks): New function. diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 8bd6c731e3..f66f81a195 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -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 ... */ |