From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 2 Dec 1999 14:24:07 +0000 (+0000)
Subject: (vc-update-change-log): Look for rcs2log under
X-Git-Tag: emacs-pretest-21.0.90~5903
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb29efe93f553ad510849cb67fd9a86e197fd5b9;p=emacs.git

(vc-update-change-log): Look for rcs2log under
exec-directory.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ec8be4dd61..c825f688d98 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 1999-12-02  Gerd Moellmann  <gerd@gnu.org>
 
+	* vc.el (vc-update-change-log): Look for rcs2log under
+	exec-directory.
+
 	* emacs-lisp/lisp-mode.el (lisp-mode-variables): Change
 	outline-regexp, add outline-level.
 	(lisp-outline-level): New.
diff --git a/lisp/vc.el b/lisp/vc.el
index 1848a950d72..11503f1928c 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -5,7 +5,7 @@
 ;; Author:     Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
 
-;; $Id: vc.el,v 1.256 1999/10/02 10:53:18 spiegel Exp $
+;; $Id: vc.el,v 1.257 1999/10/15 15:44:52 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -2284,21 +2284,23 @@ default directory."
 	     (unwind-protect
 		 (progn
 		   (cd odefault)
-		   (if (eq 0 (apply 'call-process "rcs2log" nil
-				       (list t tempfile) nil
-				       "-c" changelog
-				       "-u" (concat (vc-user-login-name)
-						    "\t" full-name
-						    "\t" mailing-address)
-				       (mapcar
-					(function
-					 (lambda (f)
-					   (file-relative-name
-					    (if (file-name-absolute-p f)
-						f
-					      (concat odefault f)))))
-					args)))
-			  "done"
+		   (if (eq 0 (apply 'call-process
+				    (expand-file-name "rcs2log" exec-directory)
+				    nil
+				    (list t tempfile) nil
+				    "-c" changelog
+				    "-u" (concat (vc-user-login-name)
+						 "\t" full-name
+						 "\t" mailing-address)
+				    (mapcar
+				     (function
+				      (lambda (f)
+					(file-relative-name
+					 (if (file-name-absolute-p f)
+					     f
+					   (concat odefault f)))))
+				     args)))
+		       "done"
 		     (pop-to-buffer
 		      (set-buffer (get-buffer-create "*vc*")))
 		     (erase-buffer)