comparison lisp/files.el @ 12050:b740095d6a47

(multiple-recover-finish): Renamed to recover-session-finish. (recover-session): Changed binding. (recover-session-finish): Doc fix; rewritten using map-y-or-n-p.

12049:0be90c288c4e

  (or (looking-at "Move to the session you want to recover,")
      (let ((inhibit-read-only t))
	(insert "Move to the session you want to recover,\n")
	(insert "then type C-c C-c to select it.\n\n")))
  (use-local-map (nconc (make-sparse-keymap) (current-local-map)))
  (define-key (current-local-map) "\C-c\C-c" 'multiple-recover-finish))

(defun multiple-recover-finish ()
  "Choose one saved session to recover auto-save files from.
This command is used in the special Dired buffer created by
M-x multiple-recover."
  (interactive)
  ;; Get the name of the session file to recover from.
  (let ((file (dired-get-filename))
	(buffer (get-buffer-create " *recover*")))
    (unwind-protect
	(save-excursion
	  ;; Read in the auto-save-list file.
	  (set-buffer buffer)
	  (erase-buffer)
	  (insert-file-contents file)
	  (while (not (eobp))
	    ;; Look at each file entry.
	    (and (not (eolp))
		 (let ((edited-file
			(buffer-substring (point)
					  (save-excursion (end-of-line) (point)))))
		   ;; Offer to recover it.
		   (if (y-or-n-p (format "Recover %s? " edited-file))
		       (save-excursion
			 (recover-file edited-file)))))
	    ;; Skip to the next entry.
	    (forward-line 2)))
      (kill-buffer buffer))))

(defun kill-some-buffers ()
  "For each buffer, ask whether to kill it."
  (interactive)

12050:b740095d6a47

  (or (looking-at "Move to the session you want to recover,")
      (let ((inhibit-read-only t))
	(insert "Move to the session you want to recover,\n")
	(insert "then type C-c C-c to select it.\n\n")))
  (use-local-map (nconc (make-sparse-keymap) (current-local-map)))
  (define-key (current-local-map) "\C-c\C-c" 'recover-session-finish))

(defun recover-session-finish ()
  "Choose one saved session to recover auto-save files from.
This command is used in the special Dired buffer created by
\\[recover-session]."
  (interactive)
  ;; Get the name of the session file to recover from.
  (let ((file (dired-get-filename))
	(buffer (get-buffer-create " *recover*")))
    (unwind-protect
	(save-excursion
	  ;; Read in the auto-save-list file.
	  (set-buffer buffer)
	  (erase-buffer)
	  (insert-file-contents file)
	  (map-y-or-n-p  "Recover %s? "
			 (lambda (file) (save-excursion (recover-file file)))
			 (lambda ()
			   (if (eobp)
			       nil
			     (prog1
				 (buffer-substring-no-properties
				  (point) (progn (end-of-line) (point)))
			       (while (and (eolp) (not (eobp)))
				 (forward-line 2)))))
			 '("file" "files" "recover")))
      (kill-buffer buffer))))

(defun kill-some-buffers ()
  "For each buffer, ask whether to kill it."
  (interactive)