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

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

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

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))))