;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@231 Turn the symbol MODE into a string intended for the user.
If provided, LIGHTER will be used to help choose capitalization by,
replacing its case-insensitive matches with the literal string in LIGHTER.

(fn MODE &optional LIGHTER)
(defalias 'easy-mmode-pretty-mode-name #[513 "\301\302\303\304\305\302\306\307\310	!#!#\311P\302\312\313#\262

;\204\"\211\2022\302\314\307#\262\302\315!\301\211%)\207" [case-fold-search t replace-regexp-in-string "-Minor" " minor" capitalize "toggle-\\|-mode\\'" "" symbol-name " mode" "\\`Global-" "Global " "\\`\\s-+\\|\\s-+\\'" regexp-quote] 11 (#$ . 85)])
(defconst easy-mmode--arg-docstring "\n\nThis is a minor mode.  If called interactively, toggle the `%s'\nmode.  If the prefix argument is positive, enable the mode, and\nif it is zero or negative, disable the mode.\n\nIf called from Lisp, toggle the mode if ARG is `toggle'.\nEnable the mode if ARG is nil, omitted, or is a positive number.\nDisable the mode if ARG is a negative number.\n\nTo check whether the minor mode is enabled in the current buffer,\nevaluate `%s'.\n\nThe mode's hook is called both when the mode is enabled and when\nit is disabled.")
#@47 

(fn DOC MODE-PRETTY-NAME KEYMAP-SYM GETTER)
(defalias 'easy-mmode--mode-docstring #[1028 "\206	\305\306#\307
\310\311\312#)\266\203\203\207\310\313\302!\205#\n\211\250\203,\211\202-\314\305\f\315\316\317\305\320\n\"##\321\322!\203a\323\324\311\"r\211q\210\325\326\"\216
c\210\322ed\327\311$\210\330 *\262
\202b\211\331\332\333P\310\211\334&*\207" [inhibit-changing-match-data fill-prefix emacs-lisp-docstring-fill-column fill-column easy-mmode--arg-docstring format "Toggle %s on or off.\n\n\\{%s}" "\\bARG\\b" nil t string-match boundp 65 string-replace "'" "\\\\='" "%S" fboundp fill-region generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] left buffer-string replace-regexp-in-string "\\(\n\n\\|\\'\\)\\(.\\|\n\\)*\\'" "\\1" 1] 15 (#$ . 1253)])
(defalias 'easy-mmode-define-minor-mode 'define-minor-mode)
#@3693 Define a new minor mode MODE.
This defines the toggle command MODE and (by default) a control variable
MODE (you can override this with the :variable keyword, see below).
DOC is the documentation for the mode toggle command.

The defined mode command takes one optional (prefix) argument.
Interactively with no prefix argument, it toggles the mode.
A prefix argument enables the mode if the argument is positive,
and disables it otherwise.

When called from Lisp, the mode command toggles the mode if the
argument is `toggle', disables the mode if the argument is a
non-positive integer, and enables the mode otherwise (including
if the argument is omitted or nil or a positive integer).

If DOC is nil, give the mode command a basic doc-string
documenting what its argument does.  If the word "ARG" does not
appear in DOC, a paragraph is added to DOC explaining
usage of the mode argument.

BODY contains code to execute each time the mode is enabled or disabled.
  It is executed after toggling the mode, and before running MODE-hook.
  Before the actual body code, you can write keyword arguments, i.e.
  alternating keywords and values.  If you provide BODY, then you must
  provide at least one keyword argument (e.g. `:lighter nil`).
  The following special keywords are supported (other keywords are passed
  to `defcustom' if the minor mode is global):

:global GLOBAL	If non-nil specifies that the minor mode is not meant to be
		buffer-local, so don't make the variable MODE buffer-local.
		By default, the mode is buffer-local.
:init-value VAL	the initial value of the mode's variable.
		Note that the minor mode function won't be called by setting
		this option, so the value *reflects* the minor mode's natural
		initial state, rather than *setting* it.
		In the vast majority of cases it should be nil.
		Not used if you also specify :variable.
:lighter SPEC	Text displayed in the mode line when the mode is on.
:keymap MAP	Keymap bound to the mode keymap.  Defaults to `MODE-map'.
                If non-nil, it should be an unquoted variable name (whose value
                is a keymap), or an expression that returns either a keymap or
		a list of (KEY . BINDING) pairs where KEY and BINDING are
		suitable for `define-key'.  If you supply a KEYMAP argument
		that is not a symbol, this macro defines the variable MODE-map
		and gives it the value that KEYMAP specifies.
:interactive VAL  Whether this mode should be a command or not.  The default
                is to make it one; use nil to avoid that.  If VAL is a list,
                it's interpreted as a list of major modes this minor mode
                is useful in.
:variable PLACE	The location to use instead of the variable MODE to store
		the state of the mode.	This can be simply a different
		named variable, or a generalized variable.
		PLACE can also be of the form (GET . SET), where GET is
		an expression that returns the current state, and SET is
		a function that takes one argument, the new state, which should
                be assigned to PLACE.  If you specify a :variable, this function
                does not define a MODE variable (nor any of the terms used
		in :variable).
:after-hook     A single Lisp form which is evaluated after the mode hooks
                have been run.  It should not be quoted.

For example, you could write
  (define-minor-mode foo-mode "If enabled, foo on you!"
    :lighter " Foo" :require \='foo :global t :group \='hassle :version "27.5"
    ...BODY CODE...)

For backward compatibility with the Emacs<21 calling convention,
the keywords can also be preceded by the obsolete triplet
INIT-VALUE LIGHTER KEYMAP.

(fn MODE DOC [KEYWORD VAL ... &rest BODY])
(defalias 'define-minor-mode '(macro . #[642 "\301\302!\303!\304\211\211\211\211\211\211\211\211\211\211\305D\304\306\307P!\306\310P!\306\311P!\312\2036\313@!\203:\314\202;\315\304\211\211\313@!\204q\211A\262\242\262\313@!\204q\211A\262\242\262\313@!\204q\211A\262\242\262\313@\211\262!\203p
A\262\316\267\202[
\211A\262\242\262\202q\317\211A\262\242!\262\202q\211A\262\242\262\203q9\203q\320D\262\321\322DD\262\n\202q\211A\262\242\262\202q\323\211A\262\242D\262\202q\324\211A\262\242D\262\202q\325\211A\262\242D\262\202q\211A\262\242\262\202q\211A\262\242\262\202q\211A\262\242\262\f\243\211\262\2031
\2119\204>
\326
!\204>
\327\fD\262\262\n\202q@\262\n\330\331
ADD\262\202q\211A\262\242\262	\202q
B\262
\211A\262\242
B\262
\202q\332\"\262\203\210
9\203\210
\202\215
\306\333P!\262\204\227
\334\262\204\237
\335\262\204\247
\336\262\337\f\203\261
\304\202\363
\204\315
\337\340\341\342\343\"\344\345\"\"PFE\202\363
\346\205\324
\347P\350\342!\211$\351\237$BBBB\262
\352\353\354BB\355\n$\205:\203\356\357
BB\202\360\361\362BC\351\363\364\365DD\366BBC\"\351\203U\367\370\305\371\372\322+D\373BBE\367\374\322,D\375BBEFC\202t\367\376\305\377\372\322+D\201@BBE\367\374\322,D\201ABBEFC$\201B\322D\201C\322D\322DFE\201C\201D\337#\205\246?\205\246\201E\322-DD\201F\201G\201H\365\201I.\201JBBDE\361\201K(\203\313\201L\202\316\201MDC\201N\342\201O,\"\201C#\201PBB\201QBBBEEEED\205\367C$BBB\201R\257!\340\201S\f\201TBB\201F\201U\322D\201VBB\201W\322D\201X\342\201Y%\"FE\201W\322D\201ZBB\201W\322D\201[BB9?\205h\201S\n\361\201\\ DC\201]BB\342\201^\"F:\203\332\242\211\321=\203\323\243\211:\203\314\211\242\211:\203\305\211\242\211\322=\203\276
\243\211:\203\267\211\242
\243\211\204\260\243\211\204\247\202\251\262
\266\202\202\271\266\202\202\271\262
\202\300\262
\202\307\262
\202\316\262
\202\325\262
\202\334\2119\204\367\204\353\205,\201_\201`\"\202,\201a\201b\322D\322!D\"\203\202\201C\201c\322DDE\304)\211=?\205)\322*D\257D\262
\257\n)\207" [mode-name make-symbol "last-message" symbol-name nil setq intern "-hook" "-on-hook" "-off-hook" t keywordp identity #[257 "\300\301\"\207" [macroexp-warn-and-return "Use keywords rather than deprecated positional arguments to `define-minor-mode'"] 4 "\n\n(fn EXP)"] #s(hash-table size 11 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:init-value 135 :lighter 147 :global 161 :extra-args 198 :set 210 :initialize 224 :type 238 :keymap 252 :interactive 264 :variable 276 :after-hook 335)) purecopy setq-default default-value quote :set :initialize :type functionp setf funcall function easy-mmode-pretty-mode-name "-map" (:set #'custom-set-minor-mode) (:initialize #'custom-initialize-default) (:type 'boolean) progn :autoload-end defvar-local format "Non-nil if %s is enabled.\n" internal--format-docstring-line "Use the command `%s' to change this variable." "Non-nil if %s is enabled.\nSee the `%s' command\nfor a description of this minor mode." "\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `%s'." defcustom append defun &optional arg easy-mmode--mode-docstring interactive (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle)) (interactive (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))) let ((current-message)) cond (eq arg 'toggle) not (((and (numberp arg) (< arg 1)) nil) (t t)) when (boundp 'global-minor-modes) global-minor-modes delq (global-minor-modes) push (global-minor-modes) (boundp 'local-minor-modes) local-minor-modes (local-minor-modes) (local-minor-modes) run-hooks if (called-interactively-p 'any) customize-mark-as-set unless and (current-message) equal ((current-message)) local "" " in current buffer" message "%s %%sabled%%s" ("en" "dis") (local) (force-mode-line-update) defvar (nil) get ('variable-documentation) put 'variable-documentation "Hook run after entering or leaving `%s'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" ('custom-type 'hook) ('standard-value (list nil)) m ((cond ((keymapp m) m) ((listp m) (easy-mmode-define-keymap m)) (t (error "Invalid keymap %S" m)))) "Keymap for `%s'." error ":lighter and :keymap unsupported with mode expression %S" with-no-warnings add-minor-mode boundp] 54 (#$ . 2156)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\210\307\312\311\"\207" [function-put define-minor-mode doc-string-elt 2 put edebug-form-spec (&define name string-or-null-p [&optional [&not keywordp] sexp &optional [&not keywordp] sexp &optional [&not keywordp] sexp] [&rest [keywordp sexp]] def-body) defalias easy-mmode-define-global-mode define-globalized-minor-mode define-global-minor-mode] 5)
#@1518 Make a global mode GLOBAL-MODE corresponding to buffer-local minor MODE.
TURN-ON is a function that will be called with no args in every buffer
and that should try to turn MODE on if applicable for that buffer.

Each of KEY VALUE is a pair of CL-style keyword arguments.  :predicate
specifies which major modes the globalized minor mode should be switched on
in.  As the minor mode defined by this function is always global, any
:global keyword is ignored.  Other keywords have the same meaning as in
`define-minor-mode', which see.  In particular, :group specifies the custom
group.  The most useful keywords are those that are passed on to the
`defcustom'.  It normally makes no sense to pass the :lighter or :keymap
keywords to `define-globalized-minor-mode', since these are usually passed
to the buffer-local version of the minor mode.

BODY contains code to execute each time the mode is enabled or disabled.
It is executed after toggling the mode, and before running
GLOBAL-MODE-hook.

If MODE's set-up depends on the major mode in effect when it was
enabled, then disabling and reenabling MODE should make MODE work
correctly with the current major mode.  This is important to
prevent problems with derived modes, that is, major modes that
call another major mode in their body.

When a major mode is initialized, MODE is actually turned on just
after running the major mode's hook.  However, MODE is not turned
on if the hook has explicitly disabled it.

(fn GLOBAL-MODE MODE TURN-ON [KEY VALUE]... BODY...)
(defalias 'define-globalized-minor-mode '(macro . #[899 "\301!\301!\302!\302!\303\211\304\305P!\304\306P!\304\307P!\304	\310P!\304\311P!\304\312P!\304\301!\313P!\304\314\315\316#\317P!\320D\303\211\321@\211\262!\203\271A\262
\322\267\202\244
\323\211A\262\242D\244\262\202LA\262\202L\211A\262\242\262\f\202L\211A\262\242C\262
\324\303\325\326\327@D\330DEF\262\202L

B\262
\211A\262\242
B\262
\202L\331\211\332\333D\334BB\335\336	\337BBF\340\341\342\"\343\344\"\345\343\346#\347\343\350#\n\203\367\347\343\351\"P\202\370\316\260\352\353\354\237\355\331\356\357\320DE\356\360\320DE\356\361\320DEF\362\363\320DE\362\364\320DE\362\365\320DE\257\366\367\370\371\355$\330D\326&\211\372BEFEED$BBBBB\205i
\373@\341\374\"\375\376BBBBBB\335\336\377BB\201@\f\303\201A\201BBBF\332\333D\201C\333DF\356\333D\320DE\201D\201EBB\201@\303\201F\201GDC\201A\201HBB\366\201I\326\201J\370\371\201K\201K\201L\201MBB\355&\3310\201NB\330!DE\330 DFEE\201A\201OBBFEEFF\332\333D\201P\333#DF\201@\303C\362\201Q\320DE\257\332\333D\201R\333%DF\201@\303\201S\333D\201TBB\356\201U\320DE\257\332\333D\201V\333'DF\257)\207" [mode-name symbol-name easy-mmode-pretty-mode-name nil intern "-buffers" "-enable-in-buffers" "-check-buffers" "-cmhh" "-hook" "-set-explicitly" "-major-mode" replace-regexp-in-string "-mode\\'" "" "-modes" function keywordp #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:group 98 :global 115 :variable 123 :predicate 135)) :group lambda (require 'easy-mmode) when easy-mmode--globalized-predicate-p funcall progn put quote ('globalized-minor-mode t) :autoload-end defvar-local (nil) define-minor-mode format "Toggle %s in all buffers.\n" internal--format-docstring-line "With prefix ARG, enable %s if ARG is positive; otherwise, disable it." "\n\nIf called from Lisp, toggle the mode if ARG is `toggle'.\nEnable the mode if ARG is nil, omitted, or is a positive number.\nDisable the mode if ARG is a negative number.\n\n" "%s is enabled in all buffers where `%s' would do it." "\n\n" "See `%s' for more information on %s." "`%s' is used to control which modes this minor mode is used in." :global t append if add-hook 'after-change-major-mode-hook 'find-file-hook 'change-major-mode-hook remove-hook 'after-change-major-mode-hook 'find-file-hook 'change-major-mode-hook dolist (buf (buffer-list)) with-current-buffer buf (-1) defcustom "Which major modes `%s' is switched on in.\nThis variable can be either t (all major modes), nil (no major modes),\nor a list of modes and (not modes) to switch use this minor mode or\nnot.  For instance\n\n  (c-mode (not message-mode mail-mode) text-mode)\n\nmeans \"use this mode in all modes derived from `c-mode', don't use in\nmodes derived from `message-mode' or `mail-mode', but do use in other\nmodes derived from `text-mode'\".  An element with value t means \"use\"\nand nil means \"don't use\".  There's an implicit nil at the end of the\nlist." :type '(repeat sexp) (nil) defun setq (t) 'definition-name defvar (nil) let buffers (nil) (buf buffers) (buffer-live-p buf) unless eq (major-mode) (-1) (major-mode) 'definition-name 'post-command-hook 'definition-name add-to-list ((current-buffer)) 'post-command-hook 'definition-name] 53 (#$ . 10990)]))
(byte-code "\300\301\302\303#\300\207" [function-put define-globalized-minor-mode doc-string-elt 2] 4)
#@18 

(fn PREDICATE)
(defalias 'easy-mmode--globalized-predicate-p #[257 "\211\300\267\202\n\301\207\302\207\211<\205w\211@\303=\203 \304\305A\"\301C\244\262
\3062w\211\211\205t\211@\211\307\267\202A\310\306\301\"\210\202m\310\306\302\"\210\202m\211:\203]\211@\303=\203]\311\312A\"\203m\310\306\302\"\210\202m\2119\203m\312
!\203m\310\306\301\"\210
A\266\202\202%\262
0\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 6 nil 8)) t nil not mapcar #[257 "\300
D\207" [not] 3 "\n\n(fn E)"] found #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 49 nil 57)) throw apply derived-mode-p] 6 (#$ . 16043)])
#@18 

(fn M PARENTS)
(defalias 'easy-mmode-set-keymap-parents #[514 "\300A\203
\301!\202@\"\207" [set-keymap-parent make-composed-keymap] 6 (#$ . 16745)])
#@621 Return a keymap built from bindings BS.
BS must be a list of (KEY . BINDING) where
KEY and BINDINGS are suitable for `define-key'.
Optional NAME is passed to `make-sparse-keymap'.
Optional map M can be used to modify an existing map.
ARGS is a list of additional keyword arguments.

Valid keywords and arguments are:

  :name      Name of the keymap; overrides NAME argument.
  :dense     Non-nil for a dense keymap.
  :inherit   Parent keymap.
  :group     Ignored.
  :suppress  Non-nil to call `suppress-keymap' on keymap,
             `nodigits' to suppress digits as prefix arguments.

(fn BS &optional NAME M ARGS)
(defalias 'easy-mmode-define-keymap #[1025 "\301\211\211\203>\211A\262\242\211A\262\242
\302\267\2025\262\210\202\262\210\202\262\210\202\266\202\202\266\202\303\304\"\266\202\305!\204\\\306\"\262
\203V\307!\202Z\310!\262\211\203g\311\312=\"\210\211\203\332\211@\211@
A
:\203|
\202~
C\211\203\321\211@\2119\203\224\313

$\210\202\312\204\254\305\314\f\"!\204\312\315#\210\202\312\314\"\211?\206\276\211\247\206\276\211\316=\262
\203\312\315#\210
A\266\202\202~\266
A\266\202\202i\210\305!\203\351\317\"\210\202\363:\203\363\320\"\210\207" [global-map nil #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:name 25 :dense 31 :inherit 37 :suppress 43 :group 48)) message "Unknown argument %s in defmap" keymapp append make-keymap make-sparse-keymap suppress-keymap nodigits substitute-key-definition lookup-key define-key undefined set-keymap-parent easy-mmode-set-keymap-parents] 18 (#$ . 16910)])
#@198 Define a constant M whose value is the result of `easy-mmode-define-keymap'.
The M, BS, and ARGS arguments are as per that function.  DOC is
the constant's documentation.

(fn M BS DOC &rest ARGS)
(defalias 'easy-mmode-defmap '(macro . #[899 "\300\301\302\303\304\305DD\nE\306B\257F\207" [defconst easy-mmode-define-keymap nil if boundp quote list] 13 (#$ . 18555)]))
(byte-code "\300\301\302\303#\300\207" [function-put easy-mmode-defmap lisp-indent-function 1] 4)
#@17 

(fn CSS ARGS)
(defalias 'easy-mmode-define-syntax #[514 "\300\301\302\"!\301\303\"\211\2038\211@\211@
A\304!\203)\305\306\307#\"\266\2021\310#\266
A\266\202\202\210\211\203L\3119\203IJ\202J\"\210
\207" [make-syntax-table plist-get :copy :inherit sequencep mapc make-closure #[257 "\302
\301\300#\207" [V0 V1 modify-syntax-entry] 5 "\n\n(fn C)"] modify-syntax-entry set-char-table-parent] 13 (#$ . 19036)])
#@141 Define variable ST as a syntax-table.
CSS contains a list of syntax specifications of the form (CHAR . SYNTAX).

(fn ST CSS DOC &rest ARGS)
(defalias 'easy-mmode-defsyntax '(macro . #[899 "\300\301\302\303\304BEFE\207" [progn (autoload 'easy-mmode-define-syntax "easy-mmode") defconst easy-mmode-define-syntax list] 12 (#$ . 19477)]))
(byte-code "\300\301\302\303#\300\207" [function-put easy-mmode-defsyntax lisp-indent-function 1] 4)
#@748 Define BASE-next and BASE-prev to navigate in the buffer.
RE determines the places the commands should move point to.
NAME should describe the entities matched by RE.  It is used to build
  the docstrings of the two functions.
BASE-next also tries to make sure that the whole entry is visible by
  searching for its end (by calling ENDFUN if provided or by looking for
  the next entry) and recentering if necessary.
ENDFUN should return the end position (with or without moving point).
NARROWFUN non-nil means to check for narrowing before moving, and if
found, do `widen' first and then call NARROWFUN with no args after moving.
BODY is executed after moving to the destination location.

(fn BASE RE &optional NAME ENDFUN NARROWFUN &rest BODY)
(defalias 'easy-mmode-define-navigation '(macro . #[1410 "\300!\301
\302P!\301\303P!\304\204\262\305\306\307\310\311
\"\312\313\314\315\316B\314\317D\320BB\314\321\322\323BBD\314\317D\324\325\205O\326\327DD\330BBD\331\332EF\333\334\335\336\337\325\340\203n\326\327DD\202t\322 \341BBD\342BBDC\343BBE\257\"BBBBB\257\344\345D\346\345DF\306\347\310\350\206\241\"\351\352\314\353\f\354B\f\355\356\357BB\331\360EE\"BBBB\257\344\345D\361\345DF\257\207" [symbol-name intern "-prev" "-next" #[514 "
\204\207\300\301\302\303\304\305DDEF\207" [let ((was-narrowed (prog1 (buffer-narrowed-p) (widen)))) when was-narrowed funcall function] 10 "\n\n(fn NARROWFUN BODY)"] progn defun (&optional count) format "Go to the next COUNT'th %s.\nInteractively, COUNT is the prefix numeric argument, and defaults to 1." (interactive "p") (unless count (setq count 1)) if (< count 0) ((- count)) looking-at ((setq count (1+ count))) not re-search-forward (nil t count) goto-char or funcall function ((point-max)) user-error "No next %s" (goto-char (match-beginning 0)) when (and (eq (current-buffer) (window-buffer)) (called-interactively-p 'interactive)) let endpt save-excursion (nil t 2) ((point-max)) ((unless (pos-visible-in-window-p endpt nil t) (let ((ws (window-start))) (recenter '(0)) (if (< (window-start) ws) (set-window-start nil ws))))) put quote 'definition-name (&optional count) "Go to the previous COUNT'th %s.\nInteractively, COUNT is the prefix numeric argument, and defaults to 1." (interactive "p") (unless count (setq count 1)) (< count 0) ((- count)) unless re-search-backward (nil t count) "No previous %s" 'definition-name] 36 (#$ . 19928)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310!\207" [function-put easy-mmode-define-navigation lisp-indent-function 5 put edebug-form-spec (exp exp exp def-form def-form def-body) provide easy-mmode] 5)