From: Glenn Morris <rgm@gnu.org>
Date: Thu, 3 Jan 2013 02:36:29 +0000 (-0800)
Subject: * check-doc-strings: Update for CVS->bzr, moved lispref/ directory.
X-Git-Tag: emacs-24.3.90~173^2~7^2~415
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2036b4b8e075479ea5333689e299183b9c2f3ebb;p=emacs.git

* check-doc-strings: Update for CVS->bzr, moved lispref/ directory.
(Now it actually runs.  Whether or not it does anything useful is
another matter...)
---

diff --git a/admin/ChangeLog b/admin/ChangeLog
index e33c98b97bc..fa001ede6cb 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,5 +1,7 @@
 2013-01-03  Glenn Morris  <rgm@gnu.org>
 
+	* check-doc-strings: Update for CVS->bzr, moved lispref/ directory.
+
 	* emacs-pretesters, make-announcement, make-changelog-diff:
 	Remove files.
 
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.
 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;
@@ -197,10 +197,8 @@ sub Check_function {
   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>) {