Re: how do I know that the buffer is narrowed

[David Kastrup]

Giorgos Keramidas <keramida@ceid.upatras.gr> writes:

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

It is impolite to let your parens do more work than necessary.

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum