Mercurial > emacs
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)) |