changeset 20394:dad8223e709d

(sgml-mode): Set imenu-generic-expression.
author Karl Heuer <kwzh@gnu.org>
date Thu, 04 Dec 1997 04:20:34 +0000
parents 6f1b751fc31d
children 2bd6621697d5
files lisp/textmodes/sgml-mode.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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))