# HG changeset patch
# User Rik <octave@nomad.inbox5.com>
# Date 1295584302 28800
# Node ID f2e868fd8500997e27a0f95eedb030f1ca3002f4
# Parent  1577c6f8092640bfb9f20dacf5f0a04b7c889c1c
Mark scripts as coming from 'scripts/' directory in Texinfo '@c func location' comments.

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,8 @@
+2011-01-20  Rik  <octave@nomad.inbox5.com>
+
+	* mkdoc: Mark all scripts as coming from 'scripts/' directory
+	in Texinfo '@c func location' comments.
+
 2011-01-20  Rik  <octave@nomad.inbox5.com>
 
 	* scripts/linear-algebra/condest.m, 
diff --git a/scripts/mkdoc b/scripts/mkdoc
--- a/scripts/mkdoc
+++ b/scripts/mkdoc
@@ -57,7 +57,7 @@
 	  s/^\s+\@/\@/ unless $in_example;
 	  s/^\s+\@group/\@group/;
 	  s/^\s+\@end\s+group/\@end group/;
-	  s|\@c $re_srcdir|\@c scripts/|o;
+	  s|\@c $fcn $re_srcdir|\@c $fcn scripts/|o;
 	  $in_example = (/\s*\@example\b/ .. /\s*\@end\s+example\b/);
 	  print;
 	}' "$prefix" "$arg"