From: Arne Jørgensen <arne@arnested.dk>
Date: Sat, 20 Oct 2012 11:34:06 +0000 (+0800)
Subject: * progmodes/flymake.el (flymake-create-temp-inplace): Use file-truename.
X-Git-Tag: emacs-24.2.90~211^2~32
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=79e1997aa81717a59d134c677b1fdcf7eb12d257;p=emacs.git

* progmodes/flymake.el (flymake-create-temp-inplace): Use file-truename.

Patch from:
http://lists.gnu.org/archive/html/emacs-devel/2012-07/msg00444.html
---

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  <cyd@gnu.org>
+
+	* progmodes/flymake.el (flymake-create-temp-inplace): Use
+	file-truename.
+
 2012-10-20  Eli Zaretskii  <eliz@gnu.org>
 
 	* 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))