From ec79b93a14f176225d99914bdf043592670291aa Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 4 Dec 1997 04:20:34 +0000
Subject: [PATCH] (sgml-mode): Set imenu-generic-expression.

---
 lisp/textmodes/sgml-mode.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 8dfd427f9b4..bc2902e0d9f 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -369,6 +369,11 @@ Do \\[describe-key] on the following bindings to discover what they do.
 \\{sgml-mode-map}"
   (interactive)
   (sgml-mode-common sgml-tag-face-alist sgml-display-text)
+  ;; Set imenu-generic-expression here, rather than in sgml-mode-common,
+  ;; because this definition probably is not useful in HTML mode.
+  (make-local-variable 'imenu-generic-expression)
+  (setq imenu-generic-expression
+	"<!\\(element\\|entity\\)[ \t\n]+%?[ \t\n]*\\([A-Za-z][-A-Za-z.0-9]*\\)")
   (use-local-map sgml-mode-map)
   (setq mode-name "SGML"
 	major-mode 'sgml-mode))
-- 
2.39.2