Mercurial > emacs

diff doc/misc/flymake.texi @ 86275:2cce56fd7361

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--rel--22 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-937
author Miles Bader <miles@gnu.org>
date Wed, 21 Nov 2007 04:55:58 +0000
parents 5039706521c9
children 5d58981e6690
line wrap: on
line diff
--- a/doc/misc/flymake.texi	Wed Nov 21 04:36:42 2007 +0000
+++ b/doc/misc/flymake.texi	Wed Nov 21 04:55:58 2007 +0000
@@ -413,12 +413,9 @@
 (defun flymake-perl-init ()
   (let* ((temp-file (flymake-init-create-temp-buffer-copy
                      'flymake-create-temp-inplace))
-         (local-file  (concat (flymake-build-relative-filename
-                               (file-name-directory
-                                (buffer-file-name
-                                 (current-buffer)))
-                               (file-name-directory temp-file))
-                              (file-name-nondirectory temp-file))))
+	 (local-file (file-relative-name
+                      temp-file
+                      (file-name-directory buffer-file-name))))
     (list "perl" (list "-wc " local-file))))
 @end lisp