# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893826406 0
# Node ID a9d4f3acae4ede809584a158cc0f90a2e96c2c65
# Parent  daf55987470906d1e8d1e73c6c0dafc3ed3b8302
(dired-sort-toggle): Handle spaces in dired-actual-switches.

diff -r daf559874709 -r a9d4f3acae4e lisp/dired.el
--- a/lisp/dired.el	Wed Apr 29 05:02:34 1998 +0000
+++ b/lisp/dired.el	Wed Apr 29 05:06:46 1998 +0000
@@ -2389,16 +2389,22 @@
   ;; Toggle between sort by date/name.  Reverts the buffer.
   (setq dired-actual-switches
 	(let (case-fold-search)
-	  (concat
-	   "-l"
-	   (dired-replace-in-string (concat "[-lt"
-					    dired-ls-sorting-switches "]")
-				    ""
-				    dired-actual-switches)
-	   (if (string-match (concat "[t" dired-ls-sorting-switches "]")
-			     dired-actual-switches)
-	       ""
-	     "t"))))
+	  (if (string-match " " dired-actual-switches)
+	      ;; New toggle scheme: add/remove a trailing " -t"
+	      (if (string-match " -t\\'" dired-actual-switches)
+		  (dired-replace-in-string " -t\\'" "" dired-actual-switches)
+		(concat dired-actual-switches " -t"))
+	    ;; old toggle scheme: look for some 't' switch and add/remove it
+	    (concat
+	     "-l"
+	     (dired-replace-in-string (concat "[-lt"
+					      dired-ls-sorting-switches "]")
+				      ""
+				      dired-actual-switches)
+	     (if (string-match (concat "[t" dired-ls-sorting-switches "]")
+			       dired-actual-switches)
+		 ""
+	       "t")))))
   (dired-sort-set-modeline)
   (revert-buffer))