;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require ess-noweb-mode font-lock] 2) #@79 Buffer local variable, t iff this buffer is using `ess-noweb-font-lock-mode'. (defvar ess-noweb-font-lock-mode nil (#$ . 165)) #@232 DO NOT CHANGE THIS VARIABLE If you use `nw-turn-on-font-lock' to turn on font-locking, then turn it off again, it would come back on again of its own accord when you changed major-mode. This variable is used internally to stop it. (defvar ess-noweb-use-font-lock-mode t (#$ . 299)) #@59 Hook that is run after entering ess-noweb-font-lock mode. (defvar ess-noweb-font-lock-mode-hook nil (#$ . 587)) #@145 Maximum number of chunks to fontify initially. If nil, will fontify the entire buffer when ess-noweb-font-lock-initial-fontify-buffer is called (defvar ess-noweb-font-lock-max-initial-chunks 30 (#$ . 706)) #@65 Face to use to highlight the `@' at the start of each doc chunk (defvar ess-noweb-font-lock-doc-start-face font-lock-reference-face (#$ . 918)) #@52 Face to use to highlight `<<', `>>' `[[' and `]]'  (defvar ess-noweb-font-lock-brackets-face font-lock-reference-face (#$ . 1068)) #@52 Face to use to highlight the between `<<' and `>>' (defvar ess-noweb-font-lock-chunk-name-face font-lock-keyword-face (#$ . 1205)) #@52 Face to use to highlight the between `[[' and `]]' (defvar ess-noweb-font-lock-code-quote-face font-lock-keyword-face (#$ . 1342)) (byte-code "\301\236\204\f\302\303C\"\304\305\306\"\210\304\307\301\310#\210\311\307\301\312#\207" [minor-mode-alist ess-noweb-font-lock-mode append (ess-noweb-font-lock-mode " NWFL") defalias nwfl-donowt ignore ess-noweb-font-lock-minor-mode nil make-obsolete "ESS-16.11"] 4) #@142 Minor mode for syntax highlighting when using `ess-noweb-mode' to edit noweb files. Each chunk is fontified in accordance with its own mode. (defalias 'ess-noweb-font-lock-mode #[(&optional arg) "\204 \203z\306\301!\210\n\203\307\n!\310V\202 ?\211\203U\311\303!\2032 \2032\312\313\314\"\210\315\211\312\313\316\"\210\317\211\320\321\322\323\317$\210\320\324\325\"\210\320\326\327\"\210\330\324!\210\331\332!\207\311\303!\203a \203a\333\334\324\325\"\210\334\326\327\"\210\334\321\322\"\210\333 \210\323 \331\335!\207\331\336!\207" [ess-noweb-mode ess-noweb-font-lock-mode arg global-font-lock-mode font-lock-fontify-buffer-function font-lock-unfontify-buffer-function make-local-variable prefix-numeric-value 0 boundp mapc ess-noweb-make-variable-permanent-local (font-lock-fontify-buffer-function font-lock-unfontify-buffer-function) nwfl-donowt (ess-noweb-font-lock-mode font-lock-dont-widen syntax-begin-function ess-noweb-use-font-lock-mode after-change-functions) t add-hook after-change-functions font-lock-after-change-function nil ess-noweb-font-lock-mode-hook ess-noweb-font-lock-mode-fn ess-noweb-changed-chunk-hook ess-noweb-font-lock-fontify-this-chunk run-hooks message "ess-noweb-font-lock mode: use `M-x ess-noweb-font-lock-describe-mode' for more info" font-lock-default-unfontify-buffer remove-hook "ess-noweb-font-lock-mode removed" "ess-noweb-font-lock-mode can only be used with ess-noweb-mode" font-lock-dont-widen ess-noweb-use-font-lock-mode] 6 (#$ . 1761) "P"]) #@42 Go to the place to start fontifying from (defalias 'ess-noweb-start-of-syntax #[nil "\300 @b\207" [ess-noweb-chunk-region] 1 (#$ . 3274) nil]) #@58 Fontify chunk CHUNK-NUM based on the current major mode. (defalias 'ess-noweb-font-lock-fontify-chunk-by-number #[(chunk-num) "\212\306 \210\307\310 \311\"\312\n HA!\312\n THA!B\313\211\214@A}\210\314@A\"\210-\315\207" [syntax-begin-function font-lock-keywords ess-noweb-chunk-vector chunk-num font-lock-extend-region-functions font-latex-extend-region-functions font-lock-set-defaults ess-noweb-start-of-syntax append (("^[ \n]*\\(<<\\)\\([^>]*\\)\\(>>=?\\)" (1 font-lock-reference-face prepend) (2 font-lock-keyword-face prepend) (3 font-lock-reference-face prepend)) ("^@[ \n]+" (0 font-lock-reference-face prepend))) marker-position nil font-lock-fontify-region t r] 4 (#$ . 3423)]) #@143 Fontify this chunk according to its own major mode. Since we are in the chunk, the major mode will already have been set by ess-noweb-mode.el (defalias 'ess-noweb-font-lock-fontify-this-chunk #[nil "\300\301 !\207" [ess-noweb-font-lock-fontify-chunk-by-number ess-noweb-find-chunk-index-buffer] 2 (#$ . 4133) nil]) #@329 Applies syntax highlighting to some or all chunks in a noweb buffer. The number of chunks is set by `ess-noweb-font-lock-max-initial-chunks': if this is nil, the entire buffer is fontified. It is intended to be called when first entering `ess-noweb-font-lock-mode'. For other purposes, use `ess-noweb-font-lock-fontify-chunks'. (defalias 'ess-noweb-font-lock-initial-fontify-buffer #[nil "\212\305\211\211\306  \203+\307 \310\245Z]\211 \\\211\fG\310ZV\2032\fG\310Z\2022\307\fG\310Z\311\n \",\207" [this-chunk end-chunk start-chunk ess-noweb-font-lock-max-initial-chunks ess-noweb-chunk-vector nil ess-noweb-find-chunk-index-buffer 0 2 ess-noweb-font-lock-fontify-chunks] 5 (#$ . 4455) nil]) #@68 This function will fontify each chunk in the buffer appropriately. (defalias 'ess-noweb-font-lock-fontify-buffer #[nil "\303G\304Z\305\n \"*\207" [ess-noweb-chunk-vector end-chunk start-chunk 0 2 ess-noweb-font-lock-fontify-chunks] 3 (#$ . 5165) nil]) #@53 Fontify a noweb file from START-CHUNK to END-CHUNK. (defalias 'ess-noweb-font-lock-fontify-chunks #[(start-chunk end-chunk) "\212\304\305\n#\210 H@;\203 T\202 HAb\210\306 \210 \nX\203> H@;\2042\307 !\210\304\310 \"\210 T\211\202!\304\311!\210 \nX\203j H@;\203c\304\312 \"\210 HAb\210\306 \210\313 \210 T\211\202E)\306 )\207" [start-chunk chunk-counter end-chunk ess-noweb-chunk-vector message "Fontifying from %d to %d" ess-noweb-select-mode ess-noweb-font-lock-fontify-chunk-by-number "Fontifying documentation chunks: chunk %d" "About to do code chunks" "Fontifying code chunks: chunk %d" ess-noweb-font-lock-fontify-this-chunk] 5 (#$ . 5426) nil]) #@76 Function that is intended to be attached to ess-noweb-font-lock-mode-hook. (defalias 'ess-noweb-font-lock-mode-fn #[nil "\300 \207" [ess-noweb-font-lock-initial-fontify-buffer] 1 (#$ . 6106)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\302\307\310\303$\210\311\302\303\"\210\312\313!\207" [defalias nw-turn-on-font-lock turn-on-font-lock nil make-obsolete "ESS-16.11" ad-add-advice (ess-noweb-font-lock nil t (advice lambda nil (if (not ess-noweb-mode) ad-do-it (if (and (not ess-noweb-font-lock-mode) ess-noweb-use-font-lock-mode) (ess-noweb-font-lock-mode))))) around ad-activate provide ess-noweb-font-lock-mode] 5)