;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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 (#$ . 84)]) (defconst easy-mmode--arg-docstring "This is a %sminor mode. If called interactively, toggle the\n`%s' mode. If the prefix argument is positive, enable the mode,\nand if 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.")#@54 (fn DOC MODE-PRETTY-NAME KEYMAP-SYM GETTER GLOBAL) (defalias 'easy-mmode--mode-docstring #[1285 "\203\304\305\306\307$\266\203\203\207\310\311\307\"r\211q\210\312\313\"\216\203,\314!\2022\315\316\"C\211A\262\242c\210\317 \210\211\203O\211@\320\232\203O\211A\262\202=\211\211\203b\211@\211\321\261\210A\266\202\202P\210\317 \210\305\322\301!\205o \211\250\203x\211\202y\323\315 \203\204\324\202\205\320 \325\326\327\315\330 \"#$`c\210\331\332!\203\242\332`\333\307$\210*\266\322!\203\302\203\270\334\335\"\204\302\317 \210\315\336\"c\210\337 *\207" [fill-prefix emacs-lisp-docstring-fill-column fill-column easy-mmode--arg-docstring "\\bARG\\b" nil string-match t generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] string-lines format "Toggle %s on or off." ensure-empty-lines "" "\n" boundp 65 "global " string-replace "'" "\\='" "%S" fboundp fill-region left string-search "\\{" "\\{%s}" buffer-string] 18 (#$ . 1249)]) (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!\203pA\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\2109\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\203W\367\370\305\371\372\322+D\373BBE\367\374\322,D\375BBEFC\202v\367\376\305\377\372\322+D\201@BBE\367\374\322,D\201ABBEFC$\201B\322D\201C\322D\322DFE\201C\201D\337#\205\250?\205\250\201E\322-DD\201F\201G\201H\365\201I.\201JBBDE\361\201K(\203\315\201L\202\320\201MDC\201N\201O+\201C$\201PBB\201QBBBBEEEED\205\370C$BBB\201R\257!\340\201S\f\201TBB\201F\201U\322D\201VBB\201W\322D\201X\342\201Y%\"FE\201W\322D\201ZBB\201W\322D\201[BB9?\205i\201S\n\361\201\\ DC\201]BB\342\201^\"F:\203\333\242\211\321=\203\324\243\211:\203\315\211\242\211:\203\306\211\242\211\322=\203\277\243\211:\203\270\211\242\243\211\204\261\243\211\204\250\202\252\262\266\202\202\272\266\202\202\272\262\202\301\262\202\310\262\202\317\262\202\326\262\202\335\2119\204\370\204\354\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) (with-suppressed-warnings ((obsolete easy-mmode-define-keymap)) (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] 55 (#$ . 2350)])) (byte-code "\300\301\302\303#\300\301\304\305#\306\301\307\310#\210\311\312\313\"\210\311\314\313\"\207" [function-put define-minor-mode doc-string-elt 2 lisp-indent-function defun put edebug-form-spec (&define name string-or-null-p [&optional [¬ keywordp] sexp &optional [¬ keywordp] sexp &optional [¬ keywordp] sexp] [&rest [keywordp sexp]] def-body) defalias easy-mmode-define-global-mode define-globalized-minor-mode define-global-minor-mode] 6)#@2141 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. The :predicate key specifies in which major modes should the globalized minor mode be switched on. The value should be t (meaning switch on the minor mode in all major modes), nil (meaning don't switch on in any major mode), a list of modes (meaning switch on only in those modes and their descendants), or a list (not MODES...), meaning switch on in any major mode except MODES. The value can also mix all of these forms, see the info node `Defining Minor Modes' for details. The :predicate key causes the macro to create a user option named the same as MODE, but ending with "-modes" instead of "-mode". That user option can then be used to customize in which modes this globalized minor mode will be switched on. 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\327D\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 (#$ . 11287)])) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put define-globalized-minor-mode doc-string-elt 2 lisp-indent-function defun] 5)#@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\"\210A\266\202\202%\2620\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 "\300D\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 (#$ . 17006)])#@18 (fn M PARENTS) (defalias 'easy-mmode-set-keymap-parents #[514 "\300A\203 \301!\202@\"\207" [set-keymap-parent make-composed-keymap] 6 (#$ . 17707)])#@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 #\210A\266\202\202~\266A\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 (#$ . 17871)])#@254 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. This macro is deprecated; use `defvar-keymap' instead. (fn M BS DOC &rest ARGS) (defalias 'easy-mmode-defmap '(macro . #[899 "\300\301\302\303\304\305 DD\nE\306B\257F\207" [defconst easy-mmode-define-keymap nil if boundp quote list] 13 (#$ . 19515)])) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put easy-mmode-defmap doc-string-elt 3 lisp-indent-function 1] 5)#@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#\266A\266\202\202 \210\211\203L\3119\203IJ\202J\"\210\207" [make-syntax-table plist-get :copy :inherit sequencep mapc make-closure #[257 "\302\300\301#\207" [V0 V1 modify-syntax-entry] 5 "\n\n(fn C)"] modify-syntax-entry set-char-table-parent] 13 (#$ . 20085)])#@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 (#$ . 20525)])) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put easy-mmode-defsyntax doc-string-elt 3 lisp-indent-function 1] 5)#@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 (#$ . 21009)])) (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)