Re: how do I know that the buffer is narrowed

[Giorgos Keramidas]

On Thu, 01 Dec 2005 00:10:01 +0100, David Kastrup <dak@gnu.org> wrote:
> bojohan+news@dd.chalmers.se (Johan Bockgård) writes:
>>> (defun narrowedp ()
>>>   (not (equal (list (point-min) (point-max))
>>>               (save-restriction (widen) (list (point-min) (point-max))))))
>>
>>
>> (not (and (= (point-min) 1)
>>           (= (point-max) (1+ (buffer-size)))))
>
> (<(-(point-max)(point-min))(buffer-size))

Pfeh!  Is there any good reason to obfuscate the beautiful:

    (not (and (= (point-min) 1)
              (= (point-max) (1+ (buffer-size)))))

*and* remove all its spaces? :)