(Type Predicates): Add links for booleanp and string-or-null-p.

[gnu-emacs] / lispref / tindex.pl

diff --git a/lispref/tindex.pl b/lispref/tindex.pl
index c138f5d66f1df646e9ad9342dad707e922518c54..6d9be40dfcbad8c3ab87e59e3389056726ada3fe 100755 (executable)
--- a/lispref/tindex.pl
+++ b/lispref/tindex.pl
@@ -1,6 +1,7 @@
 #! /usr/bin/perl
 
-# Copyright (C) 2000 Free Software Foundation, Inc.
+# Copyright (C) 2000, 2002, 2003, 2004, 2005,
+#   2006 Free Software Foundation, Inc.
 #
 # This file is part of GNU Emacs.
 #
@@ -16,8 +17,8 @@
 #
 # You should have received a copy of the GNU General Public License
 # along with GNU Emacs; see the file COPYING.  If not, write to the
-# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-# Boston, MA 02111-1307, USA.
+# Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+# Boston, MA 02110-1301, USA.
 
 require 5;
 use Getopt::Long;
@@ -52,7 +53,7 @@ my $help = 0;
 my $version = 0;
 my $old;
 
-my $rc = GetOptions ('help' => \$help, 'version' => \$version, 
+my $rc = GetOptions ('help' => \$help, 'version' => \$version,
                      'old=s' => \$old);
 if ($version) {
     print "0.1\n";
@@ -86,14 +87,14 @@ foreach $file (@old_files) {
     close IN;
 }
 
-# Process current files and remove those @tindex lines which we 
+# Process current files and remove those @tindex lines which we
 # know were already present in the files scanned above.
 
 print "Removing old \@tindex lines\n";
 foreach $file (@new_files) {
     my $modified = 0;
     my $contents = "";
-    
+
     open (IN, "< $file") or fatal "Cannot open $file.orig for reading: $!";
     while (<IN>) {
        if (/^\s*\@tindex\s+(\S+)/ && $tindex{$1}) {
@@ -103,7 +104,7 @@ foreach $file (@new_files) {
            $contents = $contents . $_;
        }
     }
-    
+
     close IN;
 
     if ($modified) {
@@ -123,3 +124,4 @@ foreach $key (keys %removed) {
     print "  $key\n";
 }
 
+# arch-tag: f8460df6-6bef-4c98-8555-e2c63a88b0fa