changeset 13379:45188809385d

(vc-backend-diff): Use new variable vc-rcsdiff-knows-brief.
author André Spiegel <spiegel@gnu.org>
date Thu, 02 Nov 1995 09:36:01 +0000
parents 96ff45331eb4
children 12bfc1ecec61
files lisp/vc.el
diffstat 1 files changed, 14 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc.el	Thu Nov 02 09:35:04 1995 +0000
+++ b/lisp/vc.el	Thu Nov 02 09:36:01 1995 +0000
@@ -2138,13 +2138,13 @@
       (setq oldvers (vc-lookup-triple file oldvers))
       (setq newvers (vc-lookup-triple file newvers)))
      ((eq backend 'RCS)
-      (if (not oldvers) (setq oldvers (vc-workfile-version file)))))
+      (if (not oldvers) (setq oldvers (vc-workfile-version file)))
+      ;; If we know that --brief is not supported, don't try it.
+      (setq cmp (and cmp (not (eq vc-rcsdiff-knows-brief 'no))))))
      ;; SCCS and RCS shares a lot of code.
     (cond
      ((or (eq backend 'SCCS) (eq backend 'RCS))
-      (let* ((command (if (eq backend 'SCCS)
-			  "vcdiff"
-			"rcsdiff"))
+      (let* ((command (if (eq backend 'SCCS) "vcdiff" "rcsdiff"))
 	     (mode (if (eq backend 'RCS) 'WORKFILE 'MASTER))
 	     (options (append (list (and cmp "--brief")
 				    "-q"
@@ -2156,11 +2156,17 @@
 				     (list diff-switches)))))
 	     (status (apply 'vc-do-command "*vc-diff*" 2 
 			    command file mode options)))
-	;; Some RCS versions don't understand "--brief"; work around this.
+	;; If --brief didn't work, do a double-take and remember it 
+        ;; for the future.
 	(if (eq status 2)
-	    (apply 'vc-do-command "*vc-diff*" 1 command file 'WORKFILE
-		   (if cmp (cdr options) options))
-	  status)))
+            (prog1
+                (apply 'vc-do-command "*vc-diff*" 1 command file 'WORKFILE
+                       (if cmp (cdr options) options))
+              (if cmp (setq vc-rcsdiff-knows-brief 'no)))
+          ;; If --brief DID work, remember that, too.
+	  (and cmp (not vc-rcsdiff-knows-brief)
+               (setq vc-rcsdiff-knows-brief 'yes))
+          status)))
      ;; CVS is different.  
      ((eq backend 'CVS)
       (if (string= (vc-workfile-version file) "0") ;CVS