From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 16 May 1998 03:38:20 +0000 (+0000)
Subject: (system-tmp-directory): New variable.
X-Git-Tag: emacs-20.3~993
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c11032b95f555e6e45a94621fdc3bf85235032a8;p=emacs.git

(system-tmp-directory): New variable.

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

diff --git a/lisp/files.el b/lisp/files.el
index 53496020e88..1fde283e03e 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -343,6 +343,16 @@ and ignores this variable."
 (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
@@ -2685,6 +2695,7 @@ This command is used in the special Dired buffer created by
   (let ((file (dired-get-filename))
 	files
 	(buffer (get-buffer-create " *recover*")))
+    (dired-unmark 1)
     (dired-do-flagged-delete t)
     (unwind-protect
 	(save-excursion