Re: backup dired marks

[Juanma Barranquero]

On Thu, 21 Feb 2002 18:49:49 +0100, Juanma Barranquero <lektu@terra.es> wrote:

> Other than having in your .emacs something like that?

Sorry, that didn't work. This does, and is still easy.

                                                           /L/e/k/t/u


(require 'cl)

(defvar dired-buffer-list nil)

(add-hook 'dired-mode-hook
          #'(lambda ()
              (add-to-list 'dired-buffer-list (current-buffer))
              (setq dired-buffer-list (delete-if-not #'buffer-live-p
                                                     dired-buffer-list))))

(add-hook 'kill-emacs-query-functions
          #'(lambda ()
              (let (result)
                (dolist (buffer dired-buffer-list)
                  (when (and (buffer-live-p buffer)
                             (buffer-modified-p buffer))
                    (setq result (cons (buffer-name buffer) result))))
                (if result
                    (prog1
                        (y-or-n-p (format "Modified dired buffers (%s), do you 
want to exit "
                                          (reduce #'(lambda (a b) (concat a ", 
" b)) result)))
                      (message nil))
                  t))))