From 6769b6704e150292592e1f5719e4e1a0d045df8f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Nov 2001 12:03:46 +0000 Subject: [PATCH] (temporary-file-directory, null-device) (small-temporary-file-directory): Definitions moved up. --- lisp/ChangeLog | 3 +++ lisp/files.el | 40 ++++++++++++++++++++-------------------- 2 files changed, 23 insertions(+), 20 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dc7afa07dc2..828068349b2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2001-11-21 Richard M. Stallman + * files.el (temporary-file-directory, null-device) + (small-temporary-file-directory): Definitions moved up. + * international/encoded-kb.el: Don't alter minor-mode-alist. 2001-11-20 Kai Grossjohann diff --git a/lisp/files.el b/lisp/files.el index c6b522633f6..b7201bdd459 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -197,6 +197,26 @@ If the buffer is visiting a new file, the value is nil.") (defvar buffer-file-numbers-unique (not (memq system-type '(windows-nt))) "Non-nil means that buffer-file-number uniquely identifies files.") +(defvar temporary-file-directory + (file-name-as-directory + (cond ((memq system-type '(ms-dos windows-nt)) + (or (getenv "TEMP") (getenv "TMPDIR") (getenv "TMP") "c:/temp")) + ((memq system-type '(vax-vms axp-vms)) + (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "SYS$SCRATCH:")) + (t + (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp")))) + "The directory for writing temporary files.") + +(defvar small-temporary-file-directory + (if (eq system-type 'ms-dos) (getenv "TMPDIR")) + "The directory for writing small temporary files. +If non-nil, this directory is used instead of `temporary-file-directory' +by programs that create small temporary files. This is for systems that +have fast storage with limited space, such as a RAM disk.") + +;; The system null device. (Should reference NULL_DEVICE from C.) +(defvar null-device "/dev/null" "The system null device.") + (defvar file-name-invalid-regexp (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names))) (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive @@ -425,26 +445,6 @@ and ignores this variable." (defvar view-read-only nil "*Non-nil means buffers visiting files read-only, do it in view mode.") -(defvar temporary-file-directory - (file-name-as-directory - (cond ((memq system-type '(ms-dos windows-nt)) - (or (getenv "TEMP") (getenv "TMPDIR") (getenv "TMP") "c:/temp")) - ((memq system-type '(vax-vms axp-vms)) - (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "SYS$SCRATCH:")) - (t - (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp")))) - "The directory for writing temporary files.") - -(defvar small-temporary-file-directory - (if (eq system-type 'ms-dos) (getenv "TMPDIR")) - "The directory for writing small temporary files. -If non-nil, this directory is used instead of `temporary-file-directory' -by programs that create small temporary files. This is for systems that -have fast storage with limited space, such as a RAM disk.") - -;; The system null device. (Should reference NULL_DEVICE from C.) -(defvar null-device "/dev/null" "The system null device.") - (defun ange-ftp-completion-hook-function (op &rest args) "Provides support for ange-ftp host name completion. Runs the usual ange-ftp hook, but only for completion operations." -- 2.39.2