emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix(dired): prevent auto-revert in dired-virtual-mode

Browse source 
dired-virtual-revert (the revert handler for dired-virtual buffers)
simply errors out and prompts the user if they want to switch to a
"real" dired buffer. This isn't helpful the automated nature of
auto-revert, so silence it.
This commit is contained in:
Henrik Lissner 2022-02-14 17:19:19 +01:00
parent cc1433ca6d
commit fc868105ce
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
modules/emacs/dired/config.el
View file

@ -3,9 +3,10 @@
(use-package! dired (use-package! dired
:commands dired-jump :commands dired-jump
:init :init
(setq dired-auto-revert-buffer (lambda (dir) (not (file-remote-p dir))) ; don't prompt to revert; just do it (setq dired-dwim-target t ; suggest a target for moving/copying intelligently
dired-dwim-target t ; suggest a target for moving/copying intelligently
dired-hide-details-hide-symlink-targets nil dired-hide-details-hide-symlink-targets nil
;; don't prompt to revert, just do it
dired-auto-revert-buffer #'dired-buffer-stale-p
;; Always copy/delete recursively ;; Always copy/delete recursively
dired-recursive-copies 'always dired-recursive-copies 'always
dired-recursive-deletes 'top dired-recursive-deletes 'top
@ -50,6 +51,11 @@ Fixes #3939: unsortable dired entries on Windows."
;; Don't complain about this command being disabled when we use it ;; Don't complain about this command being disabled when we use it
(put 'dired-find-alternate-file 'disabled nil) (put 'dired-find-alternate-file 'disabled nil)
(defadvice! +dired--no-revert-in-virtual-buffers-a (&rest args)
"Don't auto-revert in dired-virtual buffers (see `dired-virtual-revert')."
:before-while #'dired-buffer-stale-p
(not (eq revert-buffer-function #'dired-virtual-revert)))
(map! :map dired-mode-map (map! :map dired-mode-map
;; Kill all dired buffers on q ;; Kill all dired buffers on q
:ng "q" #'+dired/quit-all :ng "q" #'+dired/quit-all