Mercurial > emacs

comparison lisp/textmodes/=ispell4.el @ 2888:e931a98b2f36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ispell-command-loop): Make an undo boundary.
author Richard M. Stallman <rms@gnu.org>
date Wed, 19 May 1993 04:44:11 +0000
parents 00f822101e49
children 6b8a9fb0537c
comparison
equal deleted inserted replaced
2887:0554478bfa71 2888:e931a98b2f36
491 (setq first-line (concat "No near misses for '" word "'")) 491 (setq first-line (concat "No near misses for '" word "'"))
492 (setq first-line (concat "Near misses for '" word "'"))) 492 (setq first-line (concat "Near misses for '" word "'")))
493 (while flag 493 (while flag
494 (ispell-show-choices word message first-line) 494 (ispell-show-choices word message first-line)
495 (message "Ispell command: ") 495 (message "Ispell command: ")
496 (undo-boundary)
496 (let ((c (downcase (read-char))) 497 (let ((c (downcase (read-char)))
497 replacement) 498 replacement)
498 (cond ((and (>= c ?0) 499 (cond ((and (>= c ?0)
499 (<= c ?9) 500 (<= c ?9)
500 (setq replacement (nth (- c ?0) message))) 501 (setq replacement (nth (- c ?0) message)))