Re: Number of open buffers?

[Johan Bockgård]

David Kastrup <dak@gnu.org> writes:

> Somewhat shorter:
>
> (defun get-number-of-file-buffers ()
>   (interactive)
>   (let ((num 0))
>     (dolist (buf (buffer-list) num)
>       (when (buffer-file-name buf)
>           (setq num (1+ num))))))

If you are allowed to use `cl':

    ...
    (count-if 'buffer-file-name (buffer-list))

-- 
Johan Bockgård