Kill all visited buffers

Kill all visited buffers

[Tim Johnson]

Google has failed me. I'm looking for a way to programmatically kill
all _visited_ buffers. 

Any recommendations?

(emacs GNU Emacs 24.3.1)
thanks
-- 
Tim 
http://www.akwebsoft.com, http://www.tj49.com

RE: Kill all visited buffers

[Drew Adams]

> Google has failed me. I'm looking for a way to programmatically kill
> all _visited_ buffers.

Filter (buffer-list) with function `buffer-file-name'.  E.g.:

(dolist (buf  (cl-remove-if-not #'buffer-file-name (buffer-list)))
  (kill-buffer buf))

Re: Kill all visited buffers

[Tim Johnson]

* Tim Johnson <tim@akwebsoft.com> [151121 11:34]:
> 
> Google has failed me. I'm looking for a way to programmatically kill
> all _visited_ buffers. 
> 
> Any recommendations?
<...> 
Thank you Drew and Pascal
  (and nice code examples too)
cheers
-- 
Tim 
http://www.akwebsoft.com, http://www.tj49.com

Re: Kill all visited buffers

[Pascal J. Bourguignon]

Tim Johnson <tim@akwebsoft.com> writes:

> Google has failed me. I'm looking for a way to programmatically kill
> all _visited_ buffers. 
>
> Any recommendations?

(require 'cl)
(mapc (function kill-buffer)
      (remove-if-not (lambda (buffer)
                       (and (buffer-file-name buffer)
                            (file-exists-p (buffer-file-name buffer))))
                     (buffer-list)))

-- 
__Pascal Bourguignon__                 http://www.informatimago.com/
“The factory of the future will have only two employees, a man and a
dog. The man will be there to feed the dog. The dog will be there to
keep the man from touching the equipment.” -- Carl Bass CEO Autodesk