;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\nHA!\312\nTHA!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)