Browse Source

make my-dired-display-all-mode global

pull/1/head
10sr 13 years ago
parent
commit
f7dd96db39
1 changed files with 9 additions and 3 deletions
  1. +9
    -3
      .emacs.el

+ 9
- 3
.emacs.el View File

@@ -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)


Loading…
Cancel
Save