Mercurial > emacs
comparison lisp/vc.el @ 26685:40036067f5cf
(vc-update-change-log): Look for rcs2log under
exec-directory.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Thu, 02 Dec 1999 14:21:08 +0000 |
parents | fb6b9c37cdc4 |
children | 564f85cd6921 |
comparison
equal
deleted
inserted
replaced
26684:5ffc1f61b1d4 | 26685:40036067f5cf |
---|---|
3 ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> | 5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> |
6 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de> | 6 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de> |
7 | 7 |
8 ;; $Id: vc.el,v 1.256 1999/10/02 10:53:18 spiegel Exp $ | 8 ;; $Id: vc.el,v 1.257 1999/10/15 15:44:52 monnier Exp $ |
9 | 9 |
10 ;; This file is part of GNU Emacs. | 10 ;; This file is part of GNU Emacs. |
11 | 11 |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
13 ;; it under the terms of the GNU General Public License as published by | 13 ;; it under the terms of the GNU General Public License as published by |
2282 (message "Computing change log entries...") | 2282 (message "Computing change log entries...") |
2283 (message "Computing change log entries... %s" | 2283 (message "Computing change log entries... %s" |
2284 (unwind-protect | 2284 (unwind-protect |
2285 (progn | 2285 (progn |
2286 (cd odefault) | 2286 (cd odefault) |
2287 (if (eq 0 (apply 'call-process "rcs2log" nil | 2287 (if (eq 0 (apply 'call-process |
2288 (list t tempfile) nil | 2288 (expand-file-name "rcs2log" exec-directory) |
2289 "-c" changelog | 2289 nil |
2290 "-u" (concat (vc-user-login-name) | 2290 (list t tempfile) nil |
2291 "\t" full-name | 2291 "-c" changelog |
2292 "\t" mailing-address) | 2292 "-u" (concat (vc-user-login-name) |
2293 (mapcar | 2293 "\t" full-name |
2294 (function | 2294 "\t" mailing-address) |
2295 (lambda (f) | 2295 (mapcar |
2296 (file-relative-name | 2296 (function |
2297 (if (file-name-absolute-p f) | 2297 (lambda (f) |
2298 f | 2298 (file-relative-name |
2299 (concat odefault f))))) | 2299 (if (file-name-absolute-p f) |
2300 args))) | 2300 f |
2301 "done" | 2301 (concat odefault f))))) |
2302 args))) | |
2303 "done" | |
2302 (pop-to-buffer | 2304 (pop-to-buffer |
2303 (set-buffer (get-buffer-create "*vc*"))) | 2305 (set-buffer (get-buffer-create "*vc*"))) |
2304 (erase-buffer) | 2306 (erase-buffer) |
2305 (insert-file tempfile) | 2307 (insert-file tempfile) |
2306 "failed")) | 2308 "failed")) |