Skip to content

Commit

Permalink
[dired] tiny update
Browse files Browse the repository at this point in the history
  • Loading branch information
c0001 committed Mar 3, 2024
1 parent 942ac2b commit 34dff94
Showing 1 changed file with 16 additions and 8 deletions.
24 changes: 16 additions & 8 deletions elements/core/tentacles/entropy-emacs-basic.el
Original file line number Diff line number Diff line change
Expand Up @@ -396,13 +396,16 @@ caused by dired subroutine `dired-buffers-for-dir', therefore,
there's no need to presist those zombie dired buffers in current
emacs session."
(interactive)
(let (buff
dir
(cbuff (current-buffer)) (cnt 0)
(is-call-directly-p
(memq real-this-command
(list entropy/emacs-inner-sym-for/current-defname
'dired-revert 'revert-buffer))))
(let* (buff
dir
(cbuff (current-buffer))
(cbuff-of-local-fs-p
(not (file-remote-p (with-current-buffer cbuff default-directory))))
(cnt 0)
(is-call-directly-p
(memq real-this-command
(list entropy/emacs-inner-sym-for/current-defname
'dired-revert 'revert-buffer))))
(entropy/emacs-message-simple-progress-message
"killing non existed dir bound dired buffers"
:with-temp-message t
Expand All @@ -417,7 +420,12 @@ emacs session."
;; prompt for the remotion authentication whenever
;; whether that buffer was lived or not.
(not (buffer-live-p buff))
(not (file-directory-p dir)))
;; NOTE: do quickly check when checking from a local
;; directory dired buffer since its commonly no need
;; to check those remote items which may need passwd
;; verification.
(unless (and (file-remote-p dir) cbuff-of-local-fs-p)
(not (file-directory-p dir))))
(progn
(cond
((eq buff cbuff) nil)
Expand Down

0 comments on commit 34dff94

Please sign in to comment.