Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 01:34:21 +00:00
Code Issues Projects Releases Packages Wiki Activity

Ensure dired-display-file displays it in other window.

Browse source 
* dired.el (dired-display-file): Force use of other window.
This commit is contained in:
Richard M. Stallman 2014-03-18 08:07:01 -04:00
parent 28a5172030
commit 11eff3aedb
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -7,6 +7,10 @@
(http://lists.gnu.org/archive/html/emacs-devel/2014-03/msg00488.html)
(comment-start-skip): Update the docstring.
2014-03-18 Richard Stallman <rms@gnu.org>
* dired.el (dired-display-file): Force use of other window.
2014-03-18 Daniel Colascione <dancol@dancol.org>
* startup.el (tty-handle-args): Remove debug message from 2007.
@ -1600,6 +1604,7 @@
* net/shr.el (shr-tag-img): Prefer the title over the alt text
(bug#16537).
>>>>>>> MERGE-SOURCE
2014-01-24 Juanma Barranquero <lekktu@gmail.com>
* net/eww.el (eww-download-callback):

7
lisp/dired.el
View file

@ -2136,7 +2136,8 @@ Otherwise, display it in another buffer."
(defun dired-display-file ()
"In Dired, display this file or directory in another window."
(interactive)
(display-buffer (find-file-noselect (dired-get-file-for-visit))))
(display-buffer (find-file-noselect (dired-get-file-for-visit))
t))
;;; Functions for extracting and manipulating file names in Dired buffers.
@ -3639,6 +3640,7 @@ With a prefix argument, edit the current listing switches instead."
;; Remove a switch of the form -XtY for some X and Y.
(setq dired-actual-switches
(replace-match "" t t dired-actual-switches 3))))
;; Now, if we weren't sorting by date before, add the -t switch.
;; Some simple-minded ls implementations (eg ftp servers) only
;; allow a single option string, so try not to add " -t" if possible.
@ -3671,6 +3673,9 @@ Values matching `dired-sort-by-date-regexp' or `dired-sort-by-name-regexp'
set the minor mode accordingly, others appear literally in the mode line.
With optional second arg NO-REVERT, don't refresh the listing afterwards."
(dired-sort-R-check switches)
(unless (string-match "\\(\\`\\| \\)-\\([b-zA-Z]*\\)a"
switches)
(debug "No -a in Dired switches"))
(setq dired-actual-switches switches)
(dired-sort-set-mode-line)
(or no-revert (revert-buffer)))