|
@@ -1178,14 +1178,20 @@ otherwise, use `my-compress-default-extension'. for compress." |
|
|
(define-minor-mode my-dired-display-all-mode |
|
|
(define-minor-mode my-dired-display-all-mode |
|
|
"" |
|
|
"" |
|
|
:init-value nil |
|
|
:init-value nil |
|
|
|
|
|
:global t |
|
|
|
|
|
(my-dired-display-all-set) |
|
|
|
|
|
(when (eq major-mode 'dired-mode) |
|
|
|
|
|
(revert-buffer))) |
|
|
|
|
|
(defun my-dired-display-all-set () |
|
|
|
|
|
"" |
|
|
(if my-dired-display-all-mode |
|
|
(if my-dired-display-all-mode |
|
|
(setq dired-actual-switches |
|
|
(setq dired-actual-switches |
|
|
(concat "-A " |
|
|
(concat "-A " |
|
|
dired-actual-switches)) |
|
|
dired-actual-switches)) |
|
|
(setq dired-actual-switches |
|
|
(setq dired-actual-switches |
|
|
(replace-regexp-in-string "-A " "" dired-actual-switches))) |
|
|
|
|
|
(when (eq major-mode 'dired-mode) |
|
|
|
|
|
(revert-buffer))) |
|
|
|
|
|
|
|
|
(replace-regexp-in-string "-A " "" dired-actual-switches)))) |
|
|
|
|
|
(add-hook 'dired-mode-hook |
|
|
|
|
|
'my-dired-display-all-set) |
|
|
|
|
|
|
|
|
(put 'dired-find-alternate-file 'disabled nil) |
|
|
(put 'dired-find-alternate-file 'disabled nil) |
|
|
(require 'ls-lisp) |
|
|
(require 'ls-lisp) |
|
|