diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-08-07 19:25:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-08-07 19:25:43 +0000 |
| commit | fe5e3a2acacde810697abb499f27537beae9b3f1 (patch) | |
| tree | aecc7dbaddf7b6fb544c859ad1abbab0d219aed3 /lisp/dired-aux.el | |
| parent | 34b45e324e4ba164d28bfedea9400c4ed11e673e (diff) | |
| download | emacs-fe5e3a2acacde810697abb499f27537beae9b3f1.tar.gz | |
(dired-diff): Read options right here;
don't try to use diff-read-switches. Always call diff with 3 args.
(dired-backup-diff): Likewise.
Diffstat (limited to 'lisp/dired-aux.el')
| -rw-r--r-- | lisp/dired-aux.el | 31 |
1 files changed, 19 insertions, 12 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index e83bb0fd5e6..6af1984dc2f 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -43,7 +43,9 @@ (defun dired-diff (file &optional switches) "Compare file at point with file FILE using `diff'. FILE defaults to the file at the mark. -The prompted-for file is the first file given to `diff'." +The prompted-for file is the first file given to `diff'. +With prefix arg, prompt for second argument SWITCHES, + which is options for `diff'." (interactive (let ((default (if (mark t) (save-excursion (goto-char (mark t)) @@ -54,23 +56,28 @@ The prompted-for file is the first file given to `diff'." (concat "(default " default ") ") "")) (dired-current-directory) default t) - (if (fboundp 'diff-read-switches) - (diff-read-switches "Options for diff: "))))) - (if switches ; Emacs 19's diff has but two - (diff file (dired-get-filename t) switches) ; args (yet ;-) - (diff file (dired-get-filename t)))) + (if current-prefix-arg + (read-string "Options for diff: " + (if (stringp diff-switches) + diff-switches + (mapconcat 'identity diff-switches " "))))))) + (diff file (dired-get-filename t) switches)) ;;;###autoload (defun dired-backup-diff (&optional switches) "Diff this file with its backup file or vice versa. Uses the latest backup, if there are several numerical backups. If this file is a backup, diff it with its original. -The backup file is the first file given to `diff'." - (interactive (list (if (fboundp 'diff-read-switches) - (diff-read-switches "Diff with switches: ")))) - (if switches - (diff-backup (dired-get-filename) switches) - (diff-backup (dired-get-filename)))) +The backup file is the first file given to `diff'. +With prefix arg, prompt for argument SWITCHES which is options for `diff'." + (interactive + (if current-prefix-arg + (list (read-string "Options for diff: " + (if (stringp diff-switches) + diff-switches + (mapconcat 'identity diff-switches " ")))) + nil)) + (diff-backup (dired-get-filename) switches)) (defun dired-do-chxxx (attribute-name program op-symbol arg) ;; Change file attributes (mode, group, owner) of marked files and |