;ELC ;;; compiled by jwz@thalidomide on Thu Apr 21 01:04:58 1994 ;;; from file /th/jwz/emacs19/lisp/modes/html-mode.el ;;; emacs version 19.10 Lucid (beta16). ;;; bytecomp version 2.23; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (defvar html-running-lemacs (byte-code "\n\"Ç" [string-match "Lucid" emacs-version t] 3) "\ Non-nil if running Lucid Emacs.") (defvar html-running-epoch (boundp 'epoch::version) "\ Non-nil if running Epoch.") (defvar html-quotify-hrefs-on-find t "\ *If non-nil, all HREF's (and NAME's) in a file will be automatically quotified when the file is loaded. This is useful for converting ancient HTML documents to SGML-compatible syntax, which mandates quoted HREF's. This should always be T.") (defvar html-use-highlighting html-running-epoch "\ *Flag to use highlighting for HTML directives in Epoch or Lucid Emacs; if non-NIL, highlighting will be used. Default is T if you are running Epoch; nil otherwise (for Lucid Emacs, font-lock is better; see html-use-font-lock instead).") (defvar html-use-font-lock html-running-lemacs "\ *Flag to use font-lock for HTML directives in Lucid Emacs. If non-NIL, font-lock will be used. Default is T if you are running with Lucid Emacs; NIL otherwise. This doesn't currently seem to work. Bummer. Ten points to the first person who tells me why not.") (defvar html-deemphasize-color "grey80" "\ *Color for de-highlighting HTML directives in Epoch or Lucid Emacs.") (defvar html-emphasize-color "yellow" "\ *Color for highlighting HTML something-or-others in Epoch or Lucid Emacs.") (defvar html-document-previewer "xmosaic" "\ *Program to be used to preview HTML documents. Program is assumed to accept a single argument, a filename containing a file to view; program is also assumed to follow the Mosaic convention of handling SIGUSR1 as a remote-control mechanism.") (defvar html-document-previewer-args "-ngh" "\ *Arguments to be given to the program named by html-document-previewer; NIL if none should be given.") (defvar html-sigusr1-signal-value 16 "\ *Value for the SIGUSR1 signal on your system. See, usually, /usr/include/sys/signal.h.") (defvar html-mode-syntax-table nil "\ Syntax table used while in html mode.") (defvar html-mode-abbrev-table nil "\ Abbrev table used while in html mode.") (byte-code "\"  # # #‡" [define-abbrev-table html-mode-abbrev-table nil html-mode-syntax-table make-syntax-table modify-syntax-entry 34 ". " 92 39 "w "] 4) (defvar html-mode-map nil "\ ") (byte-code " #################%#############@A#BC#DE#FG#HI#JK#LM#NOPQ!R QSQT\"PU!R USUV\"%OPQ!WX!QYQT\"PU!WZ!UYUV\"O%[\\MN[]M" [html-mode-map make-sparse-keymap define-key " " tab-to-tab-stop "a" html-add-address "b" html-add-blockquote "c" html-add-code "d" html-add-description-list "e" html-add-description-entry "g" html-add-img "h" html-add-header "i" html-add-list-or-menu-item "l" html-add-normal-link "m" html-add-menu "n" html-add-numbered-list "p" html-add-paragraph-separator "r" html-add-normal-reference "s" html-add-list "t" html-add-title "x" html-add-plaintext html-running-lemacs "z" html-preview-document "" html-add-bold "" html-add-citation "" html-add-emphasized "" html-add-fixed " " html-add-italic " " html-add-keyboard " " html-add-listing " " html-add-sample "" html-add-preformatted "" html-add-strong "" html-add-variable "<" html-less-than ">" html-greater-than "&" html-ampersand "<" html-real-less-than ">" html-real-greater-than "&" html-real-ampersand "l" html-add-normal-link-to-region "r" html-add-reference-to-region html-running-epoch html-use-highlighting boundp html-deemphasize-style make-style set-style-foreground html-deemphasize-color html-emphasize-style html-emphasize-color make-face html-deemphasize-face set-face-foreground html-emphasize-face html-add-zone #[(start end style) " \n\" \" \")" [make-extent start end extent set-extent-face style set-extent-data html-mode] 3 "Add a Lucid Emacs extent from START to END with STYLE."] #[(start end style) " \n # \")" [add-zone start end style zone epoch::set-zone-data html-mode] 4 "Add an Epoch zone from START to END with STYLE."]] 4) (fset 'html-maybe-deemphasize-region #[(start end) " \n #" [html-running-epoch html-running-lemacs html-use-highlighting html-add-zone start end html-deemphasize-style] 4 "\ Maybe deemphasize a region of text. Region is from START to END."]) (fset 'html-add-link #[(link-object) "`c ı`S\"c u`T`\\\")" [start "" html-maybe-deemphasize-region "" push-mark -4 4] 4 "\ Add a link. Single argument LINK-OBJECT is value of HREF in the new anchor. Mark is set after anchor."]) (fset 'html-add-reference #[(ref-object) "`c ı`S\"c u`T`\\\")" [start "" html-maybe-deemphasize-region "" push-mark -4 4] 4 "\ Add a reference. Single argument REF-OBJECT is value of NAME in the new anchor. Mark is set after anchor."]) (fset 'html-add-list-internal #[(type) "`\nñ`S\"cc`\nñ`S\"`)\")" [start "<" type ">\n" html-maybe-deemphasize-region "
  • " "\n" "\n" html-maybe-deemphasize-region "\n" "" html-maybe-deemphasize-region "\n" html-maybe-deemphasize-region "
    " "\n
    \n" "\n" push-mark t] 3 "\ Add a definition list. Blah blah." nil]) (fset 'html-add-description-entry #[nil "`cc*" [start "\n
    " "\n
    "] 1 "\ Add a definition entry. Assume we're at the end of a previous entry." nil]) (byte-code "MM" [html-add-emphasized #[nil "!" [html-open-field "EM"] 2 nil nil] html-add-fixed #[nil "!" [html-open-field "TT"] 2 nil nil]] 2) (fset 'html-add-img #[(href) "`\nñT`S\")" [start "" html-maybe-deemphasize-region] 3 "\ Add an img." "sImage URL: "]) (fset 'html-add-header #[(size header) "`\nñ`S\" c`\nDZT`S\")" [start "" html-maybe-deemphasize-region header "\n"] 3 "\ Add a header." "sSize (1-6; 1 biggest): \nsHeader: "]) (fset 'html-add-list-or-menu-item #[nil "`c)" [start "\n
  • "] 1 "\ Add a list or menu item. Assume we're at the end of the last item." nil]) (byte-code "MM" [html-add-italic #[nil "!" [html-open-field "I"] 2 nil nil] html-add-keyboard #[nil "!" [html-open-field "KBD"] 2 nil nil]] 2) (fset 'html-add-normal-link #[(link) " !" [html-add-link link] 2 "\ Make a link" "sLink to: "]) (fset 'html-add-listing #[nil "!" [html-open-area "LISTING"] 2 nil nil]) (fset 'html-add-menu #[nil "!" [html-add-list-internal "MENU"] 2 "\ Add a menu." nil]) (fset 'html-add-sample #[nil "!" [html-open-field "SAMP"] 2 nil nil]) (fset 'html-add-numbered-list #[nil "!" [html-add-list-internal "OL"] 2 "\ Add a numbered list." nil]) (fset 'html-add-paragraph-separator #[nil "`c\\`\")" [start "

    " html-maybe-deemphasize-region 1] 3 "\ Add a paragraph separator." nil]) (fset 'html-add-preformatted #[nil "!" [html-open-area "PRE"] 2 nil nil]) (fset 'html-add-normal-reference #[(reference) " !" [html-add-reference reference] 2 "\ Add a reference (named anchor)." "sReference name: "]) (fset 'html-add-list #[nil "!" [html-add-list-internal "UL"] 2 "\ Add a list." nil]) (fset 'html-add-strong #[nil "!" [html-open-field "STRONG"] 2 nil nil]) (fset 'html-add-title #[(title) "eb!uĊ`)#)\"ce`S\"cc`Z`\"c)" [looking-at "" 7 re-search-forward "[^<]*" nil t replace-match title html-maybe-deemphasize-region "" "\n"] 4 "\ Add or modify a title." "sTitle: "]) (fset 'html-add-variable #[nil "!" [html-open-field "VAR"] 2 nil nil]) (fset 'html-add-plaintext #[nil "!" [html-open-area "XMP"] 2 "\ Add plaintext." nil]) (fset 'html-add-normal-link-to-region #[(link start end) "b bc ű `S\")c`Z`\")" [end start "" html-maybe-deemphasize-region "" 3] 3 "\ Make a link that applies to the current region. Again, no completion." "sLink to: \nr"]) (fset 'html-add-reference-to-region #[(name start end) "\nb bű `S\")c`Z`\")" [name "" end start "" html-maybe-deemphasize-region "" 3] 3 "\ Add a reference point (a link with no reference of its own) to the current region." "sName: \nr"]) (byte-code "MMMMMM" [html-less-than #[nil "c" ["<"] 1 nil nil] html-greater-than #[nil "c" [">"] 1 nil nil] html-ampersand #[nil "c" ["&"] 1 nil nil] html-real-less-than #[nil "c" ["<"] 1 nil nil] html-real-greater-than #[nil "c" [">"] 1 nil nil] html-real-ampersand #[nil "c" ["&"] 1 nil nil]] 2) (defvar html-previewer-process nil "\ Variable used to track live viewer process.") (fset 'html-write-buffer-to-tmp-file #[nil "!Qed % )" ["/tmp/" make-temp-name "html" ".html" filename write-region nil foo] 6 "\ Write the current buffer to a temp file and return the name of the tmp file."]) (fset 'html-preview-document #[nil " \n=\n!=!ʉ  %ʉ $\n!\"!q ӱed%\n!\"! !p!*)" [html-write-buffer-to-tmp-file tmp-file html-previewer-process nil process-status run message "Starting previewer..." html-document-previewer-args start-process "html-previewer" html-document-previewer format "/tmp/xmosaic.%d" process-id config-file generate-new-buffer "*html-preview-tmp*" "goto\nfile:" "\n" write-region foo signal-process html-sigusr1-signal-value delete-file kill-buffer] 6 "\ Preview the current buffer's HTML document by spawning off a previewing process (assumed to be Mosaic, basically) and controlling it with signals as long as it's alive." nil]) (fset 'html-replace-string-in-buffer #[(start end newstring) "b\nZT! c)" [start delete-char end newstring] 3]) (fset 'html-quotify-hrefs #[nil "ebd#!tcd#ucc)" [re-search-forward "<[aA][ \n]+\\([nN][aA][mM][eE]=[a-zA-Z0-9]+[ \n]+\\)?[hH][rR][eE][fF]=" t looking-at "\"" "[ \n>]" -1] 4 "\ Insert quotes around all HREF and NAME attribute value literals. This remedies the problem with old HTML files that can't be processed by SGML parsers. That is, changes to ." nil]) (fset 'html-mode #[nil " \n!\n!! " [kill-all-local-variables use-local-map html-mode-map "HTML" mode-name html-mode major-mode html-mode-abbrev-table local-abbrev-table set-syntax-table html-mode-syntax-table run-hooks html-mode-hook html-use-font-lock html-fontify] 2 "\ Major mode for editing HTML hypertext documents. Special commands:\\{html-mode-map} Turning on html-mode calls the value of the variable html-mode-hook, if that value is non-nil. More extensive documentation is available in the file 'html-mode.el'. The latest (possibly unstable) version of this file will always be available on anonymous FTP server ftp.ncsa.uiuc.edu in /Mosaic/elisp." nil]) (fset 'html-html-mode-hook #[nil " " [html-quotify-hrefs-on-find html-quotify-hrefs] 1 "\ Hook called from html-mode-hook. Run htlm-quotify-hrefs if html-quotify-hrefs-on-find is non-nil."]) (fset 'html-postpend-unique-hook #[(hook-var hook-function) " ! J<\n@= \n>? \n C\"L \n=? \n C\"L) CL" [boundp hook-var value lambda hook-function append] 5 "\ Postpend HOOK-VAR with HOOK-FUNCTION, if it is not already an element. hook-var's value may be a single function or a list of functions."]) (byte-code "\" !M #M\"E#M\"B!" [html-postpend-unique-hook html-mode-hook html-html-mode-hook html-running-lemacs boundp html-menu ("HTML Mode" ["Open Address" html-add-address t] ["Open Blockquote" html-add-blockquote t] ["Open Header" html-add-header t] ["Open Hyperlink" html-add-normal-link t] ["Open Listing" html-add-listing t] ["Open Plaintext" html-add-plaintext t] ["Open Preformatted" html-add-preformatted t] ["Open Reference" html-add-normal-reference t] ["Open Title" html-add-title t] "----" ["Open Bold" html-add-bold t] ["Open Citation" html-add-citation t] ["Open Code" html-add-code t] ["Open Emphasized" html-add-emphasized t] ["Open Fixed" html-add-fixed t] ["Open Keyboard" html-add-keyboard t] ["Open Sample" html-add-sample t] ["Open Strong" html-add-strong t] ["Open Variable" html-add-variable t] "----" ["Add Inlined Image" html-add-img t] ["End Paragraph" html-add-paragraph-separator t] ["Preview Document" html-preview-document t] "----" ("Definition List ..." ["Open Definition List" html-add-description-list t] ["Add Definition Entry" html-add-description-entry t]) ("Other Lists ..." ["Open Unnumbered List" html-add-list t] ["Open Numbered List" html-add-numbered-list t] ["Open Menu" html-add-menu t] "----" ["Add List Or Menu Item" html-add-list-or-menu-item t]) ("Operations On Region ..." ["Add Hyperlink To Region" html-add-normal-link-to-region t] ["Add Reference To Region" html-add-reference-to-region t]) ("Reserved Characters ..." ["Less Than (<)" html-real-less-than t] ["Greater Than (>)" html-real-greater-than t] ["Ampersand (&)" html-real-ampersand t])) #[(e) " !y !" [mouse-set-point e 0 popup-menu html-menu] 2 nil "e"] define-key html-mode-map button3 html-install-menubar #[nil "\"?!!A#" [current-menubar assoc "HTML" set-buffer-menubar copy-sequence add-menu nil html-menu] 4] ("\\(<[^>]*>\\)+" . font-lock-comment-face) ("[Hh][Rr][Ee][Ff]=\"\\([^\"]*\\)\"" 1 font-lock-string-face t) ("[Ss][Rr][Cc]=\"\\([^\"]*\\)\"" 1 font-lock-string-face t) html-font-lock-keywords put variable-documentation "Patterns to highlight in HTML buffers." html-fontify #[nil "!! ed\"!" [font-lock-mode 1 make-local-variable font-lock-keywords html-font-lock-keywords font-lock-hack-keywords message "Hey boss, we been through html-fontify."] 3] rassq html-mode auto-mode-alist ("\\.html\\'" . html-mode) provide] 4)