956 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
957 |
(defun flyspell-word (&optional following) |
(defun flyspell-word (&optional following) |
958 |
"Spell check a word." |
"Spell check a word." |
959 |
(interactive (list current-prefix-arg)) |
(interactive (list ispell-following-word)) |
|
(if (interactive-p) |
|
|
(setq following ispell-following-word)) |
|
960 |
(save-excursion |
(save-excursion |
961 |
;; use the correct dictionary |
;; use the correct dictionary |
962 |
(flyspell-accept-buffer-local-defs) |
(flyspell-accept-buffer-local-defs) |