From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 18 May 2007 22:32:08 +0000 (+0000)
Subject: (ispell-get-word): Return markers for start and end positions.
X-Git-Tag: emacs-22.1~92
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=64953c0a99a725ba3fb74b34b25a751cbb3cce4a;p=emacs.git

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