From 16776caac4217233cb1ba170064206bd7358fe81 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 2 Jun 1993 17:09:37 +0000 Subject: [PATCH] (diff): Really do use arg SWITCHES. --- lisp/diff.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/diff.el b/lisp/diff.el index 0c474672b70..d4c5f5d3a2e 100644 --- a/lisp/diff.el +++ b/lisp/diff.el @@ -196,9 +196,14 @@ With prefix arg, prompt for diff switches." (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)) -- 2.11.4.GIT