mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

(dired-diff): Use `dired-dwim-target-directory'

Browse Source 
if current dired buffer has no buffer mark.
This commit is contained in:
Juri Linkov 2004-05-01 05:38:07 +00:00
parent 7017c8174e
commit 4ae73f87a0
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -14,6 +14,8 @@
* dired-aux.el (dired-touch-initial): New fun.
(dired-do-chxxx): Call it for op-symbol `touch'.
(dired-diff): Use `dired-dwim-target-directory'
if current dired buffer has no buffer mark.
* bindings.el (propertized-buffer-identification):
Replace `(:weight bold)' by `Buffer-menu-buffer-face'.

5
lisp/dired-aux.el
View File

@ -64,7 +64,10 @@ With prefix arg, prompt for second argument SWITCHES,
(if default
(concat "(default " default ") ")
""))
(dired-current-directory) default t)
(if default
(dired-current-directory)
(dired-dwim-target-directory))
default t)
(if current-prefix-arg
(read-string "Options for diff: "
(if (stringp diff-switches)