mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-18 10:16:51 +00:00
Code Issues Releases Activity

* test/lisp/files-tests.el (files-tests--with-temp-non-special):

Browse Source 
Expand `temporary-file-directory' by `file-truename', in case
it is located on a symlinked directory.  (Bug#30327)
This commit is contained in:
Michael Albinus 2018-02-03 20:08:29 +01:00
parent a2cb52cd2e
commit a057771a5a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/lisp/files-tests.el
View File

@ -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)