]> git.eshelyaron.com Git - emacs.git/commitdiff
* progmodes/flymake.el (flymake-create-temp-inplace): Use file-truename.
authorArne Jørgensen <arne@arnested.dk>
Sat, 20 Oct 2012 11:34:06 +0000 (19:34 +0800)
committerChong Yidong <cyd@gnu.org>
Sat, 20 Oct 2012 11:34:06 +0000 (19:34 +0800)
Patch from:
http://lists.gnu.org/archive/html/emacs-devel/2012-07/msg00444.html

lisp/ChangeLog
lisp/progmodes/flymake.el

index 323ba976c80b7ddd215eacb5eb442a1c928823f9..dfd18592d0e6bca89da728ba5dfc85ef70a01aad 100644 (file)
@@ -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)
index 26d4a399c2d5a16789ad481722d42a3595a1a5fd..2614af9ffa40b754fb6d1ba4d7f536c9422865ca 100644 (file)
@@ -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))