mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(sgml-mode): Set imenu-generic-expression.

Browse Source
This commit is contained in:
Karl Heuer 1997-12-04 04:20:34 +00:00
parent 54e7fabaf3
commit ec79b93a14
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/textmodes/sgml-mode.el
View File

@ -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))