diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2016-08-10 12:10:26 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2016-08-10 12:10:26 +0200 |
| commit | c2664aaab68759ebd8cfb615c1f2fd73f065caa7 (patch) | |
| tree | f352f5cad05914e9329f04a21cdc784ed9c525ed /test | |
| parent | 5115743b672ed71d704a3afaac8b9bb2e4f09dd7 (diff) | |
Add compatibility layer for `temporary-file-directory-function'
* lisp/net/tramp-compat.el
(tramp-compat-temporary-file-directory-function): New defalias.
* lisp/net/tramp.el (tramp-handle-make-nearby-temp-file): Use it.
* test/lisp/net/tramp-tests.el (tramp-test32-make-nearby-temp-file):
Skip for older Emacs versions.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index af705f6ce6..1735693cc2 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el @@ -1934,9 +1934,12 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." (ignore-errors (delete-file tmp-name1)) (ignore-errors (delete-directory tmp-name2 'recursive))))) +;; The functions have been introduced in Emacs 25.2. (ert-deftest tramp-test32-make-nearby-temp-file () "Check `make-nearby-temp-file' and `temporary-file-directory'." (skip-unless (tramp--test-enabled)) + (skip-unless + (and (fboundp 'make-nearby-temp-file) (fboundp 'temporary-file-directory))) (let ((default-directory tramp-test-temporary-file-directory) tmp-file) |