# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739040977 0
# Node ID 5c0a40a8a55d129d2c230ee9f0604a240143dc32
# Parent  4a9182ac9d17be1da6ff5932d8783bcfdb52ce71
(diff): Really do use arg SWITCHES.

diff -r 4a9182ac9d17 -r 5c0a40a8a55d lisp/diff.el
--- a/lisp/diff.el	Wed Jun 02 06:52:09 1993 +0000
+++ b/lisp/diff.el	Wed Jun 02 17:09:37 1993 +0000
@@ -196,9 +196,14 @@
 	(let ((command
 	       (mapconcat 'identity
 			  (append '("diff")
-				  (if (consp diff-switches)
-				      diff-switches
-				    (list diff-switches))
+				  ;; Use explicitly specified switches
+				  (if switches
+				      (if (consp switches)
+					  switches (list switches))
+				    ;; If not specified, use default.
+				    (if (consp diff-switches)
+					diff-switches
+				      (list diff-switches)))
 				  (if (or old-alt new-alt)
 				      (list "-L" old "-L" new))
 				  (list (or old-alt old))