It seems to me that there is no reason for flyspell.el to check the
buffer-local specifications every time it checks or corrects a word;
doing this when the user enables Flyspell mode ought to be enough.
Which suggests making this change. Does it fix the problem?
*** flyspell.el 20 Sep 2005 19:31:14 -0400 1.76
--- flyspell.el 02 Oct 2005 01:38:17 -0400
***************
*** 981,987 ****
(interactive (list ispell-following-word))
(save-excursion
;; use the correct dictionary
! (flyspell-accept-buffer-local-defs)
(let* ((cursor-location (point))
(flyspell-word (flyspell-get-word following))
start end poss word)
--- 981,987 ----
(interactive (list ispell-following-word))
(save-excursion
;; use the correct dictionary
! ;;; (flyspell-accept-buffer-local-defs)
(let* ((cursor-location (point))
(flyspell-word (flyspell-get-word following))
start end poss word)
***************
*** 1715,1721 ****
(let ((pos (point))
(old-max (point-max)))
;; use the correct dictionary
! (flyspell-accept-buffer-local-defs)
(if (and (eq flyspell-auto-correct-pos pos)
(consp flyspell-auto-correct-region))
;; we have already been using the function at the same location
--- 1715,1721 ----
(let ((pos (point))
(old-max (point-max)))
;; use the correct dictionary
! ;;; (flyspell-accept-buffer-local-defs)
(if (and (eq flyspell-auto-correct-pos pos)
(consp flyspell-auto-correct-region))
;; we have already been using the function at the same location
***************
*** 1886,1892 ****
The word checked is the word at the mouse position."
(interactive "e")
;; use the correct dictionary
! (flyspell-accept-buffer-local-defs)
;; retain cursor location (I don't know why but save-excursion here fails).
(let ((save (point)))
(mouse-set-point event)
--- 1886,1892 ----
The word checked is the word at the mouse position."
(interactive "e")
;; use the correct dictionary
! ;;; (flyspell-accept-buffer-local-defs)
;; retain cursor location (I don't know why but save-excursion here fails).
(let ((save (point)))
(mouse-set-point event)
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
