changeset 79454:39cb380f046d

(Example -- Configuring a tool called directly): Update example.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Nov 2007 12:39:39 +0000
parents 7acb0cfbf6a4
children 7121a67ae26f
files man/flymake.texi
diffstat 1 files changed, 3 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/man/flymake.texi	Tue Nov 20 12:38:26 2007 +0000
+++ b/man/flymake.texi	Tue Nov 20 12:39:39 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