;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'mmm-vars) #@301 Alist of submode classes autoloaded from files. Elements look like (CLASS FILE PRIVATE) where CLASS is a submode class symbol, FILE is a string suitable for passing to `load', and PRIVATE is non-nil if the class is invisible to the user. Classes can be added to this list with `mmm-autoload-class'. (defvar mmm-autoloaded-classes '((mason "mmm-mason" nil) (myghty "mmm-myghty" nil) (html-css "mmm-sample" nil) (html-js "mmm-sample" nil) (here-doc "mmm-sample" nil) (embperl "mmm-sample" nil) (eperl "mmm-sample" nil) (jsp "mmm-sample" nil) (file-variables "mmm-sample" nil) (rpm-sh "mmm-rpm" t) (rpm "mmm-rpm" nil) (cweb "mmm-cweb" nil) (sgml-dtd "mmm-sample" nil) (noweb "mmm-noweb" nil) (html-php "mmm-sample" nil)) (#$ . 108)) #@226 Autoload submode class CLASS from file FILE. PRIVATE, if non-nil, means the class is user-invisible. In general, private classes need not be autoloaded, since they will usually be invoked by a public class in the same file. (defalias 'mmm-autoload-class #[(class file &optional private) " \236?\205\n E\211 \235\203 \202\f B\211)\207" [class mmm-classes-alist file private #1=#:x mmm-autoloaded-classes] 4 (#$ . 846)]) #@35 Turn on MMM Mode. See `mmm-mode'. (autoload 'mmm-mode-on "mmm-mode" '(#$ . 1282)) #@36 Turn off MMM Mode. See `mmm-mode'. (autoload 'mmm-mode-off "mmm-mode" '(#$ . 1370)) (byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload mmm-update-font-lock-buffer "mmm-region" mmm-ensure-fboundp "mmm-utils"] 3) #@153 Minor mode to allow multiple major modes in one buffer. Without ARG, toggle MMM Mode. With ARG, turn MMM Mode on iff ARG is positive and off otherwise. (autoload 'mmm-mode "mmm-mode" '(#$ . 1597) t) #@2  (autoload 'mmm-ify-by-class "mmm-cmds" '(#$ . 1801) t) #@2  (autoload 'mmm-ify-by-regexp "mmm-cmds" '(#$ . 1862) t) #@2  (autoload 'mmm-ify-region "mmm-cmds" '(#$ . 1924) t) #@2  (autoload 'mmm-parse-buffer "mmm-cmds" '(#$ . 1983) t) #@2  (autoload 'mmm-parse-region "mmm-cmds" '(#$ . 2044) t) #@2  (autoload 'mmm-parse-block "mmm-cmds" '(#$ . 2105) t) #@2  (autoload 'mmm-clear-current-region "mmm-cmds" '(#$ . 2165) t) #@2  (autoload 'mmm-reparse-current-region "mmm-cmds" '(#$ . 2234) t) #@2  (autoload 'mmm-end-current-region "mmm-cmds" '(#$ . 2305) t) #@2  (autoload 'mmm-insertion-help "mmm-cmds" '(#$ . 2372) t) #@2  (autoload 'mmm-insert-region "mmm-cmds" '(#$ . 2435) t) #@66 Buffers that need to be checked for running the major mode hook. (defvar mmm-changed-buffers-list nil (#$ . 2498)) #@242 Add this buffer to `mmm-changed-buffers-list' for checking. When the current command is over, MMM Mode will be turned on in this buffer depending on the value of `mmm-global-mode'. Actually, everything in `mmm-major-mode-hook' will be run. (defalias 'mmm-major-mode-change #[nil "\303\300!\203 \203 \304 \210p\211\n\235\203\n\210\202 \nB)\305\306\307\"\207" [mmm-mode #1=#:x mmm-changed-buffers-list boundp mmm-mode-off add-hook post-command-hook mmm-check-changed-buffers] 4 (#$ . 2620)]) (add-hook 'change-major-mode-hook 'mmm-major-mode-change) #@68 Run major mode hook for the buffers in `mmm-changed-buffers-list'. (defalias 'mmm-check-changed-buffers #[nil "\303\304\305\"\210\306\211\203%\n@\307 !\203r q\210\310 \210)\nA\211\204 *\306\211\207" [mmm-changed-buffers-list buffer --dolist-tail-- remove-hook post-command-hook mmm-check-changed-buffers nil buffer-live-p mmm-run-major-mode-hook] 4 (#$ . 3184)]) #@151 Conditionally turn on MMM Mode. Turn on MMM Mode if `mmm-global-mode' is non-nil and there are classes to apply, or always if `mmm-global-mode' is t. (defalias 'mmm-mode-on-maybe #[nil "\302=\203\f\303 \210\202\203\304\305!\203\303 \210 \205\306 \207" [mmm-global-mode mmm-mode t mmm-mode-on mmm-get-all-classes nil mmm-update-font-lock-buffer] 2 (#$ . 3564)]) (byte-code "\300\301\302\"\210\303\304\305\"\207" [add-hook mmm-major-mode-hook mmm-mode-on-maybe defalias mmm-add-find-file-hooks mmm-add-find-file-hook] 3) #@104 Equivalent to (setq mmm-global-mode 'maybe). This function is deprecated and may be removed in future. (defalias 'mmm-add-find-file-hook #[nil "\301\302!\210\303\211\207" [mmm-global-mode message "Warning: `mmm-add-find-file-hook' is deprecated." maybe] 2 (#$ . 4101)]) (provide 'mmm-auto)