Mercurial > emacs
changeset 77748:21c0fd9e61cb
(ispell-get-word): Return markers for start and end positions.
(ispell-word): Assume END is a marker.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 18 May 2007 22:31:48 +0000 |
| parents | d973d3fcb308 |
| children | 7398eadfb65d |
| files | lisp/textmodes/ispell.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/ispell.el Fri May 18 22:31:25 2007 +0000 +++ b/lisp/textmodes/ispell.el Fri May 18 22:31:48 2007 +0000 @@ -1669,7 +1669,7 @@ ;; to avoid collapsing markers before and after ;; into a single place. (ispell-insert-word new-word) - (delete-region (point) (+ (point) (- end start))) + (delete-region (point) end) ;; It is meaningless to preserve the cursor position ;; inside a word that has changed. (setq cursor-location (point)) @@ -1751,8 +1751,8 @@ ;; return dummy word when just flagging misspellings (list "" (point) (point)) (error "No word found to check!")) - (setq start (match-beginning 0) - end (point) + (setq start (copy-marker (match-beginning 0)) + end (point-marker) word (buffer-substring-no-properties start end)) (list word start end))))