Mercurial > emacs
comparison lisp/textmodes/flyspell.el @ 77581:460403d9f673
(flyspell-auto-correct-previous-word): Use window-start and
window-end.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 27 Apr 2007 18:53:31 +0000 |
| parents | b2648f8ce834 |
| children | ac2665c1975b 70bf32a0f523 |
comparison
equal
deleted
inserted
replaced
| 77580:24101cde7185 | 77581:460403d9f673 |
|---|---|
| 1959 (defun flyspell-auto-correct-previous-word (position) | 1959 (defun flyspell-auto-correct-previous-word (position) |
| 1960 "Auto correct the first mispelled word that occurs before point. | 1960 "Auto correct the first mispelled word that occurs before point. |
| 1961 But don't look beyond what's visible on the screen." | 1961 But don't look beyond what's visible on the screen." |
| 1962 (interactive "d") | 1962 (interactive "d") |
| 1963 | 1963 |
| 1964 (let (top bot) | 1964 (let ((top (window-start)) |
| 1965 (save-excursion | 1965 (bot (window-end))) |
| 1966 (move-to-window-line 0) | |
| 1967 (setq top (point)) | |
| 1968 (move-to-window-line -1) | |
| 1969 (setq bot (point))) | |
| 1970 (save-excursion | 1966 (save-excursion |
| 1971 (save-restriction | 1967 (save-restriction |
| 1972 (narrow-to-region top bot) | 1968 (narrow-to-region top bot) |
| 1973 (overlay-recenter (point)) | 1969 (overlay-recenter (point)) |
| 1974 | 1970 |