From a5a3cdcf4df6332c2885231a8265b8e88f3e0622 Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Mon, 8 Dec 1997 20:58:13 +0000
Subject: [PATCH] Added Emacs turd so this file has the correct mode in Emacs /
 X/Emacs.

clean_key():  Override the standard LaTeX2HTML clean_key() to remove a
	leading HTML tag, if present.  This broke the indexes for the library
	reference (at least) since many of the strings began with <code> or
	something similar.
---
 Doc/.latex2html-init | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/Doc/.latex2html-init b/Doc/.latex2html-init
index 96962935695..876d7289508 100644
--- a/Doc/.latex2html-init
+++ b/Doc/.latex2html-init
@@ -1,4 +1,4 @@
-#LaTeX2HTML Version 96.1 : dot.latex2html-init
+#LaTeX2HTML Version 96.1 : dot.latex2html-init		-*- perl -*-
 #
 
 $INFO = 1;              # 0 = do not make a "About this document..." section 
@@ -196,4 +196,15 @@ sub add_idx {
 }
 
 
+# need to remove leading <...>
+sub clean_key {
+    local ($_) = @_;
+    tr/A-Z/a-z/;
+    s/\s//;
+    s/\#\#\#\d+$//o;  		# Remove the unique id
+    s/^<[a-z][-._a-z0-9]*>//;	# Remove leading <gi>
+    $_
+}
+
+
 1;	# This must be the last line