From a057771a5af5c9f33ab08a1a55676f3b0ddbee74 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sat, 3 Feb 2018 20:08:29 +0100 Subject: [PATCH] * test/lisp/files-tests.el (files-tests--with-temp-non-special): Expand `temporary-file-directory' by `file-truename', in case it is located on a symlinked directory. (Bug#30327) --- test/lisp/files-tests.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index 5f42b904cca..4e1d20edf05 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el @@ -351,7 +351,8 @@ be invoked with the right arguments." (declare (indent 1) (debug ((symbolp symbolp &optional form) body))) (cl-check-type name symbol) (cl-check-type non-special-name symbol) - `(let* ((,name (make-temp-file "files-tests" ,dir-flag)) + `(let* ((temporary-file-directory (file-truename temporary-file-directory)) + (,name (make-temp-file "files-tests" ,dir-flag)) (,non-special-name (file-name-quote ,name))) (unwind-protect (progn ,@body) -- 2.11.4.GIT