narrowedp?

[Alan Mackenzie <acm@muc.de>]

Hi, Emacs!

There doesn't seem to be a function `narrowedp'.  This is, perhaps, an
unfortunate lack.

It's easy enough to test the lower bound:

    (eq (point-min) 1)

, but the upper bound is a touch tedious:

    (save-restriction
      (let ((reg-end (point-max)))
        (widen)
	(eq reg-end (point-max))))

.  Actually, I really just want to test the lower bound (to know whether
to need to test for point-min being inside a literal).  But testing
point-min against "1" seems a bit unemacsy and unfutureproof.  When
Emacs gets good multi-major-mode facilities, the "beginning of buffer"
will not be 1, rather the beginning of the particular buffer part.  Or
something like that.

-- 
Alan Mackenzie (Nuremberg, Germany).