Issue with psvn and vc-xemacs: temporary-file-directory
Marcus writes:
(defvar svn-status-temp-dir
(expand-file-name
A
Just insert "" here -----+ since expand-file-name is being used anyway ...
(or
(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
system anyway):
(unless (boundp 'temporary-file-directory)
(defvar temporary-file-directory (temp-directory)))
Does Emacs have both a function and a variable named
"temporary-file-directory"?
The compatibility wrappers should be moved to fsf-compat.
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta