/[emacs]/emacs/lisp/vc-sccs.el
ViewVC logotype

Diff of /emacs/lisp/vc-sccs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by spiegel, Thu Dec 26 14:07:15 2002 UTC revision 1.21 by lektu, Tue Feb 4 12:11:54 2003 UTC
# Line 28  Line 28 
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    
# Line 242  locked.  REV is the revision to check ou Line 242  locked.  REV is the revision to check ou
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)
# Line 294  EDITABLE non-nil means previous version Line 294  EDITABLE non-nil means previous version
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)))

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26