diff options
| author | Richard M. Stallman | 2007-05-18 22:32:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2007-05-18 22:32:08 +0000 |
| commit | 64953c0a99a725ba3fb74b34b25a751cbb3cce4a (patch) | |
| tree | a6a41ac33467b7af5c0ad35f6f886adffec1a10d /lisp/textmodes | |
| parent | ce8fd9f3cbad01403813a348228812ccc81d8681 (diff) | |
| download | emacs-64953c0a99a725ba3fb74b34b25a751cbb3cce4a.tar.gz emacs-64953c0a99a725ba3fb74b34b25a751cbb3cce4a.zip | |
(ispell-get-word): Return markers for start and end positions.
(ispell-word): Assume END is a marker.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/ispell.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index e4b2dd9f040..b274185bf17 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el | |||
| @@ -1669,7 +1669,7 @@ quit spell session exited." | |||
| 1669 | ;; to avoid collapsing markers before and after | 1669 | ;; to avoid collapsing markers before and after |
| 1670 | ;; into a single place. | 1670 | ;; into a single place. |
| 1671 | (ispell-insert-word new-word) | 1671 | (ispell-insert-word new-word) |
| 1672 | (delete-region (point) (+ (point) (- end start))) | 1672 | (delete-region (point) end) |
| 1673 | ;; It is meaningless to preserve the cursor position | 1673 | ;; It is meaningless to preserve the cursor position |
| 1674 | ;; inside a word that has changed. | 1674 | ;; inside a word that has changed. |
| 1675 | (setq cursor-location (point)) | 1675 | (setq cursor-location (point)) |
| @@ -1751,8 +1751,8 @@ which is in `ispell-local-dictionary-alist' or `ispell-dictionary-alist'." | |||
| 1751 | ;; return dummy word when just flagging misspellings | 1751 | ;; return dummy word when just flagging misspellings |
| 1752 | (list "" (point) (point)) | 1752 | (list "" (point) (point)) |
| 1753 | (error "No word found to check!")) | 1753 | (error "No word found to check!")) |
| 1754 | (setq start (match-beginning 0) | 1754 | (setq start (copy-marker (match-beginning 0)) |
| 1755 | end (point) | 1755 | end (point-marker) |
| 1756 | word (buffer-substring-no-properties start end)) | 1756 | word (buffer-substring-no-properties start end)) |
| 1757 | (list word start end)))) | 1757 | (list word start end)))) |
| 1758 | 1758 | ||