Mercurial > emacs

comparison lisp/ledit.el @ 25416:851241b72ec9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ledit-zap-file, ledit-read-file, ledit-compile-file): Use temporary-file-directory.
author Richard M. Stallman <rms@gnu.org>
date Sat, 28 Aug 1999 18:23:49 +0000
parents 11218164bc54
children 7c181d033dae
comparison
equal deleted inserted replaced
25415:862886e87cf5 25416:851241b72ec9
31 ;;; To do: 31 ;;; To do:
32 ;;; o lisp -> emacs side of things (grind-definition and find-definition) 32 ;;; o lisp -> emacs side of things (grind-definition and find-definition)
33 33
34 (defvar ledit-mode-map nil) 34 (defvar ledit-mode-map nil)
35 35
36 (defconst ledit-zap-file (concat "/tmp/" (user-login-name) ".l1") 36 (defconst ledit-zap-file
37 (expand-file-name (concat (user-login-name) ".l1") temporary-file-directory)
37 "File name for data sent to Lisp by Ledit.") 38 "File name for data sent to Lisp by Ledit.")
38 (defconst ledit-read-file (concat "/tmp/" (user-login-name) ".l2") 39 (defconst ledit-read-file
40 (expand-file-name (concat (user-login-name) ".l2") temporary-file-directory)
39 "File name for data sent to Ledit by Lisp.") 41 "File name for data sent to Ledit by Lisp.")
40 (defconst ledit-compile-file 42 (defconst ledit-compile-file
41 (concat "/tmp/" (user-login-name) ".l4") 43 (expand-file-name (concat (user-login-name) ".l4") temporary-file-directory)
42 "File name for data sent to Lisp compiler by Ledit.") 44 "File name for data sent to Lisp compiler by Ledit.")
43 (defconst ledit-buffer "*LEDIT*" 45 (defconst ledit-buffer "*LEDIT*"
44 "Name of buffer in which Ledit accumulates data to send to Lisp.") 46 "Name of buffer in which Ledit accumulates data to send to Lisp.")
45 47
46 ;;;###autoload 48 ;;;###autoload