comparison lisp/files.el @ 22084:08f31e440c92

(system-tmp-directory): New variable. (recover-session-finish): Unmark the current line so that the file being used for recovery will not get deleted.

22083:3a0152d73914

(or (fboundp 'file-locked-p)
    (defalias 'file-locked-p 'ignore))

(defvar view-read-only nil
  "*Non-nil means buffers visiting files read-only, do it in view mode.")

;; This hook function provides support for ange-ftp host name
;; completion.  It runs the usual ange-ftp hook, but only for
;; completion operations.  Having this here avoids the need
;; to load ange-ftp when it's not really in use.

  (interactive)
  ;; Get the name of the session file to recover from.
  (let ((file (dired-get-filename))
	files
	(buffer (get-buffer-create " *recover*")))
    (dired-do-flagged-delete t)
    (unwind-protect
	(save-excursion
	  ;; Read in the auto-save-list file.
	  (set-buffer buffer)

22084:08f31e440c92

(or (fboundp 'file-locked-p)
    (defalias 'file-locked-p 'ignore))

(defvar view-read-only nil
  "*Non-nil means buffers visiting files read-only, do it in view mode.")

(defvar system-tmp-directory
  (directory-file-name 
   (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--actually, its name as a file.")

;; This hook function provides support for ange-ftp host name
;; completion.  It runs the usual ange-ftp hook, but only for
;; completion operations.  Having this here avoids the need
;; to load ange-ftp when it's not really in use.

  (interactive)
  ;; Get the name of the session file to recover from.
  (let ((file (dired-get-filename))
	files
	(buffer (get-buffer-create " *recover*")))
    (dired-unmark 1)
    (dired-do-flagged-delete t)
    (unwind-protect
	(save-excursion
	  ;; Read in the auto-save-list file.
	  (set-buffer buffer)