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"))