Mercurial > emacs

changeset 4478:f25a821aefb0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-diff): Read options right here; don't try to use diff-read-switches. Always call diff with 3 args. (dired-backup-diff): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Sat, 07 Aug 1993 19:25:43 +0000
parents 7101a887f80d
children 9fab557f1e16
files lisp/dired-aux.el
diffstat 1 files changed, 19 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dired-aux.el	Sat Aug 07 08:19:18 1993 +0000
+++ b/lisp/dired-aux.el	Sat Aug 07 19:25:43 1993 +0000
@@ -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 @@
 				       (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