Re: {PATCH] minor gpg.el fix for MS Windows

[Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann)]

Dmitry Bely <dbely@mail.ru> writes:

>  (defcustom gpg-temp-directory 
> -  (expand-file-name "~/tmp")
> +  (if (memq system-type '(windows-nt cygwin32 win32 w32 mswindows))
> +      (temp-directory)
> +    (expand-file-name "~/tmp"))

I use the following code to get a temp directory in Tramp:

(defun tramp-temporary-file-directory ()
  "Return name of directory for temporary files (compat function).
For Emacs, this is the variable `temporary-file-directory', for XEmacs
this is the function `temp-directory'."
  (cond ((boundp 'temporary-file-directory)
         (symbol-value 'temporary-file-directory))
        ((fboundp 'temp-directory)
         (funcall (symbol-function 'temp-directory))) ;pacify byte-compiler
        ((let ((d (getenv "TEMP"))) (and d (file-directory-p d)))
         (file-name-as-directory (getenv "TEMP")))
        ((let ((d (getenv "TMP"))) (and d (file-directory-p d)))
         (file-name-as-directory (getenv "TMP")))
        ((let ((d (getenv "TMPDIR"))) (and d (file-directory-p d)))
         (file-name-as-directory (getenv "TMPDIR")))
        ((file-exists-p "c:/temp") (file-name-as-directory "c:/temp"))
        (t (message (concat "Neither `temporary-file-directory' nor "
                            "`temp-directory' is defined -- using /tmp."))
           (file-name-as-directory "/tmp"))))

Opinions?

kai
-- 
Silence is foo!