[18330] in Athena Bugs
sun4 [8.4.12]: emacs vc-mode cvs annotate
daemon@ATHENA.MIT.EDU (Jonathon Weiss)
Thu Sep 21 18:52:26 2000
Date: Thu, 21 Sep 2000 18:52:19 -0400 (EDT)
Message-Id: <200009212252.SAA26697@speaker-for-the-dead.mit.edu>
To: bugs@mit.edu
CC: jweiss@mit.edu
From: Jonathon Weiss <jweiss@MIT.EDU>
System name: speaker-for-the-dead.mit.edu
Type and version: Ultra-1 8.4.12 (with mkserv)
Display type: ffb
Shell: /usr/local/bin/sipbtcsh
Window manager: /usr/local/bin/vtwm.gamma
What were you trying to do?
C-x v g to cvs annotate a file in emacs
What went wrong?
it failed to search vc-path to find cvs.
Yo, got any documentation, or other info? The following seems to
solve the problem (code blatently stolen from vc-do-command).
I'm not actually sure how to deal wiht the .elc file or the
upstream maintainer which is why I'm not submitting this
directly as a patch.
*** /usr/athena/share/emacs/20.3/lisp/vc.el Wed Dec 16 14:56:34 1998
--- /tmp/vc.el Thu Sep 21 18:39:34 2000
***************
*** 2346,2353 ****
(temp-buffer-show-function 'vc-annotate-display)
(vc-annotate-ratio ratio))
(with-output-to-temp-buffer temp-buffer-name
! (call-process "cvs" nil (get-buffer temp-buffer-name) nil
! "annotate" (file-name-nondirectory (buffer-file-name)))))
(message "Annotating... done"))
(defun vc-annotate-car-last-cons (a-list)
--- 2346,2361 ----
(temp-buffer-show-function 'vc-annotate-display)
(vc-annotate-ratio ratio))
(with-output-to-temp-buffer temp-buffer-name
! (let ((exec-path (append vc-path exec-path))
! ;; Add vc-path to PATH for the execution of this command.
! (process-environment
! (cons (concat "PATH=" (getenv "PATH")
! path-separator
! (mapconcat 'identity vc-path path-separator))
! process-environment))
! (w32-quote-process-args t))
! (call-process "cvs" nil (get-buffer temp-buffer-name) nil
! "annotate" (file-name-nondirectory (buffer-file-name))))))
(message "Annotating... done"))
(defun vc-annotate-car-last-cons (a-list)
