Re: Narrowing to non-adjacent regions

[Andreas Röhler]

Am Mittwoch, 30. Januar 2008 20:42 schrieb davidjneu@gmail.com:
> Hi,
>
> Hi, I'm wondering if it's possible to narrow a buffer so that multiple
> non-adjacent
> regions are displayed.
>
> The code snippet below doesn't work, but conveys what I'm looking for.
>
> Many thanks!
>
> Cheers,
> David
>
> (defun narrow-two ()
>   (interactive "*")
>   (widen)
>   (goto-char (point-min))
>   (let ((start-1 (point))
>       (end-1 (progn (next-line 5) (point)))
>       (start-2 (progn (next-line 7) (point)))
>       (end-2 (progn (end-of-buffer) (point))))
>   (narrow-to-region start-1 end-1)
>   (narrow-to-region start-2 end-2)))
> _______________________________________________


here is multi-region.el

working right out of the box.

http://www.ph.ed.ac.uk/~s0198183/multi-region.el

It comes with a command

,----
| (defun multi-region-execute-command (&optional arg cmd)
|   "Perform a command on all active multi-regions.
`----

Remains just to revert that, making it work at all
non-active parts.

Andreas Röhler