Mercurial > emacs
changeset 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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 16 May 1998 03:38:20 +0000 |
| parents | 3a0152d73914 |
| children | e8163732f7b4 |
| files | lisp/files.el |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Fri May 15 22:24:17 1998 +0000 +++ b/lisp/files.el Sat May 16 03:38:20 1998 +0000 @@ -343,6 +343,16 @@ (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 @@ (let ((file (dired-get-filename)) files (buffer (get-buffer-create " *recover*"))) + (dired-unmark 1) (dired-do-flagged-delete t) (unwind-protect (save-excursion