mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

Backed out changes made by John Wiegley 2000-10-28.

Browse source
This commit is contained in:
Gerd Moellmann 2001-03-26 13:59:00 +00:00
parent 3905e71eb0
commit f216a6b34a
1 changed files with 26 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

56
lisp/textmodes/flyspell.el
View file

@ -2018,7 +2018,7 @@ The word checked is the word at the mouse position."
menu))))
;*---------------------------------------------------------------------*/
;* Some example functions for real autocrrecting xb */
;* Some example functions for real autocrrecting */
;*---------------------------------------------------------------------*/
(defun flyspell-maybe-correct-transposition (beg end poss)
"Apply 'transpose-chars' to all points in the region BEG to END.
@ -2026,24 +2026,17 @@ Return t if any those result in a possible replacement suggested by Ispell
in POSS. Otherwise the change is undone.
This function is meant to be added to 'flyspell-incorrect-hook'."
(when (consp poss)
(when (consp poss)
(catch 'done
(let ((str (buffer-substring beg end))
(i 0) (len (- end beg)) tmp)
(while (< (1+ i) len)
(setq tmp (aref str i))
(aset str i (aref str (1+ i)))
(aset str (1+ i) tmp)
(when (member str (nth 2 poss))
(save-excursion
(goto-char (+ beg i 1))
(transpose-chars 1))
(throw 'done t))
(setq tmp (aref str i))
(aset str i (aref str (1+ i)))
(aset str (1+ i) tmp)
(setq i (1+ i))))
nil)))
(save-excursion
(goto-char (1+ beg))
(while (< (point) end)
(transpose-chars 1)
(when (member (buffer-substring beg end) (nth 2 poss))
(throw 'done t))
(transpose-chars -1)
(forward-char))
nil))))
(defun flyspell-maybe-correct-doubling (beg end poss)
"For each doubled charachter in the region BEG to END, remove one.
@ -2053,18 +2046,21 @@ Ispell in POSS. Otherwise the change is undone.
This function is meant to be added to 'flyspell-incorrect-hook'."
(when (consp poss)
(catch 'done
(let ((str (buffer-substring beg end))
(i 0) (len (- end beg)))
(while (< (1+ i) len)
(when (and (= (aref str i) (aref str (1+ i)))
(member (concat (substring str 0 (1+ i))
(substring str (+ i 2)))
(nth 2 poss)))
(goto-char (+ beg i))
(delete-char 1)
(throw 'done t))
(setq i (1+ i))))
nil)))
(save-excursion
(let ((last (char-after beg))
this)
(goto-char (1+ beg))
(while (< (point) end)
(setq this (char-after))
(if (not (char-equal this last))
(forward-char)
(delete-char 1)
(when (member (buffer-substring beg (1- end)) (nth 2 poss))
(throw 'done t))
;; undo
(insert-char this 1))
(setq last this))
nil)))))
;*---------------------------------------------------------------------*/
;* flyspell-already-abbrevp ... */