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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 22aab5c..490a740 100644 (file)
--- 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 e4b2dd9..b274185 100644 (file)
--- 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))))