[Emacs-diffs] Changes to emacs/lisp/vc-sccs.el

[Stefan Monnier]

Index: emacs/lisp/vc-sccs.el
diff -c emacs/lisp/vc-sccs.el:1.21 emacs/lisp/vc-sccs.el:1.22
*** emacs/lisp/vc-sccs.el:1.21  Tue Feb  4 07:11:54 2003
--- emacs/lisp/vc-sccs.el       Thu May  8 15:18:33 2003
***************
*** 5,11 ****
  ;; Author:     FSF (see vc.el for full credits)
  ;; Maintainer: Andre Spiegel <address@hidden>
  
! ;; $Id: vc-sccs.el,v 1.21 2003/02/04 12:11:54 lektu Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 5,11 ----
  ;; Author:     FSF (see vc.el for full credits)
  ;; Maintainer: Andre Spiegel <address@hidden>
  
! ;; $Id: vc-sccs.el,v 1.22 2003/05/08 19:18:33 monnier Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 166,190 ****
  
  Automatically retrieve a read-only version of the file with keywords
  expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile."
!     (let* ((switches (append
!                    (if (stringp vc-register-switches)
!                        (list vc-register-switches)
!                      vc-register-switches)
!                    (if (stringp vc-sccs-register-switches)
!                        (list vc-sccs-register-switches)
!                      vc-sccs-register-switches)))
!          (dirname (or (file-name-directory file) ""))
           (basename (file-name-nondirectory file))
           (project-file (vc-sccs-search-project-dir dirname basename)))
        (let ((vc-name
             (or project-file
!                (format (car vc-sccs-master-templates) dirname basename)))|)
        (apply 'vc-do-command nil 0 "admin" vc-name
               (and rev (concat "-r" rev))
               "-fb"
               (concat "-i" (file-relative-name file))
               (and comment (concat "-y" comment))
!              switches))
        (delete-file file)
        (if vc-keep-workfiles
          (vc-do-command nil 0 "get" (vc-name file)))))
--- 166,183 ----
  
  Automatically retrieve a read-only version of the file with keywords
  expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile."
!     (let* ((dirname (or (file-name-directory file) ""))
           (basename (file-name-nondirectory file))
           (project-file (vc-sccs-search-project-dir dirname basename)))
        (let ((vc-name
             (or project-file
!                (format (car vc-sccs-master-templates) dirname basename))))
        (apply 'vc-do-command nil 0 "admin" vc-name
               (and rev (concat "-r" rev))
               "-fb"
               (concat "-i" (file-relative-name file))
               (and comment (concat "-y" comment))
!              (vc-switches 'SCCS 'register)))
        (delete-file file)
        (if vc-keep-workfiles
          (vc-do-command nil 0 "get" (vc-name file)))))
***************
*** 198,212 ****
  
  (defun vc-sccs-checkin (file rev comment)
    "SCCS-specific version of `vc-backend-checkin'."
!   (let ((switches (if (stringp vc-checkin-switches)
!                     (list vc-checkin-switches)
!                   vc-checkin-switches)))
!     (apply 'vc-do-command nil 0 "delta" (vc-name file)
!          (if rev (concat "-r" rev))
!          (concat "-y" comment)
!          switches)
!     (if vc-keep-workfiles
!       (vc-do-command nil 0 "get" (vc-name file)))))
  
  (defun vc-sccs-find-version (file rev buffer)
    (apply 'vc-do-command
--- 191,202 ----
  
  (defun vc-sccs-checkin (file rev comment)
    "SCCS-specific version of `vc-backend-checkin'."
!   (apply 'vc-do-command nil 0 "delta" (vc-name file)
!        (if rev (concat "-r" rev))
!        (concat "-y" comment)
!        (vc-switches 'SCCS 'checkin))
!   (if vc-keep-workfiles
!       (vc-do-command nil 0 "get" (vc-name file))))
  
  (defun vc-sccs-find-version (file rev buffer)
    (apply 'vc-do-command
***************
*** 216,224 ****
         (and rev
              (concat "-r"
                      (vc-sccs-lookup-triple file rev)))
!        (if (stringp vc-checkout-switches)
!            (list vc-checkout-switches)
!          vc-checkout-switches)))
  
  (defun vc-sccs-checkout (file &optional editable rev)
    "Retrieve a copy of a saved version of SCCS controlled FILE.
--- 206,212 ----
         (and rev
              (concat "-r"
                      (vc-sccs-lookup-triple file rev)))
!        (vc-switches 'SCCS 'checkout)))
  
  (defun vc-sccs-checkout (file &optional editable rev)
    "Retrieve a copy of a saved version of SCCS controlled FILE.
***************
*** 230,238 ****
      (save-excursion
        ;; Change buffers to get local value of vc-checkout-switches.
        (if file-buffer (set-buffer file-buffer))
!       (setq switches (if (stringp vc-checkout-switches)
!                        (list vc-checkout-switches)
!                      vc-checkout-switches))
        ;; Save this buffer's default-directory
        ;; and use save-excursion to make sure it is restored
        ;; in the same buffer it was saved in.
--- 218,224 ----
      (save-excursion
        ;; Change buffers to get local value of vc-checkout-switches.
        (if file-buffer (set-buffer file-buffer))
!       (setq switches (vc-switches 'SCCS 'checkout))
        ;; Save this buffer's default-directory
        ;; and use save-excursion to make sure it is restored
        ;; in the same buffer it was saved in.
***************
*** 298,304 ****
           (append (list "-q"
                         (and oldvers (concat "-r" oldvers))
                         (and newvers (concat "-r" newvers)))
!                  (vc-diff-switches-list 'SCCS))))
  
  
  ;;;
--- 284,290 ----
           (append (list "-q"
                         (and oldvers (concat "-r" oldvers))
                         (and newvers (concat "-r" newvers)))
!                  (vc-switches 'SCCS 'diff))))
  
  
  ;;;