comparison lisp/vc.el @ 3956:ef9f2cfb6703

* vc.el (vc-backend-diff): Pass the "-q" flag only if we're using rcsdiff.
author Jim Blandy <jimb@redhat.com>
date Fri, 02 Jul 1993 20:07:55 +0000
parents 1b954eb0f249
children 103a29fa86b7
comparison
equal deleted inserted replaced
3955:aa3a8669cdda 3956:ef9f2cfb6703
1510 (setq newvers (vc-lookup-triple file newvers))) 1510 (setq newvers (vc-lookup-triple file newvers)))
1511 (apply 'vc-do-command 1 1511 (apply 'vc-do-command 1
1512 (or (vc-backend-dispatch file "vcdiff" "rcsdiff") 1512 (or (vc-backend-dispatch file "vcdiff" "rcsdiff")
1513 (vc-registration-error file)) 1513 (vc-registration-error file))
1514 file 1514 file
1515 "-q" 1515 (vc-backend-dispatch file nil "-q")
1516 (and oldvers (concat "-r" oldvers)) 1516 (and oldvers (concat "-r" oldvers))
1517 (and newvers (concat "-r" newvers)) 1517 (and newvers (concat "-r" newvers))
1518 (if (listp diff-switches) 1518 (if (listp diff-switches)
1519 diff-switches 1519 diff-switches
1520 (list diff-switches)) 1520 (list diff-switches))