Re: Number of open buffers?

[David Kastrup]

Ignoramus1904 <ignoramus1904@NOSPAM.1904.invalid> writes:

> In article <m31xs2c3na.fsf@localhost.localdomain>, Micah Cowan wrote:
> > Ignoramus1904 <ignoramus1904@NOSPAM.1904.invalid> writes:
> > 
> >> Eli Zaretskii wrote:
> >> >> From: Ignoramus1904 <ignoramus1904@NOSPAM.1904.invalid>
> >> >> 
> >> >> I want to modify it so that if the # of open file buffers is more than
> >> >> one, emacs would ask YES/NO, if less, I exit. I am a very bad lisp
> >> >> programmer, any suggestions?
> >> > 
> >> > 
> >> > For a more bullet-proof code, walk the buffer list returned by the
> >> > function buffer-list, and filter out any buffer which doesn't have a
> >> > file associated with it (its buffer-file-name will be nil).  What is
> >> > left are the buffers which visit files.
> >> > 
> >> 
> >> Thanks Eli, sounds a little bit above my head to be honest. I do C++
> >> and Perl and do not know Lisp well. I just thought that there was a
> >> function like get-number-of-file-buffers, or something like that.
> > 
> > The following is what he's talking about, I think:
> > 
> > (defun get-number-of-file-buffers ()
> >   (interactive)
> >   (let (num)
> >     (setq num 0)
> >     (dolist (buf (buffer-list))
> >       (when (buffer-file-name buf)
> >           (setq num (+ num 1))
> >       ))
> >     num
> >     )
> >   )

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

> Thanks. When I try to run it via eval-expr, saying
> 
> (insert get-number-of-file-buffers)
> 
> It says: Error: void-variable. Data: get-number-of-file-buffers

Yes.  One calls a function by putting it after an opening
parenthesis.  The way you tried to "call" it, just a variable of that
name got referenced, and there is no such variable.  In addition, the
function returns a numeric expression, and `insert' expects a string.

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum