# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 881209234 0
# Node ID dad8223e709d28ac6c825b3db5f2e31f3bef4c81
# Parent  6f1b751fc31d755360ca938e80ac90e5a97056f1
(sgml-mode): Set imenu-generic-expression.

diff -r 6f1b751fc31d -r dad8223e709d lisp/textmodes/sgml-mode.el
--- a/lisp/textmodes/sgml-mode.el	Thu Dec 04 04:13:58 1997 +0000
+++ b/lisp/textmodes/sgml-mode.el	Thu Dec 04 04:20:34 1997 +0000
@@ -369,6 +369,11 @@
 \\{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))