Narrowing to non-adjacent regions

["davidjneu@gmail.com" <neu@rutcor.rutgers.edu>]

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)))