197 |
(defvar buffer-file-numbers-unique (not (memq system-type '(windows-nt))) |
(defvar buffer-file-numbers-unique (not (memq system-type '(windows-nt))) |
198 |
"Non-nil means that buffer-file-number uniquely identifies files.") |
"Non-nil means that buffer-file-number uniquely identifies files.") |
199 |
|
|
200 |
|
(defvar temporary-file-directory |
201 |
|
(file-name-as-directory |
202 |
|
(cond ((memq system-type '(ms-dos windows-nt)) |
203 |
|
(or (getenv "TEMP") (getenv "TMPDIR") (getenv "TMP") "c:/temp")) |
204 |
|
((memq system-type '(vax-vms axp-vms)) |
205 |
|
(or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "SYS$SCRATCH:")) |
206 |
|
(t |
207 |
|
(or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp")))) |
208 |
|
"The directory for writing temporary files.") |
209 |
|
|
210 |
|
(defvar small-temporary-file-directory |
211 |
|
(if (eq system-type 'ms-dos) (getenv "TMPDIR")) |
212 |
|
"The directory for writing small temporary files. |
213 |
|
If non-nil, this directory is used instead of `temporary-file-directory' |
214 |
|
by programs that create small temporary files. This is for systems that |
215 |
|
have fast storage with limited space, such as a RAM disk.") |
216 |
|
|
217 |
|
;; The system null device. (Should reference NULL_DEVICE from C.) |
218 |
|
(defvar null-device "/dev/null" "The system null device.") |
219 |
|
|
220 |
(defvar file-name-invalid-regexp |
(defvar file-name-invalid-regexp |
221 |
(cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names))) |
(cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names))) |
222 |
(concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive |
(concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive |
445 |
(defvar view-read-only nil |
(defvar view-read-only nil |
446 |
"*Non-nil means buffers visiting files read-only, do it in view mode.") |
"*Non-nil means buffers visiting files read-only, do it in view mode.") |
447 |
|
|
|
(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.") |
|
|
|
|
448 |
(defun ange-ftp-completion-hook-function (op &rest args) |
(defun ange-ftp-completion-hook-function (op &rest args) |
449 |
"Provides support for ange-ftp host name completion. |
"Provides support for ange-ftp host name completion. |
450 |
Runs the usual ange-ftp hook, but only for completion operations." |
Runs the usual ange-ftp hook, but only for completion operations." |