Re: buffer-list and desktop

[Jesper Harder]

Kevin Rodgers <ihs_4664@yahoo.com> writes:

> Gotta get used to using with-current-buffer:
>
> (defun desktop-list-buffers ()
>   "Return the list of buffers that `desktop-save' would save."
>   (nreverse
>    (apply 'nconc
>           (mapcar (lambda (buffer)
>                     (with-current-buffer buffer
>                       (if (desktop-save-buffer-p (buffer-file-name)
>                                                  (buffer-name)
>                                                  major-mode)
>                           (list buffer))))
>                   (buffer-list)))))

Or if you don't mind requiring cl:

(delete-if-not
   (lambda (buf)
     (desktop-save-buffer-p (buffer-file-name buf) (buffer-name buf) 
                            (buffer-local-value 'major-mode buf)))
   (buffer-list))

-- 
Jesper Harder                                <http://purl.org/harder/>