[Emacs-diffs] /srv/bzr/emacs/trunk r104541: Small fixes for dired-listing-switches usage.

[Glenn Morris]

------------------------------------------------------------
revno: 104541
author: Alexander Klimov <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2011-06-08 22:33:26 -0700
message:
  Small fixes for dired-listing-switches usage.
  
  Ref: http://lists.gnu.org/archive/html/emacs-devel/2011-05/msg01000.html
  
  * lisp/mail/sendmail.el (mail-recover-1, mail-recover):
  * lisp/files.el (recover-file, recover-session):
  Handle dired-listing-switches not being just a single short option.
modified:
  lisp/ChangeLog
  lisp/files.el
  lisp/mail/sendmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-09 05:08:11 +0000
+++ b/lisp/ChangeLog    2011-06-09 05:33:26 +0000
@@ -1,3 +1,9 @@
+2011-06-09  Alexander Klimov  <address@hidden>  (tiny change)
+
+       * mail/sendmail.el (mail-recover-1, mail-recover):
+       * files.el (recover-file, recover-session):
+       Handle dired-listing-switches not being just a single short option.
+
 2011-06-09  Glenn Morris  <address@hidden>
 
        * calendar/appt.el (appt-display-message, appt-disp-window):

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2011-05-28 19:26:25 +0000
+++ b/lisp/files.el     2011-06-09 05:33:26 +0000
@@ -5256,7 +5256,7 @@
               (save-excursion
                 (let ((switches dired-listing-switches))
                   (if (file-symlink-p file)
-                      (setq switches (concat switches "L")))
+                      (setq switches (concat switches " -L")))
                   (set-buffer standard-output)
                   ;; Use insert-directory-safely, not insert-directory,
                   ;; because these files might not exist.  In particular,
@@ -5299,7 +5299,7 @@
       (error "No previous sessions to recover")))
   (let ((ls-lisp-support-shell-wildcards t))
     (dired (concat auto-save-list-file-prefix "*")
-          (concat dired-listing-switches "t")))
+          (concat dired-listing-switches " -t")))
   (save-excursion
     (goto-char (point-min))
     (or (looking-at " Move to the session you want to recover,")

=== modified file 'lisp/mail/sendmail.el'
--- a/lisp/mail/sendmail.el     2011-06-01 19:32:04 +0000
+++ b/lisp/mail/sendmail.el     2011-06-09 05:33:26 +0000
@@ -1801,7 +1801,7 @@
       ;; unbound on exit from the let.
       (require 'dired)
       (let ((dired-trivial-filenames t))
-       (dired-other-window wildcard (concat dired-listing-switches "t")))
+       (dired-other-window wildcard (concat dired-listing-switches " -t")))
       (rename-buffer "*Auto-saved Drafts*" t)
       (save-excursion
        (goto-char (point-min))
@@ -1881,7 +1881,7 @@
                  ;; `ls' is not a standard program (it will use
                  ;; ls-lisp instead).
                  (dired-noselect file-name
-                                 (concat dired-listing-switches "t"))))
+                                 (concat dired-listing-switches " -t"))))
             (save-selected-window
               (select-window (display-buffer dispbuf t))
               (goto-char (point-min))