HOWTO: Ispell multiple regions?

HOWTO: Ispell multiple regions?

[Ilya Zakharevich]

I have some ELisp code to select several regions in my file (e.g.,
those having text property ispell).  How would I Ispell these regions?

AFAIC, ispell-region() does not provide a way to query "the status of
operation".  Thus my idea is that the following code:

  (my-map-regions
   (function
    (lambda (s e)
      (ispell-region s e)
      ;; Bulk out if user pressed 'x' or 'q' - but HOWTO?
      )))

would not be easily breakable out by 'x' or 'q'.

Now what?

Thanks,
Ilya

Re: HOWTO: Ispell multiple regions?

[Edward O'Connor]

Ilya Zakharevich wrote:

> How would I Ispell these regions?

Have you seen multi-region.el? I think it does exactly what you want.

               http://purl.org/NET/wence/multi-region.el

Ted

-- 
Edward O'Connor
hober0@gmail.com

Ense petit placidam sub libertate quietem.

Re: HOWTO: Ispell multiple regions?

[Ilya Zakharevich]

[A complimentary Cc of this posting was sent to
Edward O'Connor 
<hober0@gmail.com>], who wrote in article <mailman.11699.1129609328.20277.help-gnu-emacs@gnu.org>:
> > How would I Ispell these regions?

> Have you seen multi-region.el? I think it does exactly what you want.
> 
>                http://purl.org/NET/wence/multi-region.el

I do not have a slightest idea how this may relate to my problem
(ispell not returning the status).  I do not see any problem with
applying commands to multiple regions - unless they may want to stop
prematurely...

Thanks,
Ilya

Re: HOWTO: Ispell multiple regions?

[Kevin Rodgers]

Ilya Zakharevich wrote:
 > I have some ELisp code to select several regions in my file (e.g.,
 > those having text property ispell).  How would I Ispell these regions?
 >
 > AFAIC, ispell-region() does not provide a way to query "the status of
 > operation".  Thus my idea is that the following code:
 >
 >   (my-map-regions
 >    (function
 >     (lambda (s e)
 >       (ispell-region s e)
 >       ;; Bulk out if user pressed 'x' or 'q' - but HOWTO?
 >       )))
 >
 > would not be easily breakable out by 'x' or 'q'.

What commands are invoked by `x' and `q' in ispell-region?

You could advise those commands to throw to a tag that you establish
with catch.

-- 
Kevin Rodgers

Re: HOWTO: Ispell multiple regions?

[Ilya Zakharevich]

[A complimentary Cc of this posting was sent to
Kevin Rodgers 
<ihs_4664@yahoo.com>], who wrote in article <mailman.11780.1129660075.20277.help-gnu-emacs@gnu.org>:
>  > AFAIC, ispell-region() does not provide a way to query "the status of
>  > operation".  Thus my idea is that the following code:
>  >
>  >   (my-map-regions
>  >    (function
>  >     (lambda (s e)
>  >       (ispell-region s e)
>  >       ;; Bulk out if user pressed 'x' or 'q' - but HOWTO?
>  >       )))
>  >
>  > would not be easily breakable out by 'x' or 'q'.
> 
> What commands are invoked by `x' and `q' in ispell-region?
> 
> You could advise those commands to throw to a tag that you establish
> with catch.

No such command.  See `ispell-command-loop'.  Of course, one could
advise ispell-command-loop itself to propagate ispell-quit (which is
going to be reset to nil later) to, e.g., ispell-quit-pos.

Is it possible to do advising "locally" (like let()ting), so it is
automatically undone when the calling function exits?

Thanks,
Ilya

Re: HOWTO: Ispell multiple regions?

[Kevin Rodgers]

[-- Attachment #1: Type: text/plain, Size: 1582 bytes --]

Ilya Zakharevich wrote:
 > [A complimentary Cc of this posting was sent to Kevin Rodgers
 > <ihs_4664@yahoo.com>], who wrote in article
 > <mailman.11780.1129660075.20277.help-gnu-emacs@gnu.org>:
 >
 >>What commands are invoked by `x' and `q' in ispell-region?
 >>
 >>You could advise those commands to throw to a tag that you establish
 >>with catch.
 >
 > No such command.  See `ispell-command-loop'.  Of course, one could
 > advise ispell-command-loop itself to propagate ispell-quit (which is
 > going to be reset to nil later) to, e.g., ispell-quit-pos.
 >
 > Is it possible to do advising "locally" (like let()ting), so it is
 > automatically undone when the calling function exits?

Ah, ispell-command-loop.  I should have remembered that, since I had to
rewrite the whole thing in order to implement a simple change I wanted
(to index the *Choices* buffer with numbers instead of characters).  To
keep it clean, I extracted those command characters into their own
keymap.

If you start with what I wrote (ispell-command-loop.el, which I'm
attaching), then you could get access to those anonymous commands like
this:

(defconst ispell-x-command (lookup-key ispell-command-loop-map "x"))
(defconst ispell-q-command (lookup-key ispell-command-loop-map "q"))

And then modify the bindings to do what you want:

(define-key ispell-command-loop-map "x"
   (lambda ()
     (interactive)
     (throw 'my-tag (funcall ispell-x-command))))

(define-key ispell-command-loop-map "q"
   (lambda ()
     (interactive)
     (throw 'my-tag (funcall ispell-q-command))))

-- 
Kevin Rodgers


[-- Attachment #2: ispell-command-loop.el --]
[-- Type: application/emacs-lisp, Size: 11680 bytes --]

[-- Attachment #3: Type: text/plain, Size: 152 bytes --]

_______________________________________________
Help-gnu-emacs mailing list
Help-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs