28 |
|
|
29 |
;;; Code: |
;;; Code: |
30 |
|
|
31 |
(eval-when-compile |
(eval-when-compile |
32 |
(require 'vc)) |
(require 'vc)) |
33 |
|
|
34 |
;;; |
;;; |
35 |
;;; Customization options |
;;; Customization options |
36 |
;;; |
;;; |
37 |
|
|
242 |
;; the file in the right place. |
;; the file in the right place. |
243 |
(setq default-directory (file-name-directory file)) |
(setq default-directory (file-name-directory file)) |
244 |
|
|
245 |
(and rev (or (string= rev "") |
(and rev (or (string= rev "") |
246 |
(not (stringp rev))) |
(not (stringp rev))) |
247 |
(setq rev nil)) |
(setq rev nil)) |
248 |
(apply 'vc-do-command nil 0 "get" (vc-name file) |
(apply 'vc-do-command nil 0 "get" (vc-name file) |
294 |
"Get a difference report using SCCS between two versions of FILE." |
"Get a difference report using SCCS between two versions of FILE." |
295 |
(setq oldvers (vc-sccs-lookup-triple file oldvers)) |
(setq oldvers (vc-sccs-lookup-triple file oldvers)) |
296 |
(setq newvers (vc-sccs-lookup-triple file newvers)) |
(setq newvers (vc-sccs-lookup-triple file newvers)) |
297 |
(apply 'vc-do-command "*vc-diff*" 1 "vcdiff" (vc-name file) |
(apply 'vc-do-command "*vc-diff*" 1 "vcdiff" (vc-name file) |
298 |
(append (list "-q" |
(append (list "-q" |
299 |
(and oldvers (concat "-r" oldvers)) |
(and oldvers (concat "-r" oldvers)) |
300 |
(and newvers (concat "-r" newvers))) |
(and newvers (concat "-r" newvers))) |