Mercurial > emacs
comparison lisp/textmodes/flyspell.el @ 69270:396834ac06ac
(flyspell-process-localwords): Be case-sensitive.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Fri, 03 Mar 2006 12:27:49 +0000 |
parents | 877f109009ca |
children | 385f9e668650 a7364c1a561e |
comparison
equal
deleted
inserted
replaced
69269:0fd88dd2d6b4 | 69270:396834ac06ac |
---|---|
1408 ;;* This function is used to prevent marking of words explicitly */ | 1408 ;;* This function is used to prevent marking of words explicitly */ |
1409 ;;* declared correct. */ | 1409 ;;* declared correct. */ |
1410 ;;*---------------------------------------------------------------------*/ | 1410 ;;*---------------------------------------------------------------------*/ |
1411 (defun flyspell-process-localwords (misspellings-buffer) | 1411 (defun flyspell-process-localwords (misspellings-buffer) |
1412 (let (localwords | 1412 (let (localwords |
1413 (case-fold-search nil) | |
1413 (ispell-casechars (ispell-get-casechars))) | 1414 (ispell-casechars (ispell-get-casechars))) |
1414 ;; Get localwords from the original buffer | 1415 ;; Get localwords from the original buffer |
1415 (save-excursion | 1416 (save-excursion |
1416 (goto-char (point-min)) | 1417 (goto-char (point-min)) |
1417 ;; Localwords parsing copied from ispell.el. | 1418 ;; Localwords parsing copied from ispell.el. |