Re: Number of open buffers?

[David Kastrup]

lawrence mitchell <wence@gmx.li> writes:

> David Kastrup wrote:
> 
> [...]
> 
> > Wel, if we want to squeeze characters of source, we can do so without
> > cl, too.
> 
> > (defun get-number-of-file-buffers ()
> >   (apply '+ (mapcar (lambda(x)(if(buffer-file-name x)1 0)) (buffer-list))))
> 
> I see your apply and raise you a:
> 
> (defun get-number-of-file-buffers ()
>   (length (delq nil (mapcar 'buffer-file-name (buffer-list)))))

I was looking for something like that, but the delq escaped me.

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum