From 64953c0a99a725ba3fb74b34b25a751cbb3cce4a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 18 May 2007 22:32:08 +0000 Subject: [PATCH] (ispell-get-word): Return markers for start and end positions. (ispell-word): Assume END is a marker. --- lisp/ChangeLog | 19 +++++++++++++++++++ lisp/textmodes/ispell.el | 6 +++--- 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 + + * 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 + + * 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 * 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)))) -- 2.39.5