510 |
(defun dired-omit-startup () |
(defun dired-omit-startup () |
511 |
(or (assq 'dired-omit-files-p minor-mode-alist) |
(or (assq 'dired-omit-files-p minor-mode-alist) |
512 |
(setq minor-mode-alist |
(setq minor-mode-alist |
513 |
(append '((dired-omit-files-p " Omit")) minor-mode-alist)))) |
(append '((dired-omit-files-p |
514 |
|
(:eval (if (eq major-mode 'dired-mode) |
515 |
|
" Omit" "")))) |
516 |
|
minor-mode-alist)))) |
517 |
|
|
518 |
(defun dired-omit-toggle (&optional flag) |
(defun dired-omit-toggle (&optional flag) |
519 |
"Toggle omitting files matching `dired-omit-files' and `dired-omit-extensions'. |
"Toggle omitting files matching `dired-omit-files' and `dired-omit-extensions'. |