[Emacs-diffs] Changes to emacs/lisp/textmodes/sgml-mode.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/textmodes/sgml-mode.el
diff -c emacs/lisp/textmodes/sgml-mode.el:1.98.2.2 
emacs/lisp/textmodes/sgml-mode.el:1.98.2.3
*** emacs/lisp/textmodes/sgml-mode.el:1.98.2.2  Fri Apr 16 12:50:37 2004
--- emacs/lisp/textmodes/sgml-mode.el   Wed Oct 27 05:42:03 2004
***************
*** 451,460 ****
    ;; recognized.
    (set (make-local-variable 'comment-start-skip) "\\(?:<!\\)?--[ \t]*")
    (set (make-local-variable 'comment-end-skip) "[ \t]*--\\([ \t\n]*>\\)?")
!   ;; This definition probably is not useful in derived modes.
!   (set (make-local-variable 'imenu-generic-expression)
!        (concat "<!\\(element\\|entity\\)[ \t\n]+%?[ \t\n]*\\("
!              sgml-name-re "\\)")))
  
  ;; Some programs (such as Glade 2) generate XML which has
  ;; -*- mode: xml -*-.
--- 451,472 ----
    ;; recognized.
    (set (make-local-variable 'comment-start-skip) "\\(?:<!\\)?--[ \t]*")
    (set (make-local-variable 'comment-end-skip) "[ \t]*--\\([ \t\n]*>\\)?")
!   ;; This definition has an HTML leaning but probably fits well for other 
modes.
!   (setq imenu-generic-expression
!       `((nil
!          ,(concat "<!\\(element\\|entity\\)[ \t\n]+%?[ \t\n]*\\("
!                   sgml-name-re "\\)")
!          2)
!         ("Id"
!          ,(concat "<[^>]+[ \t\n]+[Ii][Dd]=\\(['\"]"
!                   (if sgml-xml-mode "" "?")
!                   "\\)\\(" sgml-name-re "\\)\\1")
!          2)
!         ("Name"
!          ,(concat "<[^>]+[ \t\n]+[Nn][Aa][Mm][Ee]=\\(['\"]"
!                   (if sgml-xml-mode "" "?")
!                   "\\)\\(" sgml-name-re "\\)\\1")
!          2))))
  
  ;; Some programs (such as Glade 2) generate XML which has
  ;; -*- mode: xml -*-.