diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2023-04-09 20:28:32 +0100 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2023-04-09 20:28:32 +0100 |
| commit | 48f3bfb8b987b19cbecce592e9195b8a8a743c08 (patch) | |
| tree | cb1eb0732da3270836eefe5e1c9ced8833111eb8 /lisp/emacs-lisp | |
| parent | 9037159c47a1ab53f860de91cf4f97ff56acd96f (diff) | |
| download | emacs-48f3bfb8b987b19cbecce592e9195b8a8a743c08.tar.gz | |
Tweak ert-remote-temporary-file-directory in tests
* lisp/emacs-lisp/ert-x.el (ert-remote-temporary-file-directory):
Don't add trailing slash to HOME (bug#61637). Reindent docstring.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/ert-x.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/ert-x.el b/lisp/emacs-lisp/ert-x.el index 98a017c8a8e..e8b0dd92989 100644 --- a/lisp/emacs-lisp/ert-x.el +++ b/lisp/emacs-lisp/ert-x.el @@ -563,9 +563,9 @@ The same keyword arguments are supported as in ;; Emacs's Makefile sets $HOME to a nonexistent value. Needed ;; in batch mode only, therefore. (when (and noninteractive (not (file-directory-p "~/"))) - (setenv "HOME" temporary-file-directory)) + (setenv "HOME" (directory-file-name temporary-file-directory))) (format "/mock::%s" temporary-file-directory)))) - "Temporary directory for remote file tests.") + "Temporary directory for remote file tests.") (provide 'ert-x) |