# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 944144468 0
# Node ID 40036067f5cfdbe18c7bab22141156e16e90b368
# Parent  5ffc1f61b1d422f4bec665c116a1ee6664c10414
(vc-update-change-log): Look for rcs2log under
exec-directory.

diff -r 5ffc1f61b1d4 -r 40036067f5cf lisp/vc.el
--- a/lisp/vc.el	Thu Dec 02 10:33:46 1999 +0000
+++ b/lisp/vc.el	Thu Dec 02 14:21:08 1999 +0000
@@ -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 @@
 	     (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)