diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-05-18 22:32:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-05-18 22:32:08 +0000 |
| commit | 64953c0a99a725ba3fb74b34b25a751cbb3cce4a (patch) | |
| tree | a6a41ac33467b7af5c0ad35f6f886adffec1a10d /lisp/textmodes/ispell.el | |
| parent | ce8fd9f3cbad01403813a348228812ccc81d8681 (diff) | |
| download | emacs-64953c0a99a725ba3fb74b34b25a751cbb3cce4a.tar.gz | |
(ispell-get-word): Return markers for start and end positions.
(ispell-word): Assume END is a marker.
Diffstat (limited to 'lisp/textmodes/ispell.el')
| -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." ;; 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 @@ which is in `ispell-local-dictionary-alist' or `ispell-dictionary-alist'." ;; 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)))) |