451 |
;; recognized. |
;; recognized. |
452 |
(set (make-local-variable 'comment-start-skip) "\\(?:<!\\)?--[ \t]*") |
(set (make-local-variable 'comment-start-skip) "\\(?:<!\\)?--[ \t]*") |
453 |
(set (make-local-variable 'comment-end-skip) "[ \t]*--\\([ \t\n]*>\\)?") |
(set (make-local-variable 'comment-end-skip) "[ \t]*--\\([ \t\n]*>\\)?") |
454 |
;; This definition probably is not useful in derived modes. |
;; This definition has an HTML leaning but probably fits well for other modes. |
455 |
(set (make-local-variable 'imenu-generic-expression) |
(setq imenu-generic-expression |
456 |
(concat "<!\\(element\\|entity\\)[ \t\n]+%?[ \t\n]*\\(" |
`((nil |
457 |
sgml-name-re "\\)"))) |
,(concat "<!\\(element\\|entity\\)[ \t\n]+%?[ \t\n]*\\(" |
458 |
|
sgml-name-re "\\)") |
459 |
|
2) |
460 |
|
("Id" |
461 |
|
,(concat "<[^>]+[ \t\n]+[Ii][Dd]=\\(['\"]" |
462 |
|
(if sgml-xml-mode "" "?") |
463 |
|
"\\)\\(" sgml-name-re "\\)\\1") |
464 |
|
2) |
465 |
|
("Name" |
466 |
|
,(concat "<[^>]+[ \t\n]+[Nn][Aa][Mm][Ee]=\\(['\"]" |
467 |
|
(if sgml-xml-mode "" "?") |
468 |
|
"\\)\\(" sgml-name-re "\\)\\1") |
469 |
|
2)))) |
470 |
|
|
471 |
;; Some programs (such as Glade 2) generate XML which has |
;; Some programs (such as Glade 2) generate XML which has |
472 |
;; -*- mode: xml -*-. |
;; -*- mode: xml -*-. |