comparison lisp/vc.el @ 83022:abaf78268f22

Merged in changes from CVS HEAD Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-51 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-52 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-62

83021:32bf8e7cc0c2

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

;; $Id: vc.el,v 1.363 2004/01/21 11:05:51 uid65624 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

;; internal buffer-local variables
(defvar vc-annotate-parent-file nil)
(defvar vc-annotate-parent-rev nil)
(defvar vc-annotate-parent-display-mode nil)
(make-local-variable 'vc-annotate-parent-file)
(make-local-variable 'vc-annotate-parent-rev)
(make-local-variable 'vc-annotate-parent-display-mode)

(defconst vc-annotate-font-lock-keywords
  ;; The fontification is done by vc-annotate-lines instead of font-lock.
  '((vc-annotate-lines)))

		       buffer-file-name
		       (get-buffer temp-buffer-name)
                       vc-annotate-version))
    (save-excursion
      (set-buffer temp-buffer-name)
      (setq vc-annotate-parent-file bfn)
      (setq vc-annotate-parent-rev vc-annotate-version)
      (setq 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

	    (message "Cannot diff from any version prior to %s" rev-at-line)
	  (save-window-excursion
	    (vc-version-diff vc-annotate-parent-file prev-rev rev-at-line))
	  (switch-to-buffer "*vc-diff*"))))))

(defun vc-current-line ()
  "Return the current buffer's line number."
  (let ((oldpoint (point)) start)
    (save-excursion
      (save-restriction
	(goto-char (point-min))
	(widen)
	(forward-line 0)
	(setq start (point))
	(goto-char oldpoint)
	(forward-line 0)
	(1+ (count-lines (point-min) (point)))))))

(defun vc-annotate-warp-version (revspec)
  "Annotate the version described by REVSPEC.

If REVSPEC is a positive integer, warp that many versions
forward, if possible, otherwise echo a warning message.  If

if possible, otherwise echo a warning message.  If REVSPEC is a
string, then it describes a revision number, so warp to that
revision."
  (if (not (equal major-mode 'vc-annotate-mode))
      (message "Cannot be invoked outside of a vc annotate buffer")
    (let* ((oldline (vc-current-line))
	   (revspeccopy revspec)
	   (newrev nil))
      (cond
       ((and (integerp revspec) (> revspec 0))
	(setq newrev vc-annotate-parent-rev)

	  (vc-annotate nil newrev vc-annotate-parent-display-mode))
	(kill-buffer (current-buffer)) ;; kill the buffer we started from
	(switch-to-buffer (car (car (last vc-annotate-buffers))))
	(goto-line (min oldline (progn (goto-char (point-max))
				       (previous-line)
				       (vc-current-line))))))))

(defun vc-annotate-car-last-cons (a-list)
  "Return car of last cons in association list A-LIST."
  (if (not (eq nil (cdr a-list)))
      (vc-annotate-car-last-cons (cdr a-list))

83022:abaf78268f22

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

;; $Id: vc.el,v 1.365 2004/01/23 11:20:55 uid65624 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

;; internal buffer-local variables
(defvar vc-annotate-parent-file nil)
(defvar vc-annotate-parent-rev nil)
(defvar vc-annotate-parent-display-mode nil)

(defconst vc-annotate-font-lock-keywords
  ;; The fontification is done by vc-annotate-lines instead of font-lock.
  '((vc-annotate-lines)))

		       buffer-file-name
		       (get-buffer temp-buffer-name)
                       vc-annotate-version))
    (save-excursion
      (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

	    (message "Cannot diff from any version prior to %s" rev-at-line)
	  (save-window-excursion
	    (vc-version-diff vc-annotate-parent-file prev-rev rev-at-line))
	  (switch-to-buffer "*vc-diff*"))))))

(defun vc-annotate-warp-version (revspec)
  "Annotate the version described by REVSPEC.

If REVSPEC is a positive integer, warp that many versions
forward, if possible, otherwise echo a warning message.  If

if possible, otherwise echo a warning message.  If REVSPEC is a
string, then it describes a revision number, so warp to that
revision."
  (if (not (equal major-mode 'vc-annotate-mode))
      (message "Cannot be invoked outside of a vc annotate buffer")
    (let* ((oldline (line-at-pos))
	   (revspeccopy revspec)
	   (newrev nil))
      (cond
       ((and (integerp revspec) (> revspec 0))
	(setq newrev vc-annotate-parent-rev)

	  (vc-annotate nil newrev vc-annotate-parent-display-mode))
	(kill-buffer (current-buffer)) ;; kill the buffer we started from
	(switch-to-buffer (car (car (last vc-annotate-buffers))))
	(goto-line (min oldline (progn (goto-char (point-max))
				       (previous-line)
				       (line-at-pos))))))))

(defun vc-annotate-car-last-cons (a-list)
  "Return car of last cons in association list A-LIST."
  (if (not (eq nil (cdr a-list)))
      (vc-annotate-car-last-cons (cdr a-list))