[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: backup dired marks
From: |
Juanma Barranquero |
Subject: |
Re: backup dired marks |
Date: |
Fri, 22 Feb 2002 15:19:13 +0100 |
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))))