procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ispell-get-coding-system): Default to iso-latin-1.

Browse source 
(ispell-process-line): Don't treat multibyte
This commit is contained in:
Karl Heuer 1998-11-10 07:06:12 +00:00
parent 3583e969a4
commit 8062d993f4
1 changed files with 6 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/textmodes/ispell.el
View file

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