comparison lisp/vc.el @ 83082:108bb5537c12

Merged in changes from CVS HEAD Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-161 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-162 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-163 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-164 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-165 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-166 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-167 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-168 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-169 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-170 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-171 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-172 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-122

83081:32a426d0a0e3

;; Author:     FSF (see below for full credits)
;; Maintainer: Andre Spiegel <[e-mail]>
;; Keywords: tools

;; $Id: vc.el,v 1.368 2004/03/15 03:55:24 monnier Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;;   locking is used for files under this backend, and if files can
;;   indeed be locked by other users.
;;
;; HISTORY FUNCTIONS
;;
;; * print-log (file)
;;
;;   Insert the revision log of FILE into the *vc* buffer.
;;
;; - show-log-entry (version)
;;
;;   If provided, search the log entry for VERSION in the current buffer,
;;   and make sure it is displayed in the buffer's window.  The default

;;   Using recent log entries, create ChangeLog entries for FILES, or for
;;   all files at or below the default-directory if FILES is nil.  The
;;   default implementation runs rcs2log, which handles RCS- and
;;   CVS-style logs.
;;
;; * diff (file &optional rev1 rev2)
;;
;;   Insert the diff for FILE into the *vc-diff* buffer.  If REV1 and
;;   REV2 are non-nil, report differences from REV1 to REV2.  If REV1
;;   is nil, use the current workfile version (as found in the
;;   repository) as the older version; if REV2 is nil, use the current
;;   workfile contents as the newer version.  This function should
;;   pass the value of (vc-switches BACKEND 'diff) to the backend
;;   command.  It should return a status of either 0 (no differences
;;   found), or 1 (either non-empty diff or the diff is run
;;   asynchronously).
;;
;; - diff-tree (dir &optional rev1 rev2)
;;
;;   Insert the diff for all files at and below DIR into the *vc-diff*
;;   buffer.  The meaning of REV1 and REV2 is the same as for

;;   repository.  If this function is not provided, the renaming
;;   will be done by (vc-delete-file old) and (vc-register new).
;;
;; - find-file-hook ()
;;
;;   Operation called in current buffer when opening a new file.  This can
;;   be used by the backend to setup some local variables it might need.

;;; Code:

(require 'vc-hooks)
(require 'ring)

        (let ((dir (file-name-as-directory file)))
          (vc-call-backend (vc-responsible-backend dir)
                           'diff-tree dir rel1 rel2))
	(vc-exec-after `(let ((inhibit-read-only t))
			  (insert "\nEnd of diffs.\n"))))
    ;; single file diff
    (vc-diff-internal file rel1 rel2))
  (set-buffer "*vc-diff*")
  (if (and (zerop (buffer-size))
	   (not (get-buffer-process (current-buffer))))
      (progn

		      (shrink-window-if-larger-than-buffer)))
    t))

(defun vc-diff-internal (file rel1 rel2)
  "Run diff to compare FILE's revisions REL1 and REL2.
Output goes to the current buffer, which is assumed properly set up.
The exit status of the diff command is returned.

This function takes care to set up a proper coding system for diff output.
If both revisions are available as local files, then it also does not
actually call the backend, but performs a local diff."
  (if (or (not rel1) (string-equal rel1 ""))

;; Miscellaneous other entry points

;;;###autoload
(defun vc-print-log (&optional focus-rev)
  "List the change log of the current buffer in a window.  If
FOCUS-REV is non-nil, leave the point at that revision."
  (interactive)
  (vc-ensure-vc-buffer)
  (let ((file buffer-file-name))
    (or focus-rev (setq focus-rev (vc-workfile-version file)))
    (vc-call print-log file)
    (set-buffer "*vc*")
    (pop-to-buffer (current-buffer))
    (log-view-mode)
    (vc-exec-after
     `(let ((inhibit-read-only t))
	(goto-char (point-max)) (forward-line -1)

      (set-buffer temp-buffer-name)
      (set (make-local-variable 'vc-annotate-parent-file) bfn)
      (set (make-local-variable 'vc-annotate-parent-rev) vc-annotate-version)
      (set (make-local-variable 'vc-annotate-parent-display-mode)
	   vc-annotate-display-mode))
	   
    ;; Don't use the temp-buffer-name until the buffer is created
    ;; (only after `with-output-to-temp-buffer'.)
    (setq vc-annotate-buffers
	  (append vc-annotate-buffers
		  (list (cons (get-buffer temp-buffer-name) vc-annotate-backend))))

	(if (equal rev-at-line vc-annotate-parent-rev)
	    (message "Already at version %s" rev-at-line)
	  (vc-annotate-warp-version rev-at-line))))))

(defun vc-annotate-revision-previous-to-line ()
  "Visit the annotation of the version before the version at line."  
  (interactive)
  (if (not (equal major-mode 'vc-annotate-mode))
      (message "Cannot be invoked outside of a vc annotate buffer")
    (let ((rev-at-line (vc-annotate-extract-revision-at-line))
	  (prev-rev nil))

83082:108bb5537c12

;; Author:     FSF (see below for full credits)
;; Maintainer: Andre Spiegel <[e-mail]>
;; Keywords: tools

;; $Id: vc.el,v 1.371 2004/03/25 15:39:03 sds Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;;   locking is used for files under this backend, and if files can
;;   indeed be locked by other users.
;;
;; HISTORY FUNCTIONS
;;
;; * print-log (file &optional buffer)
;;
;;   Insert the revision log of FILE into BUFFER, or the *vc* buffer
;;   if BUFFER is nil.
;;
;; - show-log-entry (version)
;;
;;   If provided, search the log entry for VERSION in the current buffer,
;;   and make sure it is displayed in the buffer's window.  The default

;;   Using recent log entries, create ChangeLog entries for FILES, or for
;;   all files at or below the default-directory if FILES is nil.  The
;;   default implementation runs rcs2log, which handles RCS- and
;;   CVS-style logs.
;;
;; * diff (file &optional rev1 rev2 buffer)
;;
;;   Insert the diff for FILE into BUFFER, or the *vc-diff* buffer if
;;   BUFFER is nil.  If REV1 and REV2 are non-nil, report differences
;;   from REV1 to REV2.  If REV1 is nil, use the current workfile
;;   version (as found in the repository) as the older version; if
;;   REV2 is nil, use the current workfile contents as the newer
;;   version.  This function should pass the value of (vc-switches
;;   BACKEND 'diff) to the backend command.  It should return a status
;;   of either 0 (no differences found), or 1 (either non-empty diff
;;   or the diff is run asynchronously).
;;
;; - diff-tree (dir &optional rev1 rev2)
;;
;;   Insert the diff for all files at and below DIR into the *vc-diff*
;;   buffer.  The meaning of REV1 and REV2 is the same as for

;;   repository.  If this function is not provided, the renaming
;;   will be done by (vc-delete-file old) and (vc-register new).
;;
;; - find-file-hook ()
;;
;;   Operation called in current buffer when opening a file.  This can
;;   be used by the backend to setup some local variables it might need.
;
;; - find-file-not-found-hook ()
;;
;;   Operation called in current buffer when opening a non-existing file.
;;   By default, this asks the user if she wants to check out the file.

;;; Code:

(require 'vc-hooks)
(require 'ring)

        (let ((dir (file-name-as-directory file)))
          (vc-call-backend (vc-responsible-backend dir)
                           'diff-tree dir rel1 rel2))
	(vc-exec-after `(let ((inhibit-read-only t))
			  (insert "\nEnd of diffs.\n"))))
    ;; Single file diff.  It is important that the vc-controlled buffer
    ;; is still current at this time, because any local settings in that
    ;; buffer should affect the diff command.
    (vc-diff-internal file rel1 rel2))
  (set-buffer "*vc-diff*")
  (if (and (zerop (buffer-size))
	   (not (get-buffer-process (current-buffer))))
      (progn

		      (shrink-window-if-larger-than-buffer)))
    t))

(defun vc-diff-internal (file rel1 rel2)
  "Run diff to compare FILE's revisions REL1 and REL2.
Diff output goes to the *vc-diff* buffer.  The exit status of the diff
command is returned.

This function takes care to set up a proper coding system for diff output.
If both revisions are available as local files, then it also does not
actually call the backend, but performs a local diff."
  (if (or (not rel1) (string-equal rel1 ""))

;; Miscellaneous other entry points

;;;###autoload
(defun vc-print-log (&optional focus-rev)
  "List the change log of the current buffer in a window.
If FOCUS-REV is non-nil, leave the point at that revision."
  (interactive)
  (vc-ensure-vc-buffer)
  (let* ((file buffer-file-name)
         (backend-function
          (symbol-function
           (vc-find-backend-function (vc-backend file) 'print-log)))
         (print-log-args
          (if (byte-code-function-p backend-function)
              (aref backend-function 0)
              (cadr backend-function))))
    (or focus-rev (setq focus-rev (vc-workfile-version file)))
    ;; Don't switch to the output buffer before running the command,
    ;; so that any buffer-local settings in the vc-controlled
    ;; buffer can be accessed by the command.
    (if (cdr print-log-args)
        (progn
          (vc-call print-log file "*vc-change-log*")
          (set-buffer "*vc-change-log*"))
      ;; for backward compatibility
      (vc-call print-log file)
      (set-buffer "*vc*"))
    (pop-to-buffer (current-buffer))
    (log-view-mode)
    (vc-exec-after
     `(let ((inhibit-read-only t))
	(goto-char (point-max)) (forward-line -1)

      (set-buffer temp-buffer-name)
      (set (make-local-variable 'vc-annotate-parent-file) bfn)
      (set (make-local-variable 'vc-annotate-parent-rev) vc-annotate-version)
      (set (make-local-variable 'vc-annotate-parent-display-mode)
	   vc-annotate-display-mode))

    ;; Don't use the temp-buffer-name until the buffer is created
    ;; (only after `with-output-to-temp-buffer'.)
    (setq vc-annotate-buffers
	  (append vc-annotate-buffers
		  (list (cons (get-buffer temp-buffer-name) vc-annotate-backend))))

	(if (equal rev-at-line vc-annotate-parent-rev)
	    (message "Already at version %s" rev-at-line)
	  (vc-annotate-warp-version rev-at-line))))))

(defun vc-annotate-revision-previous-to-line ()
  "Visit the annotation of the version before the version at line."
  (interactive)
  (if (not (equal major-mode 'vc-annotate-mode))
      (message "Cannot be invoked outside of a vc annotate buffer")
    (let ((rev-at-line (vc-annotate-extract-revision-at-line))
	  (prev-rev nil))