Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 1695:eeb607577f17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-09-19 09:50:08 by stephent] Yes, we have null-device <87pthx85xb.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Fri, 19 Sep 2003 09:50:09 +0000
parents 5d5a604cb3ed
children d91e7fd568fd
comparison
equal deleted inserted replaced
1694:75fc6f6aec08 1695:eeb607577f17
230 (if (eq system-type 'ms-dos) (getenv "TMPDIR")) 230 (if (eq system-type 'ms-dos) (getenv "TMPDIR"))
231 "The directory for writing small temporary files. 231 "The directory for writing small temporary files.
232 If non-nil, this directory is used instead of `temporary-file-directory' 232 If non-nil, this directory is used instead of `temporary-file-directory'
233 by programs that create small temporary files. This is for systems that 233 by programs that create small temporary files. This is for systems that
234 have fast storage with limited space, such as a RAM disk.") 234 have fast storage with limited space, such as a RAM disk.")
235
236 ;; The system null device. (Should reference NULL_DEVICE from C.)
237 (defvar null-device "/dev/null" "The system null device.")
238 235
239 ; (defvar file-name-invalid-regexp 236 ; (defvar file-name-invalid-regexp
240 ; (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names))) 237 ; (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names)))
241 ; (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive 238 ; (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive
242 ; "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|" ; invalid characters 239 ; "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|" ; invalid characters