comparison lisp/vc.el @ 927:587a08c3a70b

*** empty log message ***

926:faa1d84dfe50

	   (vc-file-setprop file 'vc-checkout-time '(0 . 0))
	   nil
	 ))
     )))

;; Here's the major entry point

(defun vc-next-action (verbose)
  "Do the next logical checkin or checkout operation on the current file.
   If the file is not already registered, this registers it for version
control and then retrieves a writeable, locked copy for editing.
   If the file is registered and not locked by anyone, this checks out

		(vc-checkin file version))))))
    (error "There is no file associated with buffer %s" (buffer-name))))

;;; These functions help the vc-next-action entry point

(defun vc-register (&optional override)
  "Register the current file into your version-control system."
  (interactive "P")
  (if (vc-name buffer-file-name)
      (error "This file is already registered."))

  (mark-page)
  (narrow-to-page))

;; Additional entry points for examining version histories

(defun vc-diff (historic)
  "Display diffs between file versions."
  (interactive "P")
  (if historic
      (call-interactively 'vc-version-diff)

    )
  )

;; Header-insertion code

(defun vc-insert-headers ()
  "Insert headers in a file for use with your version-control system.
Headers desired are inserted at the start of the buffer, and are pulled from
the variable vc-header-strings"
  (interactive)

	      )
	    )))))

;; Status-checking functions

(defun vc-directory (verbose)
  "Show version-control status of all files under the current directory."
  (interactive "P")
  (let ((dir (substring default-directory 0 (1- (length default-directory))))
	nonempty)

		   (if (and (vc-registered f) (vc-locking-user f))
		       (throw 'quiet nil))))
       dir)
      t)))

(defun vc-create-snapshot (name)
  "Make a snapshot called NAME.
The snapshot is made from all registered files at or below the current
directory.  For each file, the version level of its latest
version becomes part of the named configuration."

		   (vc-name f)
		   (vc-backend-assign-name f name))))
     default-directory)
    ))

(defun vc-retrieve-snapshot (name)
  "Retrieve the snapshot called NAME.
This function fails if any files are locked at or below the current directory
Otherwise, all registered files are checked out (unlocked) at their version
levels in the snapshot."

     default-directory)
    ))

;; Miscellaneous other entry points

(defun vc-print-log ()
  "List the change log of the current buffer in a window."
  (interactive)
  (if (and buffer-file-name (vc-name buffer-file-name))
      (progn

	)
    (error "There is no version-control master associated with this buffer")
    )
  )

(defun vc-revert-buffer ()
  "Revert the current buffer's file back to the latest version."
  (interactive)
  (let ((file buffer-file-name)
	(obuf (current-buffer)) (changed (vc-diff nil)))

    (vc-backend-revert file)
    (vc-resynch-window file t)
    )
  )

(defun vc-cancel-version (norevert)
  "Undo your latest checkin."
  (interactive "P")
  (let ((target (vc-your-latest-version (buffer-file-name))))
    (if (null target)

  (vc-backend-dispatch file
		       (vc-record-rename old new)
		       nil)
  )

(defun vc-update-change-log ()
  "Find change log file and add entries from recent RCS logs."
  (interactive)
    (find-file-other-window "ChangeLog")
    (vc-buffer-sync)

927:587a08c3a70b

	   (vc-file-setprop file 'vc-checkout-time '(0 . 0))
	   nil
	 ))
     )))

;; Here's the major entry point.

;;;###autoload
(defun vc-next-action (verbose)
  "Do the next logical checkin or checkout operation on the current file.
   If the file is not already registered, this registers it for version
control and then retrieves a writeable, locked copy for editing.
   If the file is registered and not locked by anyone, this checks out

		(vc-checkin file version))))))
    (error "There is no file associated with buffer %s" (buffer-name))))

;;; These functions help the vc-next-action entry point

;;;###autoload
(defun vc-register (&optional override)
  "Register the current file into your version-control system."
  (interactive "P")
  (if (vc-name buffer-file-name)
      (error "This file is already registered."))

  (mark-page)
  (narrow-to-page))

;; Additional entry points for examining version histories

;;;###autoload
(defun vc-diff (historic)
  "Display diffs between file versions."
  (interactive "P")
  (if historic
      (call-interactively 'vc-version-diff)

    )
  )

;; Header-insertion code

;;;###autoload
(defun vc-insert-headers ()
  "Insert headers in a file for use with your version-control system.
Headers desired are inserted at the start of the buffer, and are pulled from
the variable vc-header-strings"
  (interactive)

	      )
	    )))))

;; Status-checking functions

;;;###autoload
(defun vc-directory (verbose)
  "Show version-control status of all files under the current directory."
  (interactive "P")
  (let ((dir (substring default-directory 0 (1- (length default-directory))))
	nonempty)

		   (if (and (vc-registered f) (vc-locking-user f))
		       (throw 'quiet nil))))
       dir)
      t)))

;;;###autoload
(defun vc-create-snapshot (name)
  "Make a snapshot called NAME.
The snapshot is made from all registered files at or below the current
directory.  For each file, the version level of its latest
version becomes part of the named configuration."

		   (vc-name f)
		   (vc-backend-assign-name f name))))
     default-directory)
    ))

;;;###autoload
(defun vc-retrieve-snapshot (name)
  "Retrieve the snapshot called NAME.
This function fails if any files are locked at or below the current directory
Otherwise, all registered files are checked out (unlocked) at their version
levels in the snapshot."

     default-directory)
    ))

;; Miscellaneous other entry points

;;;###autoload
(defun vc-print-log ()
  "List the change log of the current buffer in a window."
  (interactive)
  (if (and buffer-file-name (vc-name buffer-file-name))
      (progn

	)
    (error "There is no version-control master associated with this buffer")
    )
  )

;;;###autoload
(defun vc-revert-buffer ()
  "Revert the current buffer's file back to the latest version."
  (interactive)
  (let ((file buffer-file-name)
	(obuf (current-buffer)) (changed (vc-diff nil)))

    (vc-backend-revert file)
    (vc-resynch-window file t)
    )
  )

;;;###autoload
(defun vc-cancel-version (norevert)
  "Undo your latest checkin."
  (interactive "P")
  (let ((target (vc-your-latest-version (buffer-file-name))))
    (if (null target)

  (vc-backend-dispatch file
		       (vc-record-rename old new)
		       nil)
  )

;;;###autoload
(defun vc-update-change-log ()
  "Find change log file and add entries from recent RCS logs."
  (interactive)
    (find-file-other-window "ChangeLog")
    (vc-buffer-sync)