(ispell-get-word): Return markers for start and end positions.

(ispell-word): Assume END is a marker.

2 files changed, 22 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 22aab5cfe4d..490a740c4fc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,22 @@
+2007-05-18  Rob Riepel  <riepel@Stanford.EDU>
+
+        * emulation/tpu-edt.el (CSI-map, SS3-map) Moved from global-map to
+        tpu-global-map.
+        (tpu-original-global-map) Variable deleted.
+        (tpu-control-keys-map) New keymap variable.
+        (tpu-set-control-keys) Use tpu-reset-control-keys rather than
+        setting keymapping directly.
+        (tpu-reset-control-keys) Use tpu-control-keys-map instead of
+        tpu-global-map.
+        (tpu-edt-on): Activate the tpu-global-map.
+        (tpu-edt-off): Deactivate the tpu-global-map.
+        
+2007-05-18  Ryan Yeske  <rcyeske@gmail.com>
+
+        * textmodes/ispell.el (ispell-get-word): Return markers
+        for start and end positions.
+        (ispell-word): Assume END is a marker.
+
 2007-05-17  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
         * ps-print.el: Use default color when foreground or background color
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))))