diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-12-02 14:24:07 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-12-02 14:24:07 +0000 |
| commit | fb29efe93f553ad510849cb67fd9a86e197fd5b9 (patch) | |
| tree | d8a20489265542529bc9a742b618d6b555c40e4d /lisp | |
| parent | 38de963131fc014a3af953dd4ca5a7820a786f02 (diff) | |
| download | emacs-fb29efe93f553ad510849cb67fd9a86e197fd5b9.tar.gz | |
(vc-update-change-log): Look for rcs2log under
exec-directory.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/vc.el | 34 |
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) |