/[emacs]/emacs/lisp/textmodes/flyspell.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/flyspell.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.81 by rms, Fri Oct 28 04:22:19 2005 UTC revision 1.82 by rms, Sun Oct 30 15:52:07 2005 UTC
# Line 1356  The buffer to mark them in is `flyspell- Line 1356  The buffer to mark them in is `flyspell-
1356                    (progn                    (progn
1357                      (setq flyspell-large-region-beg (point))                      (setq flyspell-large-region-beg (point))
1358                      (goto-char (- (point) 1))                      (goto-char (- (point) 1))
1359                      (setq keep (flyspell-word)))                      (setq keep
1360                              ;; Detect when WORD can't be checked properly
1361                              ;; because flyspell-get-word finds
1362                              ;; just part of it, and treat that as ok.
1363                              (if (< (length (flyspell-get-word following))
1364                                     (length word))
1365                                  nil
1366                                (flyspell-word))))
1367                  (error "Bug: misspelled word `%s' (output pos %d) not found in buffer"                  (error "Bug: misspelled word `%s' (output pos %d) not found in buffer"
1368                         word wordpos)))))))                         word wordpos)))))))
1369      ;; we are done      ;; we are done

Legend:
Removed from v.1.81  
changed lines
  Added in v.1.82

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26