/[emacs]/emacs/lisp/textmodes/sgml-mode.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/sgml-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.98.2.2 by handa, Fri Apr 16 12:50:37 2004 UTC revision 1.98.2.3 by miles, Wed Oct 27 05:42:03 2004 UTC
# Line 451  Do \\[describe-key] on the following bin Line 451  Do \\[describe-key] on the following bin
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 -*-.

Legend:
Removed from v.1.98.2.2  
changed lines
  Added in v.1.98.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26