Mercurial > emacs
changeset 68198:f00134dbd2a6
(ispell-internal-change-dictionary, ispell-change-dictionary):
Undo most of last change of 2006-01-13.
(start, end): Move declaration outside of eval-when-compile.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 15 Jan 2006 06:05:50 +0000 |
| parents | 979bd3539a58 |
| children | 5012e59a73c7 |
| files | lisp/ChangeLog lisp/textmodes/ispell.el |
| diffstat | 2 files changed, 7 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Jan 15 05:47:44 2006 +0000 +++ b/lisp/ChangeLog Sun Jan 15 06:05:50 2006 +0000 @@ -1,5 +1,9 @@ 2006-01-15 Stefan Monnier <monnier@iro.umontreal.ca> + * textmodes/ispell.el (ispell-internal-change-dictionary) + (ispell-change-dictionary): Undo most of last change of 2006-01-13. + (start, end): Move declaration outside of eval-when-compile. + * textmodes/flyspell.el (flyspell-kill-ispell-hook): New fun. (flyspell-mode-on): Use it.
--- a/lisp/textmodes/ispell.el Sun Jan 15 05:47:44 2006 +0000 +++ b/lisp/textmodes/ispell.el Sun Jan 15 06:05:50 2006 +0000 @@ -202,7 +202,6 @@ ;;; Code: (defvar mail-yank-prefix) -(eval-when-compile (defvar flyspell-word-cache-word)) ;;; Custom.el macros require recompiling this when they are not present. ;;; Add in backward compatible custom support. @@ -2624,13 +2623,6 @@ (setq ispell-local-dictionary dict) (setq ispell-local-dictionary-overridden t)) (error "Undefined dictionary: %s" dict)) - ;; For global setting clear out flyspell word cache when needed - (when (and arg - (featurep 'flyspell)) - (dolist (buf (buffer-list)) - (with-current-buffer buf - (when flyspell-mode - (setq flyspell-word-cache-word nil))))) (ispell-internal-change-dictionary) (message "%s Ispell dictionary set to %s" (if arg "Global" "Local") @@ -2643,12 +2635,7 @@ (let ((dict (or ispell-local-dictionary ispell-dictionary))) (unless (equal ispell-current-dictionary dict) (ispell-kill-ispell t) - (setq ispell-current-dictionary dict) - ;; If needed, start ispell process and clear out flyspell word cache - (when (and (featurep 'flyspell) - flyspell-mode) - (ispell-init-process) - (setq flyspell-word-cache-word nil))))) + (setq ispell-current-dictionary dict)))) ;;; Spelling of comments are checked when ispell-check-comments is non-nil. @@ -2981,9 +2968,8 @@ coding))))) ;;; Avoid error messages when compiling for these dynamic variables. -(eval-when-compile - (defvar start) - (defvar end)) +(defvar start) +(defvar end) (defun ispell-process-line (string shift) "Sends a LINE of text to ispell and processes the result.