/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.529.4.3 by rms, Wed Nov 21 11:55:57 2001 UTC revision 1.529.4.4 by rms, Wed Nov 21 12:03:22 2001 UTC
# Line 197  If the buffer is visiting a new file, th Line 197  If the buffer is visiting a new file, th
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
# Line 425  and ignores this variable." Line 445  and ignores this variable."
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."

Legend:
Removed from v.1.529.4.3  
changed lines
  Added in v.1.529.4.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26