From 79e1997aa81717a59d134c677b1fdcf7eb12d257 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Arne=20J=C3=B8rgensen?= Date: Sat, 20 Oct 2012 19:34:06 +0800 Subject: [PATCH] * progmodes/flymake.el (flymake-create-temp-inplace): Use file-truename. Patch from: http://lists.gnu.org/archive/html/emacs-devel/2012-07/msg00444.html --- lisp/ChangeLog | 5 +++++ lisp/progmodes/flymake.el | 9 +++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 323ba976c80..dfd18592d0e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-10-20 Chong Yidong + + * progmodes/flymake.el (flymake-create-temp-inplace): Use + file-truename. + 2012-10-20 Eli Zaretskii * loadup.el: Update comment about uncompiled Lisp files. (Bug#12395) diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index 26d4a399c2d..2614af9ffa4 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el @@ -1535,10 +1535,11 @@ if ARG is omitted or nil." (error "Invalid file-name")) (or prefix (setq prefix "flymake")) - (let* ((temp-name (concat (file-name-sans-extension file-name) - "_" prefix - (and (file-name-extension file-name) - (concat "." (file-name-extension file-name)))))) + (let* ((ext (file-name-extension file-name)) + (temp-name (file-truename + (concat (file-name-sans-extension file-name) + "_" prefix + (and ext (concat "." ext)))))) (flymake-log 3 "create-temp-inplace: file=%s temp=%s" file-name temp-name) temp-name)) -- 2.39.2