changeset 4394:06a92db6c73b

(dired-sort-mode): Variable deleted. Don't display it in mode line. (dired-sort-set-modeline): Set mode-name instead.
author Richard M. Stallman <rms@gnu.org>
date Sun, 01 Aug 1993 11:55:12 +0000
parents 3e20f4e3dbaa
children 76b24be40a57
files lisp/dired.el
diffstat 1 files changed, 4 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dired.el	Sun Aug 01 08:42:46 1993 +0000
+++ b/lisp/dired.el	Sun Aug 01 11:55:12 1993 +0000
@@ -726,14 +726,6 @@
   (define-key dired-mode-map "\C-_" 'dired-undo)
   (define-key dired-mode-map "\C-xu" 'dired-undo)
   )
-
-(or (member '(dired-sort-mode dired-sort-mode) minor-mode-alist)
-    ;; Test whether this has already been done in case dired is reloaded
-    ;; There may be several elements with dired-sort-mode as car.
-    (setq minor-mode-alist
-	  (cons '(dired-sort-mode dired-sort-mode)
-		;; dired-sort-mode is nil outside dired
-		minor-mode-alist)))
 
 ;; Make menu bar items.
 
@@ -951,7 +943,6 @@
        dired-directory)
   (set (make-local-variable 'dired-actual-switches)
        (or switches dired-listing-switches))
-  (make-local-variable 'dired-sort-mode)
   (dired-sort-other dired-actual-switches t)
   (run-hooks 'dired-mode-hook))
 
@@ -2016,23 +2007,19 @@
   (concat "^-[^t" dired-ls-sorting-switches "]+$")
   "Regexp recognized by dired to set `by name' mode.")
 
-(defvar dired-sort-mode nil
-  "Whether Dired sorts by name, date etc. (buffer-local).")
-;; This is nil outside dired buffers so it can be used in the modeline
-
 (defun dired-sort-set-modeline ()
   ;; Set modeline display according to dired-actual-switches.
   ;; Modeline display of "by name" or "by date" guarantees the user a
   ;; match with the corresponding regexps.  Non-matching switches are
   ;; shown literally.
-  (setq dired-sort-mode
+  (setq mode-name
 	(let (case-fold-search)
 	  (cond ((string-match dired-sort-by-name-regexp dired-actual-switches)
-		 " by name")
+		 "Dired by name")
 		((string-match dired-sort-by-date-regexp dired-actual-switches)
-		 " by date")
+		 "Dired by date")
 		(t
-		 (concat " " dired-actual-switches)))))
+		 (concat "Dired " dired-actual-switches)))))
   ;; update mode line:
   (set-buffer-modified-p (buffer-modified-p)))