Re: Number of open buffers?

[David Kastrup]

lawrence mitchell <wence@gmx.li> writes:

> David Kastrup wrote:
> 
> [...]
> 
> > (defun get-number-of-file-buffers ()
> >   (interactive)
> >   (let ((num 0))
> >     (dolist (buf (buffer-list) num)
> >       (when (buffer-file-name buf)
> >           (setq num (1+ num))))))
> 
> Assuming cl is loaded:
> 
> (defun get-number-of-file-buffers ()
>   (loop for b in (buffer-list) count (buffer-file-name b)))
> 

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



-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum