emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/dired.el,v


From: Nick Roberts
Subject: [Emacs-diffs] Changes to emacs/lisp/dired.el,v
Date: Fri, 29 Dec 2006 23:57:38 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Nick Roberts <nickrob>  06/12/29 23:57:38

Index: dired.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/dired.el,v
retrieving revision 1.354
retrieving revision 1.355
diff -u -b -r1.354 -r1.355
--- dired.el    4 Dec 2006 00:32:00 -0000       1.354
+++ dired.el    29 Dec 2006 23:57:38 -0000      1.355
@@ -3098,15 +3098,18 @@
   ;; Modeline display of "by name" or "by date" guarantees the user a
   ;; match with the corresponding regexps.  Non-matching switches are
   ;; shown literally.
+  (when (eq major-mode 'dired-mode)
   (setq mode-name
        (let (case-fold-search)
-         (cond ((string-match dired-sort-by-name-regexp dired-actual-switches)
+           (cond ((string-match 
+                   dired-sort-by-name-regexp dired-actual-switches)
                 "Dired by name")
-               ((string-match dired-sort-by-date-regexp dired-actual-switches)
+                 ((string-match
+                   dired-sort-by-date-regexp dired-actual-switches)
                 "Dired by date")
                (t
                 (concat "Dired " dired-actual-switches)))))
-  (force-mode-line-update))
+    (force-mode-line-update)))
 
 (defun dired-sort-toggle-or-edit (&optional arg)
   "Toggle between sort by date/name and refresh the dired buffer.
@@ -3162,7 +3165,7 @@
 With optional second arg NO-REVERT, don't refresh the listing afterwards."
   (dired-sort-R-check switches)
   (setq dired-actual-switches switches)
-  (if (eq major-mode 'dired-mode) (dired-sort-set-modeline))
+  (dired-sort-set-modeline)
   (or no-revert (revert-buffer)))
 
 (defvar dired-subdir-alist-pre-R nil




reply via email to

[Prev in Thread] Current Thread [Next in Thread]