comparison lisp/vc.el @ 33546:4f99fed47d24

(vc-annotate): Changed handling of prefix arg; now asks for both version and ratio in the minibuffer.

33545:5411250e7971

;; Copyright (C) 1992,93,94,95,96,97,98,2000  Free Software Foundation, Inc.

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

;; $Id: vc.el,v 1.284 2000/10/26 20:53:11 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

;;     Find changelog entries for FILES, or for all files at or below
;;     the default-directory if FILES is nil.
;; * latest-on-branch-p (file)
;; - cancel-version (file writable)
;; - rename-file (old new)
;; - annotate-command (file buf)
;; - annotate-difference (pos)
;;     Only required if `annotate-command' is defined for the backend.

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

;;;; (defun vc-BACKEND-annotate-command (file buffer) ...)
;;;;  Execute "annotate" on FILE by using `call-process' and insert
;;;;  the contents in BUFFER.

;;;###autoload
(defun vc-annotate (ratio)
  "Display the result of the \"Annotate\" command using colors.
\"Annotate\" is defined by `vc-BACKEND-annotate-command'.  New lines
are displayed in red, old in blue.  A prefix argument specifies a
factor for stretching the time scale.

`vc-annotate-menu-elements' customizes the menu elements of the
mode-specific menu. `vc-annotate-color-map' and
`vc-annotate-very-old-color' defines the mapping of time to
colors. `vc-annotate-background' specifies the background color."
  (interactive "p")
  (vc-ensure-vc-buffer)
  (message "Annotating...")
  (let ((temp-buffer-name (concat "*Annotate " (buffer-name) "*"))
	(temp-buffer-show-function 'vc-annotate-display)
	(vc-annotate-ratio ratio)
	(vc-annotate-backend (vc-backend (buffer-file-name))))
    (if (not (vc-find-backend-function vc-annotate-backend 'annotate-command))
	(error "Sorry, annotating is not implemented for %s"
	       vc-annotate-backend))
    (with-output-to-temp-buffer temp-buffer-name
      (vc-call-backend vc-annotate-backend 'annotate-command
		       (file-name-nondirectory (buffer-file-name))
		       (get-buffer temp-buffer-name)))
    ;; 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)))))

33546:4f99fed47d24

;; Copyright (C) 1992,93,94,95,96,97,98,2000  Free Software Foundation, Inc.

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

;; $Id: vc.el,v 1.285 2000/10/27 12:13:19 spiegel 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

;;     Find changelog entries for FILES, or for all files at or below
;;     the default-directory if FILES is nil.
;; * latest-on-branch-p (file)
;; - cancel-version (file writable)
;; - rename-file (old new)
;; - annotate-command (file buf rev)
;; - annotate-difference (pos)
;;     Only required if `annotate-command' is defined for the backend.

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

;;;; (defun vc-BACKEND-annotate-command (file buffer) ...)
;;;;  Execute "annotate" on FILE by using `call-process' and insert
;;;;  the contents in BUFFER.

;;;###autoload
(defun vc-annotate (prefix)
  "Display the result of the \"Annotate\" command using colors.
\"Annotate\" is defined by `vc-BACKEND-annotate-command'.  New lines
are displayed in red, old in blue.  When given a prefix argument, asks
for a version to annotate from, and a factor for stretching the time 
scale.

`vc-annotate-menu-elements' customizes the menu elements of the
mode-specific menu. `vc-annotate-color-map' and
`vc-annotate-very-old-color' defines the mapping of time to
colors. `vc-annotate-background' specifies the background color."
  (interactive "P")
  (vc-ensure-vc-buffer)
  (let ((temp-buffer-name (concat "*Annotate " (buffer-name) "*"))
        (temp-buffer-show-function 'vc-annotate-display)
        (vc-annotate-version 
         (if prefix (read-string 
                     (format "Annotate from version: (default %s) "
                             (vc-workfile-version (buffer-file-name)))
                     nil nil (vc-workfile-version (buffer-file-name)))))
        (vc-annotate-ratio 
         (if prefix (string-to-number
                     (read-string "Annotate ratio: (default 1.0) " 
                                  nil nil "1.0"))))
        (vc-annotate-backend (vc-backend (buffer-file-name))))
    (message "Annotating...")
    (if (not (vc-find-backend-function vc-annotate-backend 'annotate-command))
	(error "Sorry, annotating is not implemented for %s"
	       vc-annotate-backend))
    (with-output-to-temp-buffer temp-buffer-name
      (vc-call-backend vc-annotate-backend 'annotate-command
		       (file-name-nondirectory (buffer-file-name))
		       (get-buffer temp-buffer-name)
                       vc-annotate-version))
    ;; 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)))))