Re: buffer-list and desktop

[Kevin Rodgers]

Kevin Rodgers wrote:
> Here's a start:

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

--
Kevin Rodgers