nxhtml/tests/in/eval-in-html.el

   1 ;; This file contains an example of the functions that are defined by\r
   2 ;; `mumamo-fetch-major-mode-setup'. The file was written using utf-8.\r
   3 \r
   4 ;; The functions are given names like mumamo-eval-in-MODE. The code\r
   5 ;; that was evaled to define the function is saved in the property\r
   6 ;; `mumamo-defun' on the function symbol. This code was used to insert\r
   7 ;; the function code below:\r
   8 (insert (pp-to-string (get 'mumamo-eval-in-html-mode 'mumamo-defun)))\r
   9 \r
  10 ;; I have inserted comments by hand below:\r
  11 (defun mumamo-eval-in-html-mode (body)\r
  12   ;; The parameter BODY is evaled at the end of the let form\r
  13   ;; below. The let bound variables are from two sources:\r
  14   ;;\r
  15   ;; 1) Buffer local variables (minus some that do not fit/disturbs,\r
  16   ;;    see `mumamo-get-relevant-buffer-local-vars'.\r
  17   ;;\r
  18   ;; 2) From the list in `mumamo-fetch-major-mode-setup'. This list\r
  19   ;;    contains variables that are often set buffer locally for\r
  20   ;;    fontification indentation etc. Unfortunately not all of these\r
  21   ;;    are automatic buffer locals.\r
  22   (let\r
  23       ;; These variables are from the list in\r
  24       ;; `mumamo-fetch-major-mode-setup':\r
  25       ((sgml-xml-mode nil)\r
  26        (indent-line-function 'sgml-indent-line)\r
  27        (indent-region-function nil)\r
  28        (normal-auto-fill-function 'do-auto-fill)\r
  29        (comment-start "<!-- ")\r
  30        (comment-end " -->")\r
  31        (comment-start-skip "<!--[       ]*")\r
  32        (comment-end-skip "[     ]*--[   \n]*>")\r
  33        (comment-multi-line nil)\r
  34        (comment-line-break-function 'sgml-comment-indent-new-line)\r
  35        (paragraph-start "[      ]*$\\|[         ]*</?\\([_:[:alpha:]][-_.:[:alnum:]]*\\(?:[^\"'/><]\\|\"[^\"]*\"\\|'[^']*'\\)*\\)?>")\r
  36        (paragraph-separate "[   ]*$\\|[         ]*</?\\([_:[:alpha:]][-_.:[:alnum:]]*\\(?:[^\"'/><]\\|\"[^\"]*\"\\|'[^']*'\\)*\\)?>$")\r
  37        (paragraph-ignore-fill-prefix nil)\r
  38        (adaptive-fill-mode t)\r
  39        (adaptive-fill-regexp "[         ]*")\r
  40        (font-lock-multiline nil)\r
  41        (font-lock-extend-after-change-region-function nil)\r
  42        (font-lock-extend-region-functions\r
  43         '(font-lock-extend-region-wholelines font-lock-extend-region-multiline))\r
  44        (font-lock-comment-start-skip nil)\r
  45        (font-lock-comment-end-skip nil)\r
  46        (font-lock-set-defaults)\r
  47        (font-lock-defaults\r
  48         '((sgml-font-lock-keywords sgml-font-lock-keywords-1 sgml-font-lock-keywords-2)\r
  49           nil t nil nil\r
  50           (font-lock-syntactic-keywords . sgml-font-lock-syntactic-keywords)))\r
  51        (font-lock-beginning-of-syntax-function nil)\r
  52        (font-lock-syntactic-face-function\r
  53         '#[(state)\r
  54            "\303\b8\203\b\0        \207\n\207"\r
  55            [state font-lock-string-face font-lock-comment-face 3]\r
  56            2])\r
  57        (font-lock-mark-block-function nil)\r
  58        (font-lock-extra-managed-props nil)\r
  59        (font-lock-fontify-buffer-function 'jit-lock-refontify)\r
  60        (font-lock-unfontify-buffer-function 'font-lock-default-unfontify-buffer)\r
  61        (font-lock-fontify-region-function 'font-lock-default-fontify-region)\r
  62        (font-lock-unfontify-region-function 'font-lock-default-unfontify-region)\r
  63        (jit-lock-after-change-extend-region-functions\r
  64         '(font-lock-extend-jit-lock-region-after-change t))\r
  65        (syntax-begin-function nil)\r
  66        (fill-paragraph-function nil)\r
  67        (comment-use-global-state nil)\r
  68        (multibyte-syntax-as-symbol 'multibyte-syntax-as-symbol)\r
  69        (parse-sexp-ignore-comments 'parse-sexp-ignore-comments)\r
  70        (parse-sexp-lookup-properties 'parse-sexp-lookup-properties)\r
  71 \r
  72        ;; These variables are fetched with\r
  73        ;; `mumamo-get-relevant-buffer-local-vars':\r
  74        (text-mode-variant t)\r
  75        (skeleton-transformation-function 'identity)\r
  76        (skeleton-further-elements\r
  77         '((completion-ignore-case t)))\r
  78        (skeleton-end-hook\r
  79         '#[nil "l\206\024\0\b\301=\206\016\0\b\242\301=?\206\024\0\302 \207"\r
  80                [v2 n newline-and-indent]\r
  81                2])\r
  82        (sgml-xml-mode nil)\r
  83        (sgml-unclosed-tags\r
  84         '("body" "colgroup" "dd" "dt" "head" "html" "li" "option" "p" "tbody" "td" "tfoot" "th" "thead" "tr"))\r
  85        (sgml-tag-help\r
  86         '(("!" . "Empty declaration for comment")\r
  87           ("![" . "Embed declarations with parser directive")\r
  88           ("!attlist" . "Tag attributes declaration")\r
  89           ("!doctype" . "Document type (DTD) declaration")\r
  90           ("!element" . "Tag declaration")\r
  91           ("!entity" . "Entity (macro) declaration")\r
  92           ("a" . "Anchor of point or link elsewhere")\r
  93           ("abbrev" . "?")\r
  94           ("acronym" . "?")\r
  95           ("address" . "Formatted mail address")\r
  96           ("array" . "Math array")\r
  97           ("au" . "?")\r
  98           ("b" . "Bold face")\r
  99           ("base" . "Base address for URLs")\r
 100           ("big" . "Font size")\r
 101           ("blink" . "Blinking text")\r
 102           ("blockquote" . "Indented quotation")\r
 103           ("body" . "Document body")\r
 104           ("box" . "Math fraction")\r
 105           ("br" . "Line break")\r
 106           ("caption" . "Table caption")\r
 107           ("center" . "Centered text")\r
 108           ("changed" . "Change bars")\r
 109           ("cite" . "Citation of a document")\r
 110           ("code" . "Formatted source code")\r
 111           ("dd" . "Definition of term")\r
 112           ("del" . "?")\r
 113           ("dfn" . "?")\r
 114           ("dir" . "Directory list (obsolete)")\r
 115           ("dl" . "Definition list")\r
 116           ("dt" . "Term to be definined")\r
 117           ("em" . "Emphasized")\r
 118           ("embed" . "Embedded data in foreign format")\r
 119           ("fig" . "Figure")\r
 120           ("figa" . "Figure anchor")\r
 121           ("figd" . "Figure description")\r
 122           ("figt" . "Figure text")\r
 123           ("font" . "Font size")\r
 124           ("form" . "Form with input fields")\r
 125           ("group" . "Document grouping")\r
 126           ("h1" . "Most important section headline")\r
 127           ("h2" . "Important section headline")\r
 128           ("h3" . "Section headline")\r
 129           ("h4" . "Minor section headline")\r
 130           ("h5" . "Unimportant section headline")\r
 131           ("h6" . "Least important section headline")\r
 132           ("head" . "Document header")\r
 133           ("hr" . "Horizontal rule")\r
 134           ("html" . "HTML Document")\r
 135           ("i" . "Italic face")\r
 136           ("img" . "Graphic image")\r
 137           ("input" . "Form input field")\r
 138           ("ins" . "?")\r
 139           ("isindex" . "Input field for index search")\r
 140           ("kbd" . "Keybard example face")\r
 141           ("lang" . "Natural language")\r
 142           ("li" . "List item")\r
 143           ("link" . "Link relationship")\r
 144           ("math" . "Math formula")\r
 145           ("menu" . "Menu list (obsolete)")\r
 146           ("mh" . "Form mail header")\r
 147           ("nextid" . "Allocate new id")\r
 148           ("nobr" . "Text without line break")\r
 149           ("ol" . "Ordered list")\r
 150           ("option" . "Selection list item")\r
 151           ("over" . "Math fraction rule")\r
 152           ("p" . "Paragraph start")\r
 153           ("panel" . "Floating panel")\r
 154           ("person" . "?")\r
 155           ("pre" . "Preformatted fixed width text")\r
 156           ("q" . "?")\r
 157           ("rev" . "Reverse video")\r
 158           ("s" . "?")\r
 159           ("samp" . "Sample text")\r
 160           ("select" . "Selection list")\r
 161           ("small" . "Font size")\r
 162           ("sp" . "Nobreak space")\r
 163           ("strong" . "Standout text")\r
 164           ("sub" . "Subscript")\r
 165           ("sup" . "Superscript")\r
 166           ("table" . "Table with rows and columns")\r
 167           ("tb" . "Table vertical break")\r
 168           ("td" . "Table data cell")\r
 169           ("textarea" . "Form multiline edit area")\r
 170           ("th" . "Table header cell")\r
 171           ("title" . "Document title")\r
 172           ("tr" . "Table row separator")\r
 173           ("tt" . "Typewriter face")\r
 174           ("u" . "Underlined text")\r
 175           ("ul" . "Unordered list")\r
 176           ("var" . "Math variable face")\r
 177           ("wbr" . "Enable <br> within <nobr>")))\r
 178        (sgml-tag-face-alist\r
 179         '(("b" . bold)\r
 180           ("big" . bold)\r
 181           ("blink" . highlight)\r
 182           ("cite" . italic)\r
 183           ("em" . italic)\r
 184           ("h1" bold underline)\r
 185           ("h2" bold-italic underline)\r
 186           ("h3" italic underline)\r
 187           ("h4" . underline)\r
 188           ("h5" . underline)\r
 189           ("h6" . underline)\r
 190           ("i" . italic)\r
 191           ("rev" . modeline)\r
 192           ("s" . underline)\r
 193           ("small" . default)\r
 194           ("strong" . bold)\r
 195           ("title" bold underline)\r
 196           ("tt" . default)\r
 197           ("u" . underline)\r
 198           ("var" . italic)))\r
 199        (sgml-tag-alist\r
 200         '(("a"\r
 201            ("name")\r
 202            ("href"\r
 203             ("ftp:")\r
 204             ("file:")\r
 205             ("finger:")\r
 206             ("gopher:")\r
 207             ("http:")\r
 208             ("mailto:")\r
 209             ("news:")\r
 210             ("rlogin:")\r
 211             ("telnet:")\r
 212             ("tn3270:")\r
 213             ("wais:")\r
 214             ("/cgi-bin/"))\r
 215            ("rel"\r
 216             ("next")\r
 217             ("previous")\r
 218             ("parent")\r
 219             ("subdocument")\r
 220             ("made"))\r
 221            ("rev"\r
 222             ("next")\r
 223             ("previous")\r
 224             ("parent")\r
 225             ("subdocument")\r
 226             ("made"))\r
 227            ("title"))\r
 228           ("base" t "href"\r
 229            ("ftp:")\r
 230            ("file:")\r
 231            ("finger:")\r
 232            ("gopher:")\r
 233            ("http:")\r
 234            ("mailto:")\r
 235            ("news:")\r
 236            ("rlogin:")\r
 237            ("telnet:")\r
 238            ("tn3270:")\r
 239            ("wais:")\r
 240            ("/cgi-bin/"))\r
 241           ("dir"\r
 242            (nil n\r
 243                 ("List item: " "<li>" str\r
 244                  (if sgml-xml-mode "</li>")\r
 245                  n)))\r
 246           ("font" nil "size"\r
 247            ("-1")\r
 248            ("+1")\r
 249            ("-2")\r
 250            ("+2")\r
 251            ("1")\r
 252            ("2")\r
 253            ("3")\r
 254            ("4")\r
 255            ("5")\r
 256            ("6")\r
 257            ("7"))\r
 258           ("form"\r
 259            (n _ n "<input type=\"submit\" value=\"\""\r
 260               (if sgml-xml-mode " />" ">"))\r
 261            ("action"\r
 262             ("ftp:")\r
 263             ("file:")\r
 264             ("finger:")\r
 265             ("gopher:")\r
 266             ("http:")\r
 267             ("mailto:")\r
 268             ("news:")\r
 269             ("rlogin:")\r
 270             ("telnet:")\r
 271             ("tn3270:")\r
 272             ("wais:")\r
 273             ("/cgi-bin/"))\r
 274            ("method"\r
 275             ("get")\r
 276             ("post")))\r
 277           ("h1"\r
 278            ("align"\r
 279             ("left")\r
 280             ("center")\r
 281             ("right")))\r
 282           ("h2"\r
 283            ("align"\r
 284             ("left")\r
 285             ("center")\r
 286             ("right")))\r
 287           ("h3"\r
 288            ("align"\r
 289             ("left")\r
 290             ("center")\r
 291             ("right")))\r
 292           ("h4"\r
 293            ("align"\r
 294             ("left")\r
 295             ("center")\r
 296             ("right")))\r
 297           ("h5"\r
 298            ("align"\r
 299             ("left")\r
 300             ("center")\r
 301             ("right")))\r
 302           ("h6"\r
 303            ("align"\r
 304             ("left")\r
 305             ("center")\r
 306             ("right")))\r
 307           ("hr" t\r
 308            ("size"\r
 309             ("1")\r
 310             ("2")\r
 311             ("3")\r
 312             ("4")\r
 313             ("5")\r
 314             ("6")\r
 315             ("7")\r
 316             ("8")\r
 317             ("9"))\r
 318            ("width")\r
 319            ("noshade" t)\r
 320            ("align"\r
 321             ("left")\r
 322             ("center")\r
 323             ("right")))\r
 324           ("img" t\r
 325            ("align"\r
 326             ("top")\r
 327             ("middle")\r
 328             ("bottom")\r
 329             ("baseline")\r
 330             ("texttop")\r
 331             ("absmiddle")\r
 332             ("absbottom"))\r
 333            ("src")\r
 334            ("alt")\r
 335            ("width" "1")\r
 336            ("height" "1")\r
 337            ("border" "1")\r
 338            ("vspace" "1")\r
 339            ("hspace" "1")\r
 340            ("ismap" t))\r
 341           ("input" t\r
 342            ("size"\r
 343             ("1")\r
 344             ("2")\r
 345             ("3")\r
 346             ("4")\r
 347             ("5")\r
 348             ("6")\r
 349             ("7")\r
 350             ("8")\r
 351             ("9"))\r
 352            ("maxlength"\r
 353             ("1")\r
 354             ("2")\r
 355             ("3")\r
 356             ("4")\r
 357             ("5")\r
 358             ("6")\r
 359             ("7")\r
 360             ("8")\r
 361             ("9"))\r
 362            ("checked" t)\r
 363            ("name")\r
 364            ("type"\r
 365             ("text")\r
 366             ("password")\r
 367             ("checkbox")\r
 368             ("radio")\r
 369             ("submit")\r
 370             ("reset"))\r
 371            ("value"))\r
 372           ("link" t\r
 373            ("href"\r
 374             ("ftp:")\r
 375             ("file:")\r
 376             ("finger:")\r
 377             ("gopher:")\r
 378             ("http:")\r
 379             ("mailto:")\r
 380             ("news:")\r
 381             ("rlogin:")\r
 382             ("telnet:")\r
 383             ("tn3270:")\r
 384             ("wais:")\r
 385             ("/cgi-bin/"))\r
 386            ("rel"\r
 387             ("next")\r
 388             ("previous")\r
 389             ("parent")\r
 390             ("subdocument")\r
 391             ("made"))\r
 392            ("rev"\r
 393             ("next")\r
 394             ("previous")\r
 395             ("parent")\r
 396             ("subdocument")\r
 397             ("made"))\r
 398            ("title"))\r
 399           ("menu"\r
 400            (nil n\r
 401                 ("List item: " "<li>" str\r
 402                  (if sgml-xml-mode "</li>")\r
 403                  n)))\r
 404           ("ol"\r
 405            (nil n\r
 406                 ("List item: " "<li>" str\r
 407                  (if sgml-xml-mode "</li>")\r
 408                  n))\r
 409            ("type"\r
 410             ("A")\r
 411             ("a")\r
 412             ("I")\r
 413             ("i")\r
 414             ("1")))\r
 415           ("p" t\r
 416            ("align"\r
 417             ("left")\r
 418             ("center")\r
 419             ("right")))\r
 420           ("select"\r
 421            (nil n\r
 422                 ("Text: " "<option>" str\r
 423                  (if sgml-xml-mode "</option>")\r
 424                  n))\r
 425            ("name")\r
 426            ("size"\r
 427             ("1")\r
 428             ("2")\r
 429             ("3")\r
 430             ("4")\r
 431             ("5")\r
 432             ("6")\r
 433             ("7")\r
 434             ("8")\r
 435             ("9"))\r
 436            ("multiple" t))\r
 437           ("table"\r
 438            (nil n\r
 439                 ((completing-read "Cell kind: "\r
 440                                   '(("td")\r
 441                                     ("th"))\r
 442                                   nil t "t")\r
 443                  "<tr><" str 62 _\r
 444                  (if sgml-xml-mode\r
 445                      (concat "<" str "></tr>"))\r
 446                  n))\r
 447            ("border" t\r
 448             ("1")\r
 449             ("2")\r
 450             ("3")\r
 451             ("4")\r
 452             ("5")\r
 453             ("6")\r
 454             ("7")\r
 455             ("8")\r
 456             ("9"))\r
 457            ("width" "10")\r
 458            ("cellpadding"))\r
 459           ("td" t\r
 460            ("align"\r
 461             ("left")\r
 462             ("center")\r
 463             ("right"))\r
 464            ("valign"\r
 465             ("top")\r
 466             ("middle")\r
 467             ("bottom")\r
 468             ("baseline"))\r
 469            ("colspan"\r
 470             ("1")\r
 471             ("2")\r
 472             ("3")\r
 473             ("4")\r
 474             ("5")\r
 475             ("6")\r
 476             ("7")\r
 477             ("8")\r
 478             ("9"))\r
 479            ("rowspan"\r
 480             ("1")\r
 481             ("2")\r
 482             ("3")\r
 483             ("4")\r
 484             ("5")\r
 485             ("6")\r
 486             ("7")\r
 487             ("8")\r
 488             ("9"))\r
 489            ("nowrap" t))\r
 490           ("textarea"\r
 491            ("name")\r
 492            ("rows"\r
 493             ("1")\r
 494             ("2")\r
 495             ("3")\r
 496             ("4")\r
 497             ("5")\r
 498             ("6")\r
 499             ("7")\r
 500             ("8")\r
 501             ("9"))\r
 502            ("cols"\r
 503             ("1")\r
 504             ("2")\r
 505             ("3")\r
 506             ("4")\r
 507             ("5")\r
 508             ("6")\r
 509             ("7")\r
 510             ("8")\r
 511             ("9")))\r
 512           ("th" t\r
 513            ("align"\r
 514             ("left")\r
 515             ("center")\r
 516             ("right"))\r
 517            ("valign"\r
 518             ("top")\r
 519             ("middle")\r
 520             ("bottom")\r
 521             ("baseline"))\r
 522            ("colspan"\r
 523             ("1")\r
 524             ("2")\r
 525             ("3")\r
 526             ("4")\r
 527             ("5")\r
 528             ("6")\r
 529             ("7")\r
 530             ("8")\r
 531             ("9"))\r
 532            ("rowspan"\r
 533             ("1")\r
 534             ("2")\r
 535             ("3")\r
 536             ("4")\r
 537             ("5")\r
 538             ("6")\r
 539             ("7")\r
 540             ("8")\r
 541             ("9"))\r
 542            ("nowrap" t))\r
 543           ("ul"\r
 544            (nil n\r
 545                 ("List item: " "<li>" str\r
 546                  (if sgml-xml-mode "</li>")\r
 547                  n))\r
 548            ("type"\r
 549             ("disc")\r
 550             ("circle")\r
 551             ("square")))\r
 552           ("!["\r
 553            ("ignore" t)\r
 554            ("include" t))\r
 555           ("!attlist")\r
 556           ("!doctype")\r
 557           ("!element")\r
 558           ("!entity")\r
 559           ("abbrev")\r
 560           ("acronym")\r
 561           ("address")\r
 562           ("array"\r
 563            (nil n\r
 564                 ("Item: " "<item>" str\r
 565                  (if sgml-xml-mode "</item>")\r
 566                  n))\r
 567            "align")\r
 568           ("au")\r
 569           ("b")\r
 570           ("big")\r
 571           ("blink")\r
 572           ("blockquote" n)\r
 573           ("body" n\r
 574            ("background" ".gif")\r
 575            ("bgcolor" "#")\r
 576            ("text" "#")\r
 577            ("link" "#")\r
 578            ("alink" "#")\r
 579            ("vlink" "#"))\r
 580           ("box"\r
 581            (nil _ "<over>" _\r
 582                 (if sgml-xml-mode "</over>")))\r
 583           ("br" t\r
 584            ("clear"\r
 585             ("left")\r
 586             ("right")))\r
 587           ("caption"\r
 588            ("valign"\r
 589             ("top")\r
 590             ("bottom")))\r
 591           ("center" n)\r
 592           ("cite")\r
 593           ("code" n)\r
 594           ("dd" t)\r
 595           ("del")\r
 596           ("dfn")\r
 597           ("div")\r
 598           ("dl"\r
 599            (nil n\r
 600                 ("Term: " "<dt>" str\r
 601                  (if sgml-xml-mode "</dt>")\r
 602                  "<dd>" _\r
 603                  (if sgml-xml-mode "</dd>")\r
 604                  n)))\r
 605           ("dt"\r
 606            (t _\r
 607               (if sgml-xml-mode "</dt>")\r
 608               "<dd>"\r
 609               (if sgml-xml-mode "</dd>")\r
 610               n))\r
 611           ("em")\r
 612           ("head" n)\r
 613           ("html"\r
 614            (n "<head>\n" "<title>"\r
 615               (setq str\r
 616                     (read-input "Title: "))\r
 617               "</title>\n" "</head>\n" "<body>\n<h1>" str "</h1>\n" _ "\n<address>\n<a href=\"mailto:" user-mail-address "\">"\r
 618               (user-full-name)\r
 619               "</a>\n</address>\n" "</body>"))\r
 620           ("i")\r
 621           ("ins")\r
 622           ("isindex" t\r
 623            ("action")\r
 624            ("prompt"))\r
 625           ("kbd")\r
 626           ("lang")\r
 627           ("li" t)\r
 628           ("math" n)\r
 629           ("nobr")\r
 630           ("option" t\r
 631            ("value")\r
 632            ("label")\r
 633            ("selected" t))\r
 634           ("over" t)\r
 635           ("person")\r
 636           ("pre" n)\r
 637           ("q")\r
 638           ("rev")\r
 639           ("s")\r
 640           ("samp")\r
 641           ("small")\r
 642           ("span" nil\r
 643            ("class"\r
 644             ("builtin")\r
 645             ("comment")\r
 646             ("constant")\r
 647             ("function-name")\r
 648             ("keyword")\r
 649             ("string")\r
 650             ("type")\r
 651             ("variable-name")\r
 652             ("warning")))\r
 653           ("strong")\r
 654           ("sub")\r
 655           ("sup")\r
 656           ("title")\r
 657           ("tr" t)\r
 658           ("tt")\r
 659           ("u")\r
 660           ("var")\r
 661           ("wbr" t)))\r
 662        (sgml-saved-validate-command nil)\r
 663        (sgml-face-tag-alist\r
 664         '((bold . "b")\r
 665           (italic . "i")\r
 666           (underline . "u")\r
 667           (modeline . "rev")))\r
 668        (sgml-empty-tags\r
 669         '("area" "base" "basefont" "br" "col" "frame" "hr" "img" "input" "isindex" "link" "meta" "param" "wbr"))\r
 670        (sgml-display-text\r
 671         '((img . "[/]")\r
 672           (hr . "----------")\r
 673           (li . "o ")))\r
 674        (sentence-end-base "[.?!][]\"'””)}]*\\(<[^>]*>\\)*")\r
 675        (require-final-newline t)\r
 676        (paragraph-start "[      ]*$\\|[         ]*</?\\([_:[:alpha:]][-_.:[:alnum:]]*\\(?:[^\"'/><]\\|\"[^\"]*\"\\|'[^']*'\\)*\\)?>")\r
 677        (paragraph-separate "[   ]*$\\|[         ]*</?\\([_:[:alpha:]][-_.:[:alnum:]]*\\(?:[^\"'/><]\\|\"[^\"]*\"\\|'[^']*'\\)*\\)?>$")\r
 678        (outline-regexp "^.*<[Hh][1-6]\\>")\r
 679        (outline-level\r
 680         '#[nil "\300\225Sf\207"\r
 681                [0]\r
 682                1])\r
 683        (outline-heading-end-regexp "</[Hh][1-6]>")\r
 684        (nxhtml-minor-mode-major-mode 'html-mode)\r
 685        (nxhtml-minor-mode t)\r
 686        (major-mode 'html-mode)\r
 687        (jit-lock-after-change-extend-region-functions\r
 688         '(font-lock-extend-jit-lock-region-after-change t))\r
 689        (indent-line-function 'sgml-indent-line)\r
 690        (imenu-create-index-function 'html-imenu-index)\r
 691        (font-lock-syntactic-keywords 'sgml-font-lock-syntactic-keywords)\r
 692        (font-lock-multiline nil)\r
 693        (fill-nobreak-predicate\r
 694         '(sgml-fill-nobreak t))\r
 695        (facemenu-end-add-face nil)\r
 696        (facemenu-add-face-function 'sgml-mode-facemenu-add-face-function)\r
 697        (comment-start-skip "<!--[       ]*")\r
 698        (comment-start "<!-- ")\r
 699        (comment-line-break-function 'sgml-comment-indent-new-line)\r
 700        (comment-indent-function 'sgml-comment-indent)\r
 701        (comment-end-skip "[     ]*--[   \n]*>")\r
 702        (comment-end " -->")\r
 703        (char-property-alias-alist\r
 704         '((face font-lock-face)))\r
 705        (auto-composition-mode-major-mode 'html-mode)\r
 706        (auto-composition-mode t)\r
 707        (auto-composition-function 'auto-compose-chars)\r
 708        (adaptive-fill-regexp "[         ]*"))\r
 709     ;; The syntax table is handled differently since it is not just a\r
 710     ;; variable. Instead of copying it the name of the syntax table is\r
 711     ;; used together with `with-syntax-table' to change it\r
 712     ;; temporarily.\r
 713     (with-syntax-table\r
 714         (if html-mode-syntax-table html-mode-syntax-table\r
 715           (standard-syntax-table))\r
 716       (let ((t1 (get-internal-run-time))\r
 717             t2)\r
 718         ;; And here I am setting font lock variables again. Why did I\r
 719         ;; do that? I have to test, it is probably a left over from\r
 720         ;; earlier versions.\r
 721         (setq font-lock-set-defaults nil)\r
 722         (font-lock-set-defaults)\r
 723         ;; Just some timing test stuff:\r
 724         (setq t2 (get-internal-run-time))\r
 725         (mumamo-msgfntfy "font-lock-set-defaults runtime=%s, %s" t1 t2)\r
 726         t2)\r
 727       ;; And finally - here is what I wanted to do:\r
 728       (eval body))))\r
 729 \r
 730 ;; Local Variables:\r
 731 ;; coding: utf-8\r
 732 ;; End:\r