comparison lisp/vc.el @ 53679:7a2e7bea75b0

(vc-current-line): Function removed. This is now done by the new function line-at-pos in simple.el. (vc-annotate-warp-version): Use line-at-pos instead of vc-current-line.

53678:39002dae1bb3

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

;; $Id: vc.el,v 1.362 2004/01/20 17:39:09 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

	    (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))

53679:7a2e7bea75b0

;; 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

	    (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))