Path: utzoo!attcan!uunet!munnari!vuwcomp!mark From: mark@comp.vuw.ac.nz (Mark Davies) Newsgroups: comp.emacs Subject: Re: ispell.el (Yet again) again Message-ID: <13898@comp.vuw.ac.nz> Date: 30 Jun 88 00:26:50 GMT References: <13865@comp.vuw.ac.nz> Reply-To: mark@comp.vuw.ac.nz (Mark Davies) Organization: Comp Sci, Victoria Univ, Wellington, New Zealand Lines: 54 In article <13865@comp.vuw.ac.nz> I write: > o In previous versions of ispell.el space in answer to >ispell-choose meant accept just this instance of the word (ie. it is correct >here but may not be further down in the document so query it again later if >it reoccurs). Ashwin changed it to mean accept the word for this >invocation of ispell-region. I have reverted to the original action. >Perhaps we need an additional option to handle both cases? Len Tower suggested '!' for accepting the word for the entire region. Parallel to how query-replace and query-replace-regexp work. So I have added that option, didn't change the help though---there is no room in the minibuffer. diffs follow. mark *** ispell.el~ Sun Jun 26 14:11:46 1988 --- ispell.el Thu Jun 30 12:01:42 1988 *************** *** 26,31 **** --- 26,33 ---- ;;; Make Query-replace of further occurrences optional ;;; Automatically replace the first instance ;;; Give original word as default when use (r)eplace option + ;;; Thu Jun 30 11:57:06 NZST 1988 + ;;; Added option to ignore word for a single invocation of ispell-region ;;; ;;; Ashwin Ram ARPA: Ram-Ashwin@cs.yale.edu *************** *** 206,212 **** (setq char (read-char)) (setq num (- char ?0)) (cond ((or (= char ? ) (= char ?s)) ; Skip for this instance ! ;; (ispell-ignore-later-occurrences word) nil) ((= char ?a) ; Add to dictionary (send-string ispell-process --- 208,216 ---- (setq char (read-char)) (setq num (- char ?0)) (cond ((or (= char ? ) (= char ?s)) ; Skip for this instance ! nil) ! ((= char ?!) ; Skip for this invocation ! (ispell-ignore-later-occurrences word) nil) ((= char ?a) ; Add to dictionary (send-string ispell-process -- Domainised: mark@comp.vuw.ac.nz Bang form: ...!uunet!vuwcomp!mark