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