mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 15:52:00 -08:00
Code Issues Projects Releases Wiki Activity

(flyspell-external-point-words, flyspell-process-localwords): Fix last changes.

Browse source
This commit is contained in:
Eli Zaretskii 2006-03-11 15:07:32 +00:00
parent 3bb69bbdba
commit 55faab0a19
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2006-03-11 Agustin Martin <agustin.martin@hispalinux.es>
* textmodes/flyspell.el (flyspell-external-point-words)
(flyspell-process-localwords): Fix last changes.
2006-03-11 Eli Zaretskii <eliz@gnu.org>
* calendar/holidays.el (list-holidays): Doc fix.

5
lisp/textmodes/flyspell.el
View file

@ -1323,7 +1323,7 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
(let (words-not-found
(ispell-otherchars (ispell-get-otherchars))
(buffer-scan-pos flyspell-large-region-beg)
(case-fold-search nil))
case-fold-search)
(with-current-buffer flyspell-external-ispell-buffer
(goto-char (point-min))
;; Loop over incorrect words, in the order they were reported,
@ -1409,8 +1409,7 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
;;* declared correct. */
;;*---------------------------------------------------------------------*/
(defun flyspell-process-localwords (misspellings-buffer)
(let (localwords
(case-fold-search nil)
(let (localwords case-fold-search
(ispell-casechars (ispell-get-casechars)))
;; Get localwords from the original buffer
(save-excursion