help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

RE: List of buffers under version control?


From: Drew Adams
Subject: RE: List of buffers under version control?
Date: Thu, 28 Jul 2016 14:25:54 -0700 (PDT)

> Glad it helps. You could do something like this to avoid repeating the
> calls to `vc-backend' and `buffer-modified-p':
> 
> (if (loop for buffer in (buffer-list)
>           thereis (and (vc-backend (buffer-file-name buffer))
>                        (buffer-modified-p buffer)))
>     1
>   0)

And are you using this just as a predicate (Boolean test)?
If so, just:

(loop for buffer in (buffer-list)
      thereis (and (vc-backend (buffer-file-name buffer))
                   (buffer-modified-p buffer)))

or

(cl-some (lambda (b)
           (and (vc-backend (buffer-file-name b))
                (buffer-modified-p b)))
         (buffer-list))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]