From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 29 Oct 2001 11:40:55 +0000 (+0000)
Subject: (dired-omit-startup): Show ``Omit'' only in Dired
X-Git-Tag: emacs-21.2~426
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cc7d9437948231864b813703e5183cc5e5356d65;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6ebb2212cac..9764662b9da 100644
--- 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 9db2974d6ab..a68772491bb 100644
--- 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'.