buffer-narrowed-p

buffer-narrowed-p

[Lennart Borgman]

Could this perhaps be included in Emacs?

';;;###autoload
(defun buffer-narrowed-p ()
  "Return non-nil if the current buffer is narrowed."
  (/= (buffer-size)
      (- (point-max)
         (point-min))))

Re: buffer-narrowed-p

[Deniz Dogan]

2009/10/11 Lennart Borgman <lennart.borgman@gmail.com>:
> Could this perhaps be included in Emacs?
>
> ';;;###autoload
> (defun buffer-narrowed-p ()
>  "Return non-nil if the current buffer is narrowed."
>  (/= (buffer-size)
>      (- (point-max)
>         (point-min))))
>
>
>

I was almost certain a function like this existed already. Am I mistaken?

-- 
Deniz Dogan

Re: buffer-narrowed-p

[Lennart Borgman]

On Sun, Oct 11, 2009 at 10:48 PM, Deniz Dogan <deniz.a.m.dogan@gmail.com> wrote:
> 2009/10/11 Lennart Borgman <lennart.borgman@gmail.com>:
>> Could this perhaps be included in Emacs?
>>
>> ';;;###autoload
>> (defun buffer-narrowed-p ()
>>  "Return non-nil if the current buffer is narrowed."
>>  (/= (buffer-size)
>>      (- (point-max)
>>         (point-min))))
>>
>>
>>
>
> I was almost certain a function like this existed already. Am I mistaken?


I thought so too, but it is actually part of nXhtml ... ;-)

buffer-narrowed-p

[Andreas Röhler]

Hi,

a couple of functions should behave different if buffer
is narrowed, i.e. taking narrowing already as
users decision to work on it, dismissing check for region
then.

As its used repeatedly, here an essay to solve it one
for all:

(defun buffer-narrowed-p ()
   (interactive)
   "Returns t, if buffer is narrowed. "
   (save-restriction
     (lexical-let ((beg (point-min))
                   (end (point-max))
                   erg)
       (widen)
       (setq erg (not (and (eq beg (point-min)) (eq end (point-max)))))
       (when (interactive-p)
         (if erg (message "Buffer is narrowed to: %d %d" beg end)
           (message "Buffer not narrowed: %s" "nil")))
       erg)))

Comments welcome :-)

Andreas

--
https://code.launchpad.net/~a-roehler/python-mode
https://code.launchpad.net/s-x-emacs-werkstatt/

Re: buffer-narrowed-p

[Lennart Borgman]

On Sat, Aug 14, 2010 at 2:33 PM, Andreas Röhler
<andreas.roehler@easy-emacs.de> wrote:
>
>
> Hi,
>
> a couple of functions should behave different if buffer
> is narrowed, i.e. taking narrowing already as
> users decision to work on it, dismissing check for region
> then.
>
> As its used repeatedly, here an essay to solve it one
> for all:
>
> (defun buffer-narrowed-p ()
>  (interactive)
>  "Returns t, if buffer is narrowed. "
>  (save-restriction
>    (lexical-let ((beg (point-min))
>                  (end (point-max))
>                  erg)
>      (widen)
>      (setq erg (not (and (eq beg (point-min)) (eq end (point-max)))))
>      (when (interactive-p)
>        (if erg (message "Buffer is narrowed to: %d %d" beg end)
>          (message "Buffer not narrowed: %s" "nil")))
>      erg)))
>
> Comments welcome :-)


I have this (which I think I stole from a comment by Stefan) in
ourcomments-util.el in nXhtml:

;;;###autoload
(defun buffer-narrowed-p ()
  "Return non-nil if the current buffer is narrowed."
  (/= (buffer-size)
      (- (point-max)
         (point-min))))

Re: buffer-narrowed-p

[Andreas Röhler]

Am 14.08.2010 14:39, schrieb Lennart Borgman:
> On Sat, Aug 14, 2010 at 2:33 PM, Andreas Röhler
> <andreas.roehler@easy-emacs.de>  wrote:
>>
>>
>> Hi,
>>
>> a couple of functions should behave different if buffer
>> is narrowed, i.e. taking narrowing already as
>> users decision to work on it, dismissing check for region
>> then.
>>
>> As its used repeatedly, here an essay to solve it one
>> for all:
>>
>> (defun buffer-narrowed-p ()
>>   (interactive)
>>   "Returns t, if buffer is narrowed. "
>>   (save-restriction
>>     (lexical-let ((beg (point-min))
>>                   (end (point-max))
>>                   erg)
>>       (widen)
>>       (setq erg (not (and (eq beg (point-min)) (eq end (point-max)))))
>>       (when (interactive-p)
>>         (if erg (message "Buffer is narrowed to: %d %d" beg end)
>>           (message "Buffer not narrowed: %s" "nil")))
>>       erg)))
>>
>> Comments welcome :-)
>
>
> I have this (which I think I stole from a comment by Stefan) in
> ourcomments-util.el in nXhtml:
>
> ;;;###autoload
> (defun buffer-narrowed-p ()
>    "Return non-nil if the current buffer is narrowed."
>    (/= (buffer-size)
>        (- (point-max)
>           (point-min))))
>

Should be faster, thanks!