From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 20 Nov 2007 12:39:52 +0000 (+0000)
Subject: (Example -- Configuring a tool called directly): Update example.
X-Git-Tag: emacs-pretest-22.1.90~339
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ef5ef3febd0a508a9fd0ea8bfc916803fc6bac6;p=emacs.git

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

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