(dired-omit-startup): Show ``Omit'' only in Dired

buffers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6ebb2212cac87de142e651b7e0c203e8654ea9c1..9764662b9da68f3ba3da6bf1a1e4f976e3df1ef2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-29  Gerd Moellmann  <gerd@gnu.org>
+
+       * dired-x.el (dired-omit-startup): Show ``Omit'' only in Dired
+       buffers.
+
 2001-10-29  Alex Schroeder  <kensanata@yahoo.com>
 
        * progmodes/sql.el (sql-mysql): Doc change by RMS.

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 9db2974d6ab3cdae9faae9e9f6a2fc833becb029..a68772491bbb8eed30376b6fc0082d91304ed9be 100644 (file)
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -510,7 +510,10 @@ Should never be used as marker by the user or other packages.")
 (defun dired-omit-startup ()
   (or (assq 'dired-omit-files-p minor-mode-alist)
       (setq minor-mode-alist
-            (append '((dired-omit-files-p " Omit")) minor-mode-alist))))
+            (append '((dired-omit-files-p
+                      (:eval (if (eq major-mode 'dired-mode)
+                                 " Omit" ""))))
+                   minor-mode-alist))))
 
 (defun dired-omit-toggle (&optional flag)
   "Toggle omitting files matching `dired-omit-files' and `dired-omit-extensions'.