]> code.delx.au - gnu-emacs/blobdiff - doc/misc/flymake.texi
* dbus.texi (Type Conversion): Explain the type specification for empty
[gnu-emacs] / doc / misc / flymake.texi
index 491ee631fe7977629d13221f263caa13dc0a17c0..6ab4c199de660ff9deebd5819bc29848a19ad0c3 100644 (file)
@@ -413,12 +413,9 @@ First, we write the @code{init-function}:
 (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