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

exec-directory.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ec8be4dd615cd8caa51e2d112b9f7d8f39fcf2e..c825f688d98f5c0d4806390829c26c739ab52027 100644 (file)
--- 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 1848a950d7209b61d1a6b9767e7402b0beaae22f..11503f1928c59327bd214cf704b099cc4ac364da 100644 (file)
--- 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)