Mercurial > emacs

comparison lisp/vc.el @ 22102:a56ece8d806e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-update-change-log): Use temporary-file-directory. Use expand-file-name on it.
author Richard M. Stallman <rms@gnu.org>
date Sat, 16 May 1998 17:53:32 +0000
parents 3ce96ca84d68
children 0731d54fcce0
comparison
equal deleted inserted replaced
22101:afd304707d2e 22102:a56ece8d806e
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.225 1998/05/02 16:41:08 spiegel Exp rms $ 8 ;; $Id: vc.el,v 1.226 1998/05/16 03:44:16 rms Exp rms $
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
2118 nil))) 2118 nil)))
2119 (let ((odefault default-directory) 2119 (let ((odefault default-directory)
2120 (changelog (find-change-log)) 2120 (changelog (find-change-log))
2121 ;; Presumably not portable to non-Unixy systems, along with rcs2log: 2121 ;; Presumably not portable to non-Unixy systems, along with rcs2log:
2122 (tempfile (make-temp-name 2122 (tempfile (make-temp-name
2123 (concat (file-name-as-directory system-tmp-directory) 2123 (expand-file-name "vc" temporary-file-directory)))
2124 "vc")))
2125 (full-name (or add-log-full-name 2124 (full-name (or add-log-full-name
2126 (user-full-name) 2125 (user-full-name)
2127 (user-login-name) 2126 (user-login-name)
2128 (format "uid%d" (number-to-string (user-uid))))) 2127 (format "uid%d" (number-to-string (user-uid)))))
2129 (mailing-address (or add-log-mailing-address 2128 (mailing-address (or add-log-mailing-address