From 8062d993f4d325197b063e950ce6f677a22adc3e Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 10 Nov 1998 07:06:12 +0000 Subject: [PATCH] (ispell-get-coding-system): Default to iso-latin-1. (ispell-process-line): Don't treat multibyte --- lisp/textmodes/ispell.el | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 3ac18011d5a..407bf471afb 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -694,7 +694,11 @@ used as key in `ispell-dictionary-alist' (which see).") (defun ispell-get-extended-character-mode () (nth 6 (assoc ispell-dictionary ispell-dictionary-alist))) (defun ispell-get-coding-system () - (nth 7 (assoc ispell-dictionary ispell-dictionary-alist))) + (or (nth 7 (assoc ispell-dictionary ispell-dictionary-alist)) + ;; We default to Latin-1 because otherwise multibyte + ;; characters cause synchronization confusion + ;; with the Ispell process. + 'iso-latin-1)) (defvar ispell-process nil "The process object for Ispell.") @@ -2133,16 +2137,7 @@ Return non-nil if not aborted." ;; Markers can move with highlighting! This destroys ;; end of region markers line-end and ispell-region-end (let ((word-start - (copy-marker - (if (and (boundp 'enable-multibyte-characters) - enable-multibyte-characters - (ispell-get-coding-system)) - ;; skip over multibyte characters correctly - (save-excursion - (goto-char (+ start ispell-offset)) - (forward-char (car (cdr poss))) - (point)) - (+ start ispell-offset (car (cdr poss)))))) + (copy-marker (+ start ispell-offset (car (cdr poss))))) (word-len (length (car poss))) (line-end (copy-marker end)) (line-start (copy-marker start)) -- 2.39.2