[Emacs-diffs] /srv/bzr/emacs/trunk r110598: * progmodes/flymake.el (flymake-create-temp-inplace): Use file-truename.

[Chong Yidong]

------------------------------------------------------------
revno: 110598
author: Arne Jørgensen <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2012-10-20 19:34:06 +0800
message:
  * progmodes/flymake.el (flymake-create-temp-inplace): Use file-truename.
  
  Patch from:
  http://lists.gnu.org/archive/html/emacs-devel/2012-07/msg00444.html
modified:
  lisp/ChangeLog
  lisp/progmodes/flymake.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-20 10:01:19 +0000
+++ b/lisp/ChangeLog    2012-10-20 11:34:06 +0000
@@ -1,3 +1,8 @@
+2012-10-20  Chong Yidong  <address@hidden>
+
+       * progmodes/flymake.el (flymake-create-temp-inplace): Use
+       file-truename.
+
 2012-10-20  Eli Zaretskii  <address@hidden>
 
        * loadup.el: Update comment about uncompiled Lisp files.  (Bug#12395)

=== modified file 'lisp/progmodes/flymake.el'
--- a/lisp/progmodes/flymake.el 2012-10-06 20:30:26 +0000
+++ b/lisp/progmodes/flymake.el 2012-10-20 11:34:06 +0000
@@ -1535,10 +1535,11 @@
     (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))