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

diff --git a/man/ChangeLog b/man/ChangeLog
index 955ce86603391748d1ef35943b18ade9fe4121df..88b4087d6cadc354af6cd33711c078f63130bc4e 100644 (file)
--- 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 340a1d164fd7027b8ee48d3cc785292706c4f5a8..b5ad634c8033d075f64cecdc76606dc1f236b261 100644 (file)
--- 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