HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Spelling fixes.
[bpt/emacs.git]
/
admin
/
check-doc-strings
diff --git
a/admin/check-doc-strings
b/admin/check-doc-strings
index
ef4b203
..
a0b5acb
100755
(executable)
--- a/
admin/check-doc-strings
+++ b/
admin/check-doc-strings
@@
-1,11
+1,12
@@
: #-*- Perl -*-
: #-*- Perl -*-
-eval 'exec perl -
w -
S $0 ${1+"$@"}' # Portability kludge
+eval 'exec perl -S $0 ${1+"$@"}' # Portability kludge
if 0;
# Author: Martin Buchholz
# This program is in the public domain.
use strict;
if 0;
# Author: Martin Buchholz
# This program is in the public domain.
use strict;
+use warnings;
use POSIX;
(my $myName = $0) =~ s@.*/@@; my $usage="
use POSIX;
(my $myName = $0) =~ s@.*/@@; my $usage="
@@
-17,7
+18,7
@@
formal parameters, docstrings, and lispref texi.
This program is in the public domain.\n";
die $usage if @ARGV;
This program is in the public domain.\n";
die $usage if @ARGV;
-die $usage unless -r "src/alloc.c" && -d "
CVS
" && -d "lisp";
+die $usage unless -r "src/alloc.c" && -d "
.bzr
" && -d "lisp";
my %texi_funtype;
my %texi_arglist;
my %texi_funtype;
my %texi_arglist;
@@
-197,10
+198,8
@@
sub Check_function {
Show_details $show_details, $function, "@parms", $docstring;
}
Show_details $show_details, $function, "@parms", $docstring;
}
-my $lisprefdir;
-if (-d "man/lispref") { $lisprefdir = "man/lispref"; }
-elsif (-d "lispref") { $lisprefdir = "lispref"; }
-else { die "Can't find lispref texi directory.\n"; }
+my $lisprefdir = "doc/lispref";
+die "Can't find lispref texi directory.\n" unless -d $lisprefdir;
open (FIND, "find $lisprefdir -name '*.texi' -print |") or die;
while (my $file = <FIND>) {
open (FIND, "find $lisprefdir -name '*.texi' -print |") or die;
while (my $file = <FIND>) {