Mercurial > emacs
comparison lisp/textmodes/=ispell4.el @ 4933:581f2c0b75f2
(ispell-message): Delete excess (beginning-of-line) call.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 08 Nov 1993 13:25:13 +0000 |
| parents | 2b5e416494d1 |
| children | 346d921eaf3b |
comparison
equal
deleted
inserted
replaced
| 4932:5986d619b4ca | 4933:581f2c0b75f2 |
|---|---|
| 996 ;; Check the next batch of lines that *aren't* cited. | 996 ;; Check the next batch of lines that *aren't* cited. |
| 997 (let ((start (point))) | 997 (let ((start (point))) |
| 998 (if (re-search-forward | 998 (if (re-search-forward |
| 999 (concat "^\\(" cite-regexp "\\)") nil 'end) | 999 (concat "^\\(" cite-regexp "\\)") nil 'end) |
| 1000 (beginning-of-line)) | 1000 (beginning-of-line)) |
| 1001 (beginning-of-line) | |
| 1002 (let ((case-fold-search old-case-fold-search)) | 1001 (let ((case-fold-search old-case-fold-search)) |
| 1003 (save-excursion | 1002 (save-excursion |
| 1004 (setq continue (ispell-region (- start 1) (point)))))))))))) | 1003 (setq continue (ispell-region (- start 1) (point)))))))))))) |
| 1005 | 1004 |
| 1006 (provide 'ispell) | 1005 (provide 'ispell) |