mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-24 05:47:36 +00:00
Work around bad interaction between dired-omit-mode and recover-session
* lisp/files.el (recover-session): Add ugly hack to try to ensure that we're actually showing the session files (bug#36223).
This commit is contained in:
parent
3f594fef9e
commit
ccea37f6ac
1 changed files with 8 additions and 1 deletions
|
|
@ -6211,6 +6211,8 @@ an auto-save file."
|
|||
(after-find-file nil nil t))
|
||||
(t (user-error "Recover-file canceled")))))
|
||||
|
||||
(defvar dired-mode-hook)
|
||||
|
||||
(defun recover-session ()
|
||||
"Recover auto save files from a previous Emacs session.
|
||||
This command first displays a Dired buffer showing you the
|
||||
|
|
@ -6230,7 +6232,12 @@ Then you'll be asked about a number of files to recover."
|
|||
(concat "\\`" (regexp-quote nd)))
|
||||
t)
|
||||
(error "No previous sessions to recover")))
|
||||
(let ((ls-lisp-support-shell-wildcards t))
|
||||
(require 'dired)
|
||||
(let ((ls-lisp-support-shell-wildcards t)
|
||||
;; Ensure that we don't omit the session files as the user may
|
||||
;; have (as suggested by the manual) `dired-omit-mode' in the
|
||||
;; hook.
|
||||
(dired-mode-hook (delete 'dired-omit-mode dired-mode-hook)))
|
||||
(dired (concat auto-save-list-file-prefix "*")
|
||||
(concat dired-listing-switches " -t")))
|
||||
(use-local-map (nconc (make-sparse-keymap) (current-local-map)))
|
||||
|
|
|
|||
Loading…
Reference in a new issue