Mercurial > emacs
changeset 23671:4fec4f8a1ee2
(ispell-get-coding-system): Default to iso-latin-1.
(ispell-process-line): Don't treat multibyte
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 10 Nov 1998 07:06:12 +0000 |
| parents | 40072cd9d21c |
| children | 2ae7f6e850db |
| files | lisp/textmodes/ispell.el |
| diffstat | 1 files changed, 6 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/ispell.el Tue Nov 10 07:03:05 1998 +0000 +++ b/lisp/textmodes/ispell.el Tue Nov 10 07:06:12 1998 +0000 @@ -694,7 +694,11 @@ (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 @@ ;; 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))