(Example -- Configuring a tool called directly): Update example.

2 files changed, 8 insertions, 6 deletions

diff --git a/man/ChangeLog b/man/ChangeLog
index 955ce866033..88b4087d6ca 100644
--- a/man/ChangeLog
+++ b/man/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-18  Richard Stallman  <rms@gnu.org>
+
+        * flymake.texi (Example -- Configuring a tool called directly): 
+        Update example.
+
 2007-11-15  Juanma Barranquero  <lekktu@gmail.com>
 
         * cc-mode.texi (Electric Keys, Custom Macros): Fix typos.
diff --git a/man/flymake.texi b/man/flymake.texi
index 340a1d164fd..b5ad634c803 100644
--- a/man/flymake.texi
+++ b/man/flymake.texi
@@ -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