;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'ert-x) (defvar foo-mode-keywords (byte-code "\300\301BC\207" ["\\b\\(bar\\|foo\\)\\b" font-lock-keyword-face] 2)) (defvar foo1-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [foo1-mode-hook variable-documentation put "Hook run after entering mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp foo1-mode-map definition-name foo1-mode] 4) (defvar foo1-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [foo1-mode-abbrev-table foo1-mode-map variable-documentation put purecopy "Keymap for `foo1-mode'." boundp foo1-mode-syntax-table definition-name foo1-mode (lambda (#1=#:def-tmp-var) (defvar foo1-mode-syntax-table #1#)) make-syntax-table "Syntax table for `foo1-mode'." (lambda (#1#) (defvar foo1-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `foo1-mode'." derived-mode-parent] 5) #@240 Major-mode. Uses keymap `foo1-mode-map', abbrev table `foo1-mode-abbrev-table' and syntax-table `foo1-mode-syntax-table'. This mode runs the hook `foo1-mode-hook', as the final or penultimate step during initialization. \{foo1-mode-map} (defalias 'foo1-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315)\316\317!\207" [delay-mode-hooks major-mode mode-name foo1-mode-map foo1-mode-syntax-table foo1-mode-abbrev-table make-local-variable t kill-all-local-variables foo1-mode "" use-local-map set-syntax-table (foo-mode-keywords t t) run-mode-hooks foo1-mode-hook local-abbrev-table font-lock-defaults] 2 (#$ . 1306) nil]) (byte-code "\300\301\302\303\301\304\305\304\306\304&\"\207" [ert-set-test mmm-font-lock-without-font-lock-syntax-table record ert-test nil #[nil "\300\301\302\"\207" [ert--call-with-test-buffer nil #[nil "\306\211\307c\210\310 \210\311\312 \210\313\314\315\316\317\316\306&\210\320ed\"\210\321 \210\322\32311\324`)\325D0\202:\326 @ A)D&\327'\306(\330\216\331 &\"\211')\203U\332(!\210)'\210+\333\334\306\211\335$\210\336)\3371v\324\322`\325\"*)D0\202\200\326) @ A)D+\340,\306-\341\216\331)+\"\211,)\204\234\332-!\210),\210+\333\342!\210\336.\3431\272\324\322`\325\"*)D0\202\304\326. @ A)D/\3440\3061\345\216\331./\"\2110)\204\340\3321!\210)0-\207" [mmm-parse-when-idle mmm-mode-ext-classes-alist font-lock-defaults #1=#:fn-7543 signal-hook-function err nil "foo // foo_bar" fundamental-mode (nil nil) mmm-mode-on mmm-ify-by-regexp foo1-mode "// " 0 "\\'" font-lock-fontify-region beginning-of-buffer get-text-property (error) ert--should-signal-hook face signal #2=#:ert-form-evaluation-aborted-7546 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#1# #5=#:args-7544 #6=#:value-7545 -explainer- #7=#:form-description-7547 (should-not (get-text-property (point) 'face)) :form #2# :value get-text-property ert-explainer :explanation apply ert--signal-should-execution] 6] apply ert-fail search-forward "fo" 2 eq (error) #3=#:ert-form-evaluation-aborted-7551 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#8=#:fn-7548 #9=#:args-7549 #10=#:value-7550 -explainer- #11=#:form-description-7552 (should (eq (get-text-property (point) 'face) font-lock-keyword-face)) :form #3# :value eq ert-explainer :explanation apply ert--signal-should-execution] 6] "ba" (error) #4=#:ert-form-evaluation-aborted-7556 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#12=#:fn-7553 #13=#:args-7554 #14=#:value-7555 -explainer- #15=#:form-description-7557 (should (eq (get-text-property (point) 'face) font-lock-keyword-face)) :form #4# :value eq ert-explainer :explanation apply ert--signal-should-execution] 6] #5# #6# #7# #8# font-lock-keyword-face #9# #10# #11# #12# #13# #14# #15#] 7]] 3] :passed] 10) (defvar foo2-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [foo2-mode-hook variable-documentation put "Hook run after entering mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp foo2-mode-map definition-name foo2-mode] 4) (defvar foo2-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [foo2-mode-abbrev-table foo2-mode-map variable-documentation put purecopy "Keymap for `foo2-mode'." boundp foo2-mode-syntax-table definition-name foo2-mode (lambda (#1=#:def-tmp-var) (defvar foo2-mode-syntax-table #1#)) make-syntax-table "Syntax table for `foo2-mode'." (lambda (#1#) (defvar foo2-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `foo2-mode'." derived-mode-parent] 5) #@240 Major-mode. Uses keymap `foo2-mode-map', abbrev table `foo2-mode-abbrev-table' and syntax-table `foo2-mode-syntax-table'. This mode runs the hook `foo2-mode-hook', as the final or penultimate step during initialization. \{foo2-mode-map} (defalias 'foo2-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315)\316\317!\207" [delay-mode-hooks major-mode mode-name foo2-mode-map foo2-mode-syntax-table foo2-mode-abbrev-table make-local-variable t kill-all-local-variables foo2-mode "" use-local-map set-syntax-table (foo-mode-keywords t t ((95 . "w"))) run-mode-hooks foo2-mode-hook local-abbrev-table font-lock-defaults] 2 (#$ . 5398) nil]) (byte-code "\300\301\302\303\301\304\305\304\306\304&\"\207" [ert-set-test mmm-font-lock-with-font-lock-syntax-table record ert-test nil #[nil "\300\301\302\"\207" [ert--call-with-test-buffer nil #[nil "\306\211\307c\210\310 \210\311\312 \210\313\314\315\316\317\316\306&\210\320ed\"\210\321\3221.\323e)\324D0\2027\325 @ A)D\326\306\327\216\330 \"\211)\203R\331!\210)-\207" [mmm-parse-when-idle mmm-mode-ext-classes-alist font-lock-defaults #1=#:fn-7558 signal-hook-function err nil "foo // foo_bar" fundamental-mode (nil nil) mmm-mode-on mmm-ify-by-regexp foo2-mode "// " 0 "\\'" font-lock-fontify-region next-single-property-change (error) ert--should-signal-hook face signal #2=#:ert-form-evaluation-aborted-7561 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#1# #3=#:args-7559 #4=#:value-7560 -explainer- #5=#:form-description-7562 (should-not (next-single-property-change (point-min) 'face)) :form #2# :value next-single-property-change ert-explainer :explanation apply ert--signal-should-execution] 6] apply ert-fail #3# #4# #5#] 7]] 3] :passed] 10) (defvar foo3-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [foo3-mode-hook variable-documentation put "Hook run after entering mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp foo3-mode-map definition-name foo3-mode] 4) (defvar foo3-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\317#\207" [foo3-mode-abbrev-table foo3-mode-map variable-documentation put purecopy "Keymap for `foo3-mode'." boundp foo3-mode-syntax-table definition-name foo3-mode (lambda (#1=#:def-tmp-var) (defvar foo3-mode-syntax-table #1#)) make-syntax-table "Syntax table for `foo3-mode'." (lambda (#1#) (defvar foo3-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `foo3-mode'." derived-mode-parent] 5) #@240 Major-mode. Uses keymap `foo3-mode-map', abbrev table `foo3-mode-abbrev-table' and syntax-table `foo3-mode-syntax-table'. This mode runs the hook `foo3-mode-hook', as the final or penultimate step during initialization. \{foo3-mode-map} (defalias 'foo3-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 \315)\316\317!\207" [delay-mode-hooks major-mode mode-name foo3-mode-map foo3-mode-syntax-table foo3-mode-abbrev-table make-local-variable t kill-all-local-variables foo3-mode "" use-local-map set-syntax-table (foo-mode-keywords nil t ((95 . "w"))) run-mode-hooks foo3-mode-hook local-abbrev-table font-lock-defaults] 2 (#$ . 8317) nil]) (byte-code "\300\301\302\303\301\304\305\304\306\304&\"\210\300\307\302\303\307\304\310\304\306\304&\"\210\300\311\302\303\311\304\312\304\306\304&\"\207" [ert-set-test mmm-syntax-propertize-function-preserves-current-syntax-table record ert-test nil #[nil "\300\301\302\"\207" [ert--call-with-test-buffer nil #[nil "\306\211\307c\210\310 \210\311 \210\312e!\210\313ed\"\210\314e\315\"\316\317!\306\320\216\n\211)\204.\321\f!\210) \210)\nb\210\322\3231A\324C0\202M\325@A)D\326\306\327\216\330 \"\211)\204h\321!\210).\207" [mmm-parse-when-idle mmm-mode-ext-classes-alist pt #1=#:value-7563 #2=#:form-description-7564 #3=#:fn-7565 nil "foo_and_bar\n\nfoo" foo3-mode mmm-mode-on syntax-ppss-flush-cache font-lock-fontify-region next-single-property-change face gensym "ert-form-evaluation-aborted-" #[nil "\302\303\304\305\257\306 !\207" [#1# #2# (should pt) :form pt :value ert--signal-should-execution] 5] ert-fail looking-at (error) #4="foo\\'" signal #5=#:ert-form-evaluation-aborted-7568 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#3# #6=#:args-7566 #7=#:value-7567 -explainer- #8=#:form-description-7569 (should (looking-at #4#)) :form #5# :value looking-at ert-explainer :explanation apply ert--signal-should-execution] 6] apply err #6# #7# #8#] 3]] 3] :passed mmm-fontify-region-list-ignores-outside-for-syntactic-ff-tion #[nil "\300\301\302\"\207" [ert--call-with-test-buffer nil #[nil "\306\211\211\307c\210\310c\210\311c\210\312 \210\313 \210\314e!\210\315\316\310\317\320\317\306&\210\321ed\"\210\322\323!\210\324\3251?\326\327\330`\331\")D0\202H\332 @ A)D\333 \306!\334\216\335 \"\211 )\204c\336!!\210) .\207" [mmm-c-derived-modes mmm-parse-when-idle mmm-mode-ext-classes-alist #9=#:fn-7570 signal-hook-function err nil "unpaired '!\n" "js>>\n" "var woo = js;\n" foo1-mode mmm-mode-on syntax-ppss-flush-cache mmm-ify-by-regexp js-mode 0 "\\'" font-lock-fontify-region search-backward "var" eq (error) ert--should-signal-hook font-lock-keyword-face get-text-property face signal #10=#:ert-form-evaluation-aborted-7573 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#9# #11=#:args-7571 #12=#:value-7572 -explainer- #13=#:form-description-7574 (should (eq 'font-lock-keyword-face (get-text-property (point) 'face))) :form #10# :value eq ert-explainer :explanation apply ert--signal-should-execution] 6] apply ert-fail #11# #12# #13#] 7]] 3] mmm-fontify-region-list-carries-string-after-subregion #[nil "\300\301\302\"\207" [ert--call-with-test-buffer nil #[nil "\306\211\211\307c\210\310 \210\311 \210\312e!\210\313\314\315\316\317\316\306&\210\320ed\"\210\321\322!\210\323\32418\325\326`\327\")C0\202A\330 @ A)D$\331%\306&\332\216\333 $\"\211%)\204\\\334&!\210)%\210+\335\336!\210\337'\3401y\325\341\326`\327\")D0\202\203\330' @ A)D(\342)\306*\343\216\333'(\"\211))\204\237\334*!\210)).\207" [mmm-c-derived-modes mmm-parse-when-idle mmm-mode-ext-classes-alist #14=#:fn-7575 signal-hook-function err nil "

bar tee\"

" html-mode mmm-mode-on syntax-ppss-flush-cache mmm-ify-by-regexp js-mode "<%" 0 "%>" font-lock-fontify-region search-backward "1" null (error) ert--should-signal-hook get-text-property face signal #15=#:ert-form-evaluation-aborted-7578 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#14# #17=#:args-7576 #18=#:value-7577 -explainer- #19=#:form-description-7579 (should (null (get-text-property (point) 'face))) :form #15# :value null ert-explainer :explanation apply ert--signal-should-execution] 6] apply ert-fail search-forward "bar" eq (error) font-lock-string-face #16=#:ert-form-evaluation-aborted-7583 #[nil "\305C\306 BD\244\n\307=?\205\310\nD\244\n\307=?\205)\311\312N\211\205(\313\314 \"D)\244\315\f!\207" [#20=#:fn-7580 #21=#:args-7581 #22=#:value-7582 -explainer- #23=#:form-description-7584 (should (eq 'font-lock-string-face (get-text-property (point) 'face))) :form #16# :value eq ert-explainer :explanation apply ert--signal-should-execution] 6] #17# #18# #19# #20# #21# #22# #23#] 7]] 3]] 10)