aboutsummaryrefslogtreecommitdiffstats
path: root/admin/check-doc-strings
diff options
context:
space:
mode:
authorGlenn Morris2013-01-02 18:36:29 -0800
committerGlenn Morris2013-01-02 18:36:29 -0800
commit2036b4b8e075479ea5333689e299183b9c2f3ebb (patch)
treea41719ba23330fb99f38df3664727142779b4c46 /admin/check-doc-strings
parent035cd741521a450891579979ad889dd753f4795b (diff)
downloademacs-2036b4b8e075479ea5333689e299183b9c2f3ebb.tar.gz
emacs-2036b4b8e075479ea5333689e299183b9c2f3ebb.zip
* check-doc-strings: Update for CVS->bzr, moved lispref/ directory.
(Now it actually runs. Whether or not it does anything useful is another matter...)
Diffstat (limited to 'admin/check-doc-strings')
-rwxr-xr-xadmin/check-doc-strings8
1 files changed, 3 insertions, 5 deletions
diff --git a/admin/check-doc-strings b/admin/check-doc-strings
index ef4b203cd79..c69ff47ebfb 100755
--- a/admin/check-doc-strings
+++ b/admin/check-doc-strings
@@ -17,7 +17,7 @@ formal parameters, docstrings, and lispref texi.
17This program is in the public domain.\n"; 17This program is in the public domain.\n";
18 18
19die $usage if @ARGV; 19die $usage if @ARGV;
20die $usage unless -r "src/alloc.c" && -d "CVS" && -d "lisp"; 20die $usage unless -r "src/alloc.c" && -d ".bzr" && -d "lisp";
21 21
22my %texi_funtype; 22my %texi_funtype;
23my %texi_arglist; 23my %texi_arglist;
@@ -197,10 +197,8 @@ sub Check_function {
197 Show_details $show_details, $function, "@parms", $docstring; 197 Show_details $show_details, $function, "@parms", $docstring;
198} 198}
199 199
200my $lisprefdir; 200my $lisprefdir = "doc/lispref";
201if (-d "man/lispref") { $lisprefdir = "man/lispref"; } 201die "Can't find lispref texi directory.\n" unless -d $lisprefdir;
202elsif (-d "lispref") { $lisprefdir = "lispref"; }
203else { die "Can't find lispref texi directory.\n"; }
204 202
205open (FIND, "find $lisprefdir -name '*.texi' -print |") or die; 203open (FIND, "find $lisprefdir -name '*.texi' -print |") or die;
206while (my $file = <FIND>) { 204while (my $file = <FIND>) {