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

exec-directory.

2 files changed, 21 insertions, 16 deletions

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)