Commit 254c37a5 authored by Alexander Klimov's avatar Alexander Klimov Committed by Glenn Morris
Browse files

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.
parent 35d7dbd3
2011-06-09 Alexander Klimov <alserkli@inbox.ru> (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 <rgm@gnu.org>
* calendar/appt.el (appt-display-message, appt-disp-window):
......
......@@ -5256,7 +5256,7 @@ non-nil, it is called instead of rereading visited file contents."
(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 @@ Then you'll be asked about a number of files to recover."
(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,")
......
......@@ -1801,7 +1801,7 @@ The seventh argument ACTIONS is a list of actions to take
;; 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 @@ you can move to one of them and type C-c C-c to recover that one."
;; `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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment