Just insert "" here -----+ since expand-file-name is being used anyway ...
(when (boundp 'temporary-file-directory) temporary-file-directory) ;emacs
;; XEmacs 21.4.17 can return "/tmp/kalle" from (temp-directory).
;; `file-name-as-directory' adds a slash so we can append a file name.
(when (fboundp 'temp-directory) (file-name-as-directory (temp-directory)))
... and then you don't need the `file-name-as-directory'.
"/tmp/")) "The directory that is used to store
temporary files for psvn.")
But we should also fix temp-directory.
Psvn somehow expects the Emacs variable value to always end with a
slash, while extra steps are taken to ensure that the value returned
by XEmacs also ends with a slash. Trouble is that vc-xemacs defines a
compatibility function #'temporary-file-directory, that simply returns
the value of #'temp-directory (which doesn't end with a slash on this
(unless (boundp 'temporary-file-directory)
(defvar temporary-file-directory (temp-directory)))
Does Emacs have both a function and a variable named
The compatibility wrappers should be moved to fsf-compat.
XEmacs-Beta mailing list