;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304\305\306#\207" [require seq cl-lib evil annalist nil t] 4)#@57 Store the directory evil-collection.el was loaded from. (defvar evil-collection-base-dir (file-name-directory load-file-name) (#$ . 201)) (defvar evil-collection--startup-warning-flag nil)#@84 Warn if `evil-want-keybinding' was not set before loading Evil. Runs at most once. (defalias 'evil-collection-maybe-display-startup-warning #[0 "?\205\302\303\304!\205 \203\305\306\307\"\207\305\310\311\"\207" [evil-collection--startup-warning-flag evil-want-keybinding t featurep evil-keybindings display-warning (evil-collection) "Make sure to set `evil-want-keybinding' to nil before loading evil or evil-collection.\n\nSee https://github.com/emacs-evil/evil-collection/issues/60 for more details." (evil-collection) "`evil-want-keybinding' was set to nil but not before loading evil.\n\nMake sure to set `evil-want-keybinding' to nil before loading evil or evil-collection.\n\nSee https://github.com/emacs-evil/evil-collection/issues/60 for more details."] 3 (#$ . 395)]) (byte-code "\300\301!\204\302\303!\210\304\301!\210\305\306\307\310\311\312%\210\313\314\315\316\317DD\320\321\322%\210\313\323\315\316\324DD\325\321\322%\210\313\326\315\316\327DD\330\321\322%\210\331\326\332\333#\210\313\334\315\316\335DD\336\321\322%\210\313\337\315\316\340DD\341\321\322%\210\331\337\342\333#\210\313\343\315\316\344DD\345\321\322%\207" [featurep evil-integration message "Requiring evil-integration. Set evil-want-integration to t to remove this message.\n\nSee https://github.com/emacs-evil/evil-collection/issues/60 for more details." require custom-declare-group evil-collection nil "A set of keybindings for Evil mode." :group evil custom-declare-variable evil-collection-setup-minibuffer funcall function #[0 "\300\207" [nil] 1 #1=""] "Whether to setup Evil bindings in the minibuffer." :type boolean evil-collection-calendar-want-org-bindings #[0 "\300\207" [nil] 1 #1#] "Whether to bind Org functions in calendar keymap." evil-collection-setup-debugger-keys #[0 "\300\207" [t] 1 #1#] "Whether to bind debugger keys when debugger is active.\n\nDebugger in this case is dependent on mode.\n\nThis is only relevant for debug modes that are part of another mode,\n\ne.g. `indium'. Modes like `edebug' or `realgud' needs to be explicitly disabled\n\nthrough removing their entry from `evil-collection-mode-list'.\n\nThis variable is obsolete; new customization should use\n`evil-collection-binding-overrides' instead:\n\n (setq evil-collection-binding-overrides\n \\='((debug-breakpoint :enabled nil)))" make-obsolete-variable "use `evil-collection-binding-overrides': `debug-continue', `debug-step-over', `debug-step-into', `debug-step-out', `debug-breakpoint'." "evil-collection 2.0.0" evil-collection-want-unimpaired-p #[0 "\300\207" [t] 1 #1#] "Whether to enable unimpaired style bindings globally." evil-collection-want-find-usages-bindings #[0 "\300\207" [t] 1 #1#] "Whether to bind `xref-find-references'-like bindings.\n\nThis will bind additional find-* type commands, e.g. usages, assignments, etc..\n\nThis variable is obsolete; New customization\nshould use `evil-collection-binding-overrides' instead:\n\n (setq evil-collection-binding-overrides\n \\='((find-usages :enabled nil)))" "use `evil-collection-binding-overrides': `find-usages'." evil-collection-want-g-bindings #[0 "\300\207" [t] 1 #1#] "Whether to bind g* bindings."] 6)#@810 List of modes whose keybinds aren't completely set up after the mode is loaded. This can be a problem for cases where we're doing key translations using `evil-collection-setup-hook' which would result in an empty keymap. Normally we run `evil-collection-setup-hook' right away after the mode is loaded in `with-eval-after-load' (see `evil-collection-init') but for these modes, we skip running that hook and let the corresponding `evil-collection' package handle running `evil-collection-setup-hook'. Elements in this list either match a target mode symbol or the car of a list in `evil-collection--supported-modes'. If `evil-collection-always-run-setup-hook-after-load' is t, this list isn't read and `evil-collection-setup-hook' will be ran in the `with-eval-after-load' block in `evil-collection-init'. (defvar evil-collection--modes-with-delayed-setup '(emms eshell) (#$ . 3574)) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable evil-collection-always-run-setup-hook-after-load funcall function #[0 "\300\207" [nil] 1 #1=""] "Whether to always run `evil-collection-setup-hook' after mode is loaded.\n\nSee `evil-collection-init' and `evil-collection--modes-with-delayed-setup'." :type boolean evil-collection-defer-delay #[0 "\300\207" [3] 1 #1#] "Default idle delay in seconds used when deferring mode initialization.\n\nUsed as a fallback when no explicit delay is specified for a mode in\n`evil-collection-defer'." number] 6)#@161 List of modes supported by evil-collection. Elements are either target mode symbols or lists which `car' is the mode symbol and `cdr' the packages to register. (defvar evil-collection--supported-modes (byte-code "\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\377\201@\201A\201B\201C\201D\201E\201FY\205[\201G\201H\201IY\205i\201J\201K \205s\201L\201M\201NY\205\201\201O\201P\201QY\205\217\201R\201S\201QY\205\235\201T\201U&\fBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB\207" [emacs-major-version evil-collection-setup-minibuffer 2048-game ag agent-shell agent-shell-manager alchemist anaconda-mode apropos arc-mode atomic-chrome auto-package-update beginend bluetooth bm bookmark (buff-menu "buff-menu") bufler calc calendar cider citre cmake-mode color-rg comint company compile consult corfu crdt (csv "csv-mode") (custom cus-edit) cus-theme dape dashboard daemons deadgrep debbugs debug devdocs dictionary diff-hl diff-mode difftastic dired dired-sidebar disk-usage distel doc-view docker eat ebib ebuku eca edbi edebug ediff eglot elpaca ement explain-pause-mode eldoc elfeed elisp-mode elisp-refs elisp-slime-nav embark emcp emms append 29 (emoji) (epa ert eshell eval-sexp-fu evil-ghostel evil-mc eww fanyi finder flycheck flymake fj forge free-keys fzfa geiser ggtags git-timemachine gited gnus go-mode gptel grep guix hackernews helm help helpful hg-histedit hideshow hungry-delete hyrolo ibuffer ielm (image image-mode) image-dired image+ imenu imenu-list (indent "indent") indium info ivy js2-mode) 30 (kmacro) (leetcode lispy lms log-edit log-view lsp-ui-imenu lua-mode kotlin-mode macrostep man (magit magit-submodule) magit-repos magit-section magit-todos markdown-mode message minesweeper) (minibuffer) (monky mpc mpdel mpdired mu4e mu4e-conversation neotree newsticker notmuch nov omnisharp org org-agenda org-present org-roam osx-dictionary outline ovpn-mode p4 (package-menu package) pass (pdf pdf-view) popup proced (process-menu simple) prodigy profiler p-search python quickrun racer racket-describe reader realgud reftex replace restclient rg ripgrep rjsx-mode robe rtags ruby-mode scheme scroll-lock selectrum sh-script shell-maker) 28 (shortdoc) (simple simple-mpc slime sly smerge-mode snake so-long speedbar) 27 (tab-bar) (tablist tabulated-list tar-mode telega (term term ansi-term multi-term) tetris) (thread) (tide timer-list transmission trashed tuareg typescript-mode ultra-scroll vc-annotate vc-dir vc-git vdiff vertico view vlf vterm vundo w3m wdired wgrep which-key with-editor woman xref xwidget yaml-mode youtube-dl zmusic (ztree ztree-diff ztree-dir))] 80) (#$ . 5084)) (byte-code "\211\203+\211@\211<\203\211@\202\211\302\303\304\305\"!\306\304\307\211# \"\"\266A\266\202\202\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\323%\210\310\324\312\313\325DD\326\316\327%\210\310\330\312\313\331DD\332\316\333%\210\310\334\312\313\335DD\336\316\337%\210\310\340\312\313\341DD\342\316\343%\210\310\344\312\313\345DD\346\316\347%\210\350\344\351\352#\207" [evil-collection--supported-modes evil-collection-base-dir autoload intern format "evil-collection-%s-setup" expand-file-name "modes/%s/evil-collection-%s" custom-declare-variable evil-collection-mode-list funcall function #[0 "\207" [evil-collection--supported-modes] 1 #1=""] "The list of modes which will be evilified by `evil-collection-init'.\nElements are either target mode symbols or lists which `car' is the\nmode symbol and `cdr' the packages to register.\n\nBy default, `minibuffer' is not included because many users find\nthis confusing. It will be included if\n`evil-collection-setup-minibuffer' is set to t." :type (repeat (choice symbol sexp)) evil-collection-config #[0 "\300\207" [((buff-menu :defer t) (calc :defer t) (comint :defer t) (debug :defer t) (diff-mode :defer t) (dired :hook dired-mode) (edebug :defer t) (eldoc :defer t) (help :defer t) (image :defer t) (indent :defer t) (info :defer t) (replace :defer t) (outline :defer t) (package-menu :defer t) (process-menu :defer t) (simple :defer t) (tab-bar :defer t) (tabulated-list :defer t) (xref :defer t))] 1 #1#] "The list of modes with special configuration.\n\nThese modes should match entries within `evil-collection-mode-list'.\n\nThis variable is consumed only by `evil-collection-setup'.\n\n\nNOTE: The API of this variable may change drastically.\n\nCurrently supported keys:\n\n:defer t or TIME in seconds to defer loading mode.\n\n:hook HOOK-NAME to initialize the mode when a hook fires. The hook\nname does not need the \"-hook\" suffix; it will be appended\nautomatically. When :hook is present, :defer is ignored." (repeat (choice symbol sexp)) evil-collection-key-whitelist #[0 "\300\207" [nil] 1 #1#] "List of keys that may be used by Evil Collection.\nThis is a list of strings that are suitable for input to\n`kbd'. If there are no keys in the list, the whitelist will be ignored." (repeat string) evil-collection-key-blacklist #[0 "\300\207" [nil] 1 #1#] "List of keys that may not be used by Evil Collection.\nThis is a list of strings that are suitable for input to `kbd'." (repeat string) evil-collection-state-passlist #[0 "\300\207" [nil] 1 #1#] "List of evil states that may be used by Evil Collection.\nThis is a list of symbols that are suitable for input to\n `evil-define-key'. Ignore when there are no states in the list." (repeat symbol) evil-collection-state-denylist #[0 "\301\300!\205 \205 \302\207" [evil-disable-insert-state-bindings boundp (insert)] 2 #1#] "List of evil states that may not be used by Evil Collection.\nThis is a list of symbols that are suitable for input to\n `evil-define-key'." (repeat symbol) evil-collection-repl-submit-state #[0 "\300\207" [normal] 1 #1#] "Evil state in which RET submits the prompt in REPL-like buffers.\n\nThe other state gets RET bound to `newline'. S-RET always inserts a\nnewline regardless of state.\n\nNew customization should use\n`evil-collection-binding-overrides' instead:\n\n `repl-submit', `repl-newline', `repl-force-newline'\n\n (setq evil-collection-binding-overrides\n \\='((repl-submit :state insert)\n (repl-newline :state normal)))" (choice (const :tag "Submit in normal state" normal) (const :tag "Submit in insert state" insert)) make-obsolete-variable "use `evil-collection-binding-overrides': `repl-submit', `repl-newline'." "evil-collection 2.0.0"] 10)#@1824 Built-in entries for the evil-collection theme system. Each entry has the form (ID . PLIST) and may use: :enabled nil, t, or a function with the signature (lambda (map-sym id keys command) ...) called at lookup time. Missing entries are treated as t. Any of the four arguments may be nil when `evil-collection-binding-enabled-p' is called outside the bind helpers (e.g. as a pure feature toggle from a consumer-side setup function). Override examples: ;; Skip in one specific keymap. (find-usages :enabled ,(lambda (map-sym _id _keys _cmd) (not (eq map-sym \='dired-sidebar-mode-map)))) ;; Skip when bound to a particular key. (find-usages :enabled ,(lambda (_map-sym _id keys _cmd) (not (member "gr" keys)))) :state Evil state symbol, list of state symbols, or a function with the same signature as :enabled. :key Key string (suitable for `kbd'), list of key strings, or with the same signature as :enabled. :state and :key are optional. An entry with only :enabled acts as a pure feature toggle: the consumer-side code does the binding itself and asks the resolver via `evil-collection-binding-enabled-p' whether the feature is on. Function values for :state and :key are funcalled at lookup time with args mirroring `:enabled'. Plain symbols are never funcalled even when they happen to have a function binding (e.g. the state symbol `insert' is also the `insert' function); that is why anonymous lambdas are required when a property's value should be computed dynamically. Users customize via `evil-collection-binding-overrides'; do not modify this variable directly. (defvar evil-collection-binding-defaults (byte-code "\300\301\302\303\304\305\306BBBBB\307\302\303\304\310\311BBBBB\312\313\302\314\315BBB\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\302\340\341BBB\342\302\343\344BBB\345\302\346\347BBB\350\302\351\352BBB\353\302\354\355BBB\356\302\357\360BBB\361\302\362\363BBB\364\302\365\366BBB\367\302\370\371BBB\372\302\373\374BBB\375BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB\207" [(term-toggle-escape :enabled t :state (normal insert) :key "C-c C-z") repl-submit :enabled t :state #[1028 "\207" [evil-collection-repl-submit-state] 5 "\n\n(fn MAP-SYM ID KEYS COMMAND)"] (:key ("RET" "" "C-m")) repl-newline #[1028 "\301=\203\302\207\301\207" [evil-collection-repl-submit-state normal insert] 6 "\n\n(fn MAP-SYM ID KEYS COMMAND)"] (:key ("RET" "" "C-m")) (repl-force-newline :enabled t :state (normal insert) :key ("S-" "S-RET")) find-usages #[1028 "\207" [evil-collection-want-find-usages-bindings] 5 "\n\n(fn MAP-SYM ID KEYS COMMAND)"] (:state normal :key "gr") (find-definition :enabled t :state normal :key "gd") (pop-definition :enabled t :state normal :key "C-t") (lookup-doc :enabled t :state normal :key "K") (goto-repl :enabled t :state normal :key "gz") (find-file :enabled t :state normal :key "gf") (quit :enabled t :state normal :key "q") (quit-save :enabled t :state normal :key "ZZ") (quit-cancel :enabled t :state normal :key "ZQ") (rename :enabled t :state normal :key ("r" "R")) (edit :enabled t :state normal :key ("e" "E")) (browse-url :enabled t :state normal :key "gx") (describe-mode :enabled t :state normal :key "g?") (refresh :enabled t :state normal :key "gr") (refresh-all :enabled t :state normal :key "gR") (action :enabled t :state normal :key ("RET" "")) (action-other :enabled t :state normal :key ("S-" "S-RET" "go")) (action-stay :enabled t :state normal :key ("M-" "M-RET" "gO")) debug-continue #[1028 "\207" [evil-collection-setup-debugger-keys] 5 "\n\n(fn MAP-SYM ID KEYS COMMAND)"] (:state normal :key ("c" "")) debug-step-over #[1028 "\207" [evil-collection-setup-debugger-keys] 5 "\n\n(fn MAP-SYM ID KEYS COMMAND)"] (:state normal :key ("n" "")) debug-step-into #[1028 "\207" [evil-collection-setup-debugger-keys] 5 "\n\n(fn MAP-SYM ID KEYS COMMAND)"] (:state normal :key ("i" "s" "")) debug-step-out #[1028 "\207" [evil-collection-setup-debugger-keys] 5 "\n\n(fn MAP-SYM ID KEYS COMMAND)"] (:state normal :key ("o" "")) debug-breakpoint #[1028 "\207" [evil-collection-setup-debugger-keys] 5 "\n\n(fn MAP-SYM ID KEYS COMMAND)"] (:state normal :key ("b" "")) debug-eval #[1028 "\207" [evil-collection-setup-debugger-keys] 5 "\n\n(fn MAP-SYM ID KEYS COMMAND)"] (:state normal :key "e") debug-locals #[1028 "\207" [evil-collection-setup-debugger-keys] 5 "\n\n(fn MAP-SYM ID KEYS COMMAND)"] (:state normal :key "L") debug-restart #[1028 "\207" [evil-collection-setup-debugger-keys] 5 "\n\n(fn MAP-SYM ID KEYS COMMAND)"] (:state normal :key "R") debug-frame-up #[1028 "\207" [evil-collection-setup-debugger-keys] 5 "\n\n(fn MAP-SYM ID KEYS COMMAND)"] (:state normal :key "<") debug-frame-down #[1028 "\207" [evil-collection-setup-debugger-keys] 5 "\n\n(fn MAP-SYM ID KEYS COMMAND)"] (:state normal :key ">") ((next-button :enabled t :state normal :key ("" "TAB")) (previous-button :enabled t :state normal :key ("" "")) (cycle-next :enabled t :state normal :key ("" "TAB")) (cycle-previous :enabled t :state normal :key ("" "")) (section-toggle :enabled t :state normal :key ("" "TAB")) (section-toggle-all :enabled t :state normal :key ("" "")) (next-item :enabled t :state normal :key "gj") (prev-item :enabled t :state normal :key "gk") (next-section :enabled t :state normal :key ("]]")) (prev-section :enabled t :state normal :key ("[[")) (next-section-2 :enabled t :state normal :key "C-j") (prev-section-2 :enabled t :state normal :key "C-k") (scroll-down :enabled t :state normal :key "SPC") (scroll-up :enabled t :state normal :key ("S-SPC" "S-")) (history-previous :enabled t :state normal :key "C-p") (history-next :enabled t :state normal :key "C-n") (completion-previous :enabled t :state insert :key "C-p") (completion-next :enabled t :state insert :key "C-n") (zoom-in :enabled t :state normal :key ("+" "=")) (zoom-out :enabled t :state normal :key "-") (zoom-reset :enabled t :state normal :key "0") (jump :enabled t :state normal :key "J") (mark :enabled t :state normal :key "m") (mark-all :enabled t :state normal :key "M") (toggle :enabled t :state normal :key "t") (toggle-all :enabled t :state normal :key "~") (unmark :enabled t :state normal :key "u") (unmark-all :enabled t :state normal :key "U") (mark-delete :enabled t :state normal :key "d") (execute-marks :enabled t :state normal :key "x") (delete :enabled t :state normal :key "d") (delete-2 :enabled t :state normal :key "x") (search-or-filter :enabled t :state normal :key "s"))] 35) (#$ . 11734)) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable evil-collection-binding-overrides funcall function #[0 "\300\207" [nil] 1 ""] "User overrides merged onto `evil-collection-binding-defaults'.\n\nSame shape as `evil-collection-binding-defaults'. Properties present\nhere win per-property; properties omitted here fall through to the\ndefaults.\n\n (setq evil-collection-binding-overrides\n \\='((term-toggle-escape :state normal :key \"C-c j\")))\n\nUse `:enabled nil' to disable a feature. An explicit nil counts as\n\"set\", not \"absent\"." :type (alist :key-type symbol :value-type plist)] 6)#@131 Resolve PROP for theme entry ID. Overrides win over defaults per-property. Returns nil if neither side sets PROP. (fn ID PROP) (defalias 'evil-collection-binding--get #[514 "\236A \236A\302\"\203\303\"\207\302\"\205\303\"\207" [evil-collection-binding-overrides evil-collection-binding-defaults plist-member plist-get] 7 (#$ . 19230)])#@289 Funcall V with (MAP-SYM ID KEYS COMMAND) if it is an anonymous function; otherwise return V. Plain symbols are returned as-is even when they have a function binding — they are data (state names, command names) in this context, never callables. (fn V &optional MAP-SYM ID KEYS COMMAND) (defalias 'evil-collection-binding--resolve #[1281 "\300!\2039\204$\207\207" [functionp] 10 (#$ . 19590)])#@68 Wrap V in a list unless it already is one. Nil stays nil. (fn V) (defalias 'evil-collection-binding--listify #[257 "\211\204\300\207\211<\203\f\207\211C\207" [nil] 2 (#$ . 20002)])#@452 Return non-nil if theme entry ID is enabled. :enabled may be nil, t, or a function with the signature (lambda (MAP-SYM ID KEYS COMMAND) ...). Missing -> t. The optional MAP-SYM, KEYS, and COMMAND are forwarded to the function when present at the call site, and otherwise nil — this lets callers that resolve `:enabled' as a pure feature toggle (no concrete keymap in scope) keep their existing call shape. (fn ID &optional MAP-SYM KEYS COMMAND) (defalias 'evil-collection-binding-enabled-p #[1025 "\236A \236A\302\303\"\203\304\303\"\202%\302\303\"\203$\304\303\"\202%\305\306!\203;\2119\204;\211$\207\207" [evil-collection-binding-overrides evil-collection-binding-defaults plist-member :enabled plist-get t functionp] 12 (#$ . 20194)])#@214 Return list of evil states configured for theme entry ID. The optional MAP-SYM, KEYS, and COMMAND are forwarded to a function-valued `:state' — same shape as `:enabled'. (fn ID &optional MAP-SYM KEYS COMMAND) (defalias 'evil-collection-binding-states #[1025 "\300\301\302\303\"%!\207" [evil-collection-binding--listify evil-collection-binding--resolve evil-collection-binding--get :state] 11 (#$ . 20967)])#@94 Return list of key strings configured for theme entry ID. (fn ID &optional MAP-SYM COMMAND) (defalias 'evil-collection-binding-keys #[769 "\236A \236A\302\303\304\"\2031\302\305\306\304\" \307 %!\305\306\304\"  %\262\202>\305\306\304\"\307%!\207" [evil-collection-binding-overrides evil-collection-binding-defaults evil-collection-binding--listify plist-member :key evil-collection-binding--resolve plist-get nil] 13 (#$ . 21392)])#@554 Bind one or more theme entries in MAP-SYM. ID-COMMAND-PAIRS is an even-length list alternating theme IDs and commands: (evil-collection-bind \='foo-mode-map \='action \='foo-do \='quit \='foo-quit) Each ID is resolved through `evil-collection-binding-keys'; entries with `:enabled' nil are skipped. Pairs that share the same `:state' value are batched into a single `evil-collection-define-key' call so a deferred map installs one `after-load-functions' hook per state-group instead of one per pair. (fn MAP-SYM &rest ID-COMMAND-PAIRS) (defalias 'evil-collection-bind #[385 "\300\203W\211A\262\242\211A\262\242\301#\302$\203R\303$\203Q\304\305\306\"\"\307\"\211\203G\211A\244\241\266\202BB\262\266\210\266\202\211\237\211\205p\211@\310\311@A$\210A\266\202\202Y\207" [nil evil-collection-binding-keys evil-collection-binding-enabled-p evil-collection-binding-states cl-mapcan make-closure #[257 "\301!\300D\207" [V0 kbd] 3 "\n\n(fn K)"] assoc apply evil-collection-define-key] 12 (#$ . 21856)])#@163 Bind theme entry ID to COMMAND in minor-mode MODE. Like `evil-collection-bind' but routes through `evil-collection-define-minor-mode-key'. (fn ID MODE COMMAND) (defalias 'evil-collection-bind-minor-mode #[771 "\300#\301$\205)\302$\205'\303\304\305\306\307 \"\"$\262\207" [evil-collection-binding-keys evil-collection-binding-enabled-p evil-collection-binding-states apply evil-collection-define-minor-mode-key cl-mapcan make-closure #[257 "\301!\300D\207" [V0 kbd] 3 "\n\n(fn KEY)"]] 13 (#$ . 22924)])#@456 Define NAME as an interactive command that calls `push-button' when point is on a button (per `button-at'), otherwise calls FALLBACK interactively. Evil's state aux keymaps shadow text-property keymaps (e.g. `button-map' on buttons), so binding a primary action like a `*-visit-result' directly to RET prevents header/embedded buttons from receiving the keypress. Wrapping the fallback restores Emacs's text-property-aware dispatch. (fn NAME FALLBACK) (defalias 'evil-collection-define-push-action '(macro . #[514 "\300\301\302\303\"\304\305\306\307\310\311\nDDF\257\207" [defun nil format "Push button at point, else call `%s'.\nGenerated by `evil-collection-define-push-action' to restore button-keymap\ntext-property dispatch under Evil normal state." (interactive) if (button-at (point)) (call-interactively #'push-button) call-interactively quote] 13 (#$ . 23456)])) (byte-code "\300\301\302\303#\300\207" [function-put evil-collection-define-push-action lisp-indent-function defun] 4)#@124 Return t if KEY-A and KEY-B conflict. Keys conflict if they're equal or if one is a prefix of the other. (fn KEY-A KEY-B) (defalias 'evil-collection--keys-conflict #[514 "\300!\262\300!\262GG^\301O\301O\232\207" [vconcat 0] 7 (#$ . 24460)])#@288 Return t if KEY can be bound. Return nil if KEY conflicts with a key in BLACKLIST and is not a member of WHITELIST. Both WHITELIST and BLACKLIST must be lists of keys in Emacs' internal key representation (i.e., after calling `kbd' on the key description. (fn KEY WHITELIST BLACKLIST) (defalias 'evil-collection--can-bind-key #[771 "\235\206 \300\301\302$?\207" [cl-member :test evil-collection--keys-conflict] 8 (#$ . 24718)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put evil-collection--can-bind-key speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@132 Bind theme entry ID to COMMAND in the current buffer. Like `evil-collection-bind' but uses `evil-local-set-key'. (fn ID COMMAND) (defalias 'evil-collection-bind-local #[514 "\302\303#\304\303$\205}\305\306\"\305\306 \"\307\310\303$!\211\205{\211\205y\211@\306!\211\235\206A\311\312\313$?\266\203\203q\314\315!\203[\316\317\320\321@ F\322\323%\210\211\203p\211@\324\f#\210A\266\202\202\\\210\210A\266\202\202&\262\266\203\207" [evil-collection-key-whitelist evil-collection-key-blacklist evil-collection-binding-keys nil evil-collection-binding-enabled-p mapcar kbd evil-collection--filter-states evil-collection-binding-states cl-member :test evil-collection--keys-conflict featurep annalist annalist-record evil-collection keybindings local :local t evil-local-set-key] 17 (#$ . 25314)])#@473 Hook run by `evil-collection-init' for each mode that is evilified. This hook runs after all setup (including keybindings) for a mode has already taken place. The arguments passed to functions for this hook are the name of the mode and a list of keymap names (i.e. symbols, not actual keymaps) customized by Evil Collection for that mode. More arguments may be added in the future, so functions added to this hook should include a "&rest _rest" for forward compatibility. (defvar evil-collection-setup-hook nil (#$ . 26153))#@609 Define a key on a specific OPERATOR e.g. yank or delete. This function is useful for adding specific binds to operator maps (e.g. `evil-yank' or `evil-delete') without erasing the original bind. For example, say one wants to bind "yf" to something but also wants to keep "yy". This function takes care of checking the whitelist/blacklist against the full binding. For example: (evil-collection-define-operator-key ='yank ='pass-mode-map "f" ='pass-copy-field) This will check "yf" against a user's white/blacklist and also record the binding in `annalist' as so. (fn OPERATOR MAP-SYM &rest BINDINGS) (defalias 'evil-collection-define-operator-key #[642 "\302=\203\n\303\202 \304\302=\203\305\202\306\302=\203 \307\202!\310\311\312\"\311\312 \"\313\203\240\211A\262\242P\211A\262\n\242\314\315\313\316\317\320\321\322\323\324\325DE\326\324EE\327\330\nDFE\257\203k\235\204r\235\204\233\331\332!\203\221\333\334\335\336F\337\340=\206\217\341!%\210B\262\211B\262\266\202*\211\237\262\342\343 #\207" [evil-collection-key-whitelist evil-collection-key-blacklist yank "y" "d" evil-collection-yank-operators evil-collection-delete-operators [remap evil-yank] [remap evil-delete] mapcar kbd nil menu-item "" :filter lambda (&optional _) when or eq evil-this-operator key-binding memq (setq evil-inhibit-operator t) quote featurep annalist annalist-record evil-collection keybindings normal :local local local-variable-p evil-collection--define-key operator] 24 (#$ . 26684)]) (byte-code "\300\301\302\303#\300\207" [function-put evil-collection-define-operator-key lisp-indent-function defun] 4)#@274 Return a list states after filtering STATE (a single symbol or list of symbols). The return value adheres to `evil-collection-state-passlist' and `evil-collection-state-denylist'. When the STATE is nil, which means all states for `evil-define-key', return nil. (fn STATE) (defalias 'evil-collection--filter-states #[257 "\211<\203 \211\202 \211C\302\203\303\"\202 \"\207" [evil-collection-state-passlist evil-collection-state-denylist seq-difference seq-intersection] 6 (#$ . 28347)])#@391 Wrapper for `evil-define-key*' with additional features. Unlike `evil-define-key*' MAP-SYM should be a quoted keymap other than the unquoted keymap required for `evil-define-key*'. This function adds the ability to filter keys on the basis of `evil-collection-key-whitelist' and `evil-collection-key-blacklist'. It also records bindings with annalist.el. (fn STATE MAP-SYM &rest BINDINGS) (defalias 'evil-collection-define-key #[642 "\302\303\"\302\303 \"\304!\305\204?\205v\203l\211A\262\242\211A\262\242\235\2068\306\307\310$?\266\203\203g\311\312!\203]\313\314\315\n\fF\316\f\317=\206[\320 !%\210B\262\211B\262\266\202\211\237\262\321#\207" [evil-collection-key-whitelist evil-collection-key-blacklist mapcar kbd evil-collection--filter-states nil cl-member :test evil-collection--keys-conflict featurep annalist annalist-record evil-collection keybindings :local local local-variable-p evil-collection--define-key] 17 (#$ . 28849)]) (byte-code "\300\301\302\303#\300\207" [function-put evil-collection-define-key lisp-indent-function defun] 4)#@406 Wrapper for `evil-define-minor-mode-key' with additional features. Like `evil-collection-define-key' but binds to MODE (a minor-mode symbol) rather than a keymap. Bindings auto-activate when MODE is enabled without relying on `evil-normalize-keymaps'. Filters keys via `evil-collection-key-whitelist' / `evil-collection-key-blacklist' and records bindings with annalist. (fn STATE MODE &rest BINDINGS) (defalias 'evil-collection-define-minor-mode-key #[642 "\302\303\"\302\303 \"\304!\305\204?\205o\203`\211A\262\242\211A\262\242\235\2068\306\307\310$?\266\203\203[\311\312!\203Q\313\314\315\n\fF#\210B\262\211B\262\266\202\211\237\262\211\205o\316\317$\207" [evil-collection-key-whitelist evil-collection-key-blacklist mapcar kbd evil-collection--filter-states nil cl-member :test evil-collection--keys-conflict featurep annalist annalist-record evil-collection keybindings apply evil-define-minor-mode-key] 17 (#$ . 29952)]) (byte-code "\300\301\302\303#\300\207" [function-put evil-collection-define-minor-mode-key lisp-indent-function defun] 4)#@53 Return whether or not we should bind KEY. (fn KEY) (defalias 'evil-collection-can-bind-key #[257 "\302\303\"\302\303 \"\235\206\304\305\306$?\207" [evil-collection-key-whitelist evil-collection-key-blacklist mapcar kbd cl-member :test evil-collection--keys-conflict] 11 (#$ . 31055)])#@145 Workhorse function for `evil-collection-define-key'. See `evil-collection-define-key' docstring for more details. (fn STATE MAP-SYM BINDINGS) (defalias 'evil-collection--define-key #[771 "\211?\206u\300!\203%\301J!\203%\3021\303\304J$0\207\305\306#\207\300!\2030\307\310\"\207\311\312\"\313!\211\314\315\316\317\300\320\nDD\301\nDE\321\322\323DE\324\325\303\326\320D\320D\257\327\305\311\330\"\331BBDFFEM\210\332\333\334#\266\202\207" [boundp keymapp (debug error) apply evil-define-key* message "evil-collection: error setting key in %s %S" user-error "evil-collection: %s is not a keymap" format "evil-collection-define-key-in-%s" make-symbol lambda (&rest args) when and quote remove-hook 'after-load-functions function condition-case-unless-debug err #'evil-define-key* error "evil-collection: error setting key in %s %%S" (err) add-hook after-load-functions t] 19 (#$ . 31357)])#@104 Unmap insertion keys from normal state. This is particularly useful for read-only modes. (fn MAP-SYM) (defalias 'evil-collection-inhibit-insert-state #[257 "\300\301\302\303\304\303\305\303\306\303\307\303\310\303\311\303\312\303\313\303\314\303\315\303\316\303\317\303\320\303\321\303\322\303\323\303\324\303\325\303\326\303\327\303\330\303\331\303&0\207" [evil-collection-define-key normal [remap evil-append] ignore [remap evil-append-line] [remap evil-insert] [remap evil-insert-line] [remap evil-change] [remap evil-change-line] [remap evil-substitute] [remap evil-change-whole-line] [remap evil-delete] [remap evil-delete-line] [remap evil-delete-char] [remap evil-delete-backward-char] [remap evil-replace] [remap evil-replace-state] [remap evil-open-below] [remap evil-open-above] [remap evil-paste-after] [remap evil-paste-before] [remap evil-join] [remap evil-indent] [remap evil-shift-left] [remap evil-shift-right] [remap evil-invert-char]] 50 (#$ . 32280)])#@227 Unmap insertion keys from normal state. Additionally q can `quit-window'. This is particularly useful for read-only modes. Make sure it's called before setting up other evil bindings so that it can be overriden. (fn MAP-SYM) (defalias 'evil-collection-set-readonly-bindings #[257 "\300!\210\301\302\303\304\305\304\306\307&\207" [evil-collection-inhibit-insert-state evil-collection-define-key normal "q" quit-window "ZZ" "ZQ" evil-quit] 10 (#$ . 33259)])#@82 Comparison function used to sort bindings of the form (state key def). (fn A B) (defalias 'evil-collection--binding-lessp #[514 "\300@!\300@!A@A@\230\204\231\207\231\207" [symbol-name] 8 (#$ . 33724)]) (eval-after-load 'annalist #[0 "\300\301\302\303\304\305E\306\304\305ED\307\310%\210\300\301\311\303\304\305E\306\304\305ED\307\312%\207" [annalist-define-view keybindings evil-collection-valid keymap :sort annalist-string-< state :inherit valid evil-collection-active active] 7])#@216 Print bindings made by Evil Collection to separate buffer. With non-nil ARG, restrict to bindings corresponding to active modes in the current buffer. Requires the optional `annalist' package. (fn &optional ARG) (defalias 'evil-collection-describe-bindings #[256 "\300\301\302\303#\204\f\304\305!\210\306\307\310\203\311\202\312#\207" [require annalist nil t user-error "`evil-collection-describe-bindings' requires the `annalist' package" annalist-describe evil-collection keybindings evil-collection-active evil-collection-valid] 5 (#$ . 34226) "P"])#@79 Return path to FILE for MODE. Return nil if it doesn't exist. (fn MODE FILE) (defalias 'evil-collection--mode-file #[514 "\301\302\303#\"\304!\205\211\207" [evil-collection-base-dir expand-file-name format "modes/%s/%s" file-exists-p] 7 (#$ . 34793)])#@59 Open configuration file corresponding to MODE. (fn MODE) (defalias 'evil-collection-open-config-file #[257 "\300\301\302\303\"\"!\207" [find-file evil-collection--mode-file format "evil-collection-%s.el"] 7 (#$ . 35057) (byte-code "\301\302\303\304\305\306\307\"\310\311#\"\"C\207" [evil-collection-base-dir completing-read "Mode: " cl-remove-if-not #[257 "\300\301\302\"\"\207" [evil-collection--mode-file format "evil-collection-%s.el"] 6 "\n\n(fn MODE)"] directory-files expand-file-name "modes" nil "^[^.]"] 8)])#@51 Open README.org corresponding to MODE. (fn MODE) (defalias 'evil-collection-open-readme #[257 "\300\301\302\"!\207" [find-file evil-collection--mode-file "README.org"] 5 (#$ . 35585) (byte-code "\301\302\303\304\305\306\307\"\310\311#\"\"C\207" [evil-collection-base-dir completing-read "Mode: " cl-remove-if-not #[257 "\300\301\"\207" [evil-collection--mode-file "README.org"] 4 "\n\n(fn MODE)"] directory-files expand-file-name "modes" nil "^[^.]"] 8)])#@467 Execute FORM when CONDITION becomes true, checking with HOOK. NAME specifies the name of the entry added to HOOK. If APPEND is non-nil, the entry is appended to the hook. If LOCAL is non-nil, the buffer-local value of HOOK is modified. This is a backport of `evil-delay' without the deprecation notice to deal with CI until migration can be done. Ref: https://github.com/emacs-evil/evil-collection/issues/750 (fn CONDITION FORM HOOK &optional APPEND LOCAL NAME) (defalias 'evil-collection--delay #[1539 "\300\301FF\302\"\207" [eval evil-with-delay t] 13 (#$ . 36051)])#@1214 Translate keys in the keymap(s) corresponding to STATES and MODES. Similar to `evil-collection-translate-key' but for minor modes. STATES should be the name of an evil state, a list of states, or nil. MODES should be a symbol corresponding to minor-mode to make the translations in or a list of minor-mode symbols. TRANSLATIONS corresponds to a list of key replacement pairs. For example, specifying "a" "b" will bind "a" to "b"'s definition in the keymap. Specifying nil as a replacement will unbind a key. If DESTRUCTIVE is nil, a backup of the keymap will be stored on the initial invocation, and future invocations will always look up keys in the backup keymap. When no TRANSLATIONS are given, this function will only create the backup keymap without making any translations. On the other hand, if DESTRUCTIVE is non-nil, the keymap will be destructively altered without creating a backup. For example, calling this function multiple times with "a" "b" "b" "a" would continue to swap and unswap the definitions of these keys. This means that when DESTRUCTIVE is non-nil, all related swaps/cycles should be done in the same invocation. (fn STATES MODES &rest TRANSLATIONS &key DESTRUCTIVE &allow-other-keys) (defalias 'evil-collection-translate-minor-mode-key #[642 "\300\301\"A@<\204C\262<\203\204C\262\211\205p\211@\302\303\304\"!\211\203g\211@\305\306\303\307\"!!\310\311\312\313DD\314DE\315\313D\313 D\313 D\f\257\316\317\320&\266A\266\202\202+\266A\266\202\202\207" [plist-member :destructive intern format "%S-map" symbol-name gensym "evil-collection-translate-key-in-%s" evil-collection--delay and boundp quote keymapp evil-collection--translate-minor-mode-key after-load-functions t nil] 17 (#$ . 36643)]) (byte-code "\300\301\302\303#\300\207" [function-put evil-collection-translate-minor-mode-key lisp-indent-function defun] 4)#@317 Helper function for `evil-collection-translate-minor-mode-key'. In the minor mode keymap corresponding to STATE and MODE-SYMBOL, make the key TRANSLATIONS. When DESTRUCTIVE is non-nil, make the TRANSLATIONS destructively without creating/referencing a backup keymap. (fn STATE MODE-SYMBOL TRANSLATIONS DESTRUCTIVE) (defalias 'evil-collection--translate-minor-mode-key #[1028 "\300\301\302\"!\300\301\303\203\301\304\n\"\202\305#!J\204,\306!\203,J\202=\307\203;\310\"\202<!\311\211\211\211:\203v\262\211A\262\242\262@\262\312!\204nB\262\205j\313\"B\262AA\262\202B\211\237\266\205\204\210\306!\204\210L\210\314\315\n\n$\207" [intern format "%S-map" "evil-collection-%s%s-backup-map" "-%s-state" "" boundp copy-keymap evil-get-minor-mode-keymap nil keywordp evil-lookup-key apply evil-define-minor-mode-key] 16 (#$ . 38534)])#@299 Helper function for `evil-collection-translate-key'. In the keymap corresponding to STATE and KEYMAP-SYMBOL, make the key TRANSLATIONS. When DESTRUCTIVE is non-nil, make the TRANSLATIONS destructively without creating/referencing a backup keymap. (fn STATE KEYMAP-SYMBOL TRANSLATIONS DESTRUCTIVE) (defalias 'evil-collection--translate-key #[1028 "\300\301\302\203\301\303 \"\202\304#!J\204%\305!\203%J\2027\306\2035\307\310\211$\2026!\311\211\211\211:\203p\262\211A\262\242\262@\262\312!\204hB\262\205d\313\"B\262AA\262\202<\211\237\266\205\204\202\305!\204\202L\210\314\315 $\207" [intern format "evil-collection-%s%s-backup-map" "-%s-state" "" boundp copy-keymap evil-get-auxiliary-keymap t nil keywordp evil-lookup-key apply evil-define-key*] 15 (#$ . 39424)])#@1311 Translate keys in the keymap(s) corresponding to STATES and KEYMAPS. STATES should be the name of an evil state, a list of states, or nil. KEYMAPS should be a symbol corresponding to the keymap to make the translations in or a list of keymap symbols. Like `evil-define-key', when a keymap does not exist, the keybindings will be deferred until the keymap is defined, so `with-eval-after-load' is not necessary. TRANSLATIONS corresponds to a list of key replacement pairs. For example, specifying "a" "b" will bind "a" to "b"'s definition in the keymap. Specifying nil as a replacement will unbind a key. If DESTRUCTIVE is nil, a backup of the keymap will be stored on the initial invocation, and future invocations will always look up keys in the backup keymap. When no TRANSLATIONS are given, this function will only create the backup keymap without making any translations. On the other hand, if DESTRUCTIVE is non-nil, the keymap will be destructively altered without creating a backup. For example, calling this function multiple times with "a" "b" "b" "a" would continue to swap and unswap the definitions of these keys. This means that when DESTRUCTIVE is non-nil, all related swaps/cycles should be done in the same invocation. (fn STATES KEYMAPS &rest TRANSLATIONS &key DESTRUCTIVE &allow-other-keys) (defalias 'evil-collection-translate-key #[642 "\300\301\"A@<\204C\262<\203\204C\262\211\205h\211@\211\203`\211@\302\303\304\305\"!!\306\307\310\311DD\312DE\313\311D\311D\311\fD \257\314\315\316&\266A\266\202\202$\210A\266\202\202\207" [plist-member :destructive symbol-name gensym format "evil-collection-translate-key-in-%s" evil-collection--delay and boundp quote keymapp evil-collection--translate-key after-load-functions t nil] 16 (#$ . 40253)]) (byte-code "\300\301\302\303#\300\207" [function-put evil-collection-translate-key lisp-indent-function defun] 4)#@360 Wrapper around `evil-collection-translate-key' for swapping keys. STATES, KEYMAPS, and ARGS are passed to `evil-collection-translate-key'. ARGS should consist of key swaps (e.g. "a" "b" is equivalent to "a" "b" "b" "a" with `evil-collection-translate-key') and optionally keyword arguments for `evil-collection-translate-key'. (fn STATES KEYMAPS &rest ARGS) (defalias 'evil-collection-swap-key '(macro . #[642 "\211\300\211\211\211:\203;\262\211A\262\242\262@\262B\262B\262\301!\2043B\262B\262AA\262\202\211\237\266\205\262\302BBB\207" [nil keywordp evil-collection-translate-key] 10 (#$ . 42174)])) (byte-code "\300\301\302\303#\300\207" [function-put evil-collection-swap-key lisp-indent-function defun] 4)#@400 Wrapper around `evil-collection-translate-minor-mode-key' for swapping keys. STATES, MODES, and ARGS are passed to `evil-collection-translate-minor-mode-key'. ARGS should consist of key swaps (e.g. "a" "b" is equivalent to "a" "b" "b" "a" with `evil-collection-translate-minor-mode-key') and optionally keyword arguments for `evil-collection-translate-minor-mode-key'. (fn STATES MODES &rest ARGS) (defalias 'evil-collection-swap-minor-mode-key '(macro . #[642 "\211\300\211\211\211:\203;\262\211A\262\242\262@\262B\262B\262\301!\2043B\262B\262AA\262\202\211\237\266\205\262\302BBB\207" [nil keywordp evil-collection-translate-minor-mode-key] 10 (#$ . 42921)])) (byte-code "\300\301\302\303#\300\207" [function-put evil-collection-swap-minor-mode-key lisp-indent-function defun] 4)#@244 Require the evil-collection-MODE file, but do not activate it. MODE should be a symbol. This requires the evil-collection-MODE feature without needing to manipulate `load-path'. NOERROR is forwarded to `require'. (fn MODE &optional NOERROR) (defalias 'evil-collection-require #[513 "\302!\303\304\305\"!\306\304\307\211# \"\310#)\207" [mode-name evil-collection-base-dir symbol-name intern format "evil-collection-%s" expand-file-name "modes/%s/evil-collection-%s" require] 8 (#$ . 43741)])#@376 Register the Evil bindings for all modes in `evil-collection-mode-list'. Alternatively, you may register select bindings manually, for instance: (with-eval-after-load ='calendar (evil-collection-calendar-setup)) If MODES is specified (as either one mode or a list of modes), use those modes instead of the modes in `evil-collection-mode-list'. (fn &optional MODES) (defalias 'evil-collection-init #[256 "\302 \210\211\203\211<\204\211C\262\202\262\211\211\203O\211@\211CC<\203/@\240\210A\262\211\211\203F\211@\303\304\305\"\"\210A\266\202\2020\266A\266\202\202\210 \205Z\306\307!\210\310 \207" [evil-collection-mode-list evil-collection-want-unimpaired-p evil-collection-maybe-display-startup-warning eval-after-load make-closure #[0 "\303\300\242!\210\304\305\306\300\242!\307Q! \210\3101 \304\311\312\300\242\"!J0\202\"\210\313 \204.\300\242\n>?\2054\314\315\300\242#\207" [V0 evil-collection-always-run-setup-hook-after-load evil-collection--modes-with-delayed-setup evil-collection-require intern "evil-collection-" symbol-name "-setup" (error) format "evil-collection-%s-maps" nil run-hook-with-args evil-collection-setup-hook] 5] evil-collection-require unimpaired evil-collection-unimpaired-setup] 12 (#$ . 44247) nil])#@587 Register the Evil bindings for all modes in `evil-collection-mode-list'. ----------------------EXPERIMENTAL------------------------------------------ This is a special wrapper over `evil-collection-init' that respects configuration from `evil-collection-config'. This function is experimental, so don't use if you don't want breakages or API changes. If MODES is specified (as either one mode or a list of modes), use those modes instead of the modes in `evil-collection-mode-list'. ----------------------EXPERIMENTAL------------------------------------------ (fn &optional MODES) (defalias 'evil-collection-setup #[256 "\211\203\211<\204\211C\262\202\262 \303C\303C\211\203S\211@\304A\305\"\211\2036@B\242B\240\266\202L\304A\306\"\211\203J@B\242B\240\210\266A\266\202\202\210\307\310\311#\"\312!\266\313\314\315\316\317\242\"\"!\210\242\211\203\225\211@\211@A\320\247\203\203\202\204\n\303\321\312C\"#\266A\266\202\202o\210\211\242\211\205\341\211@\211@A\322!\323\324\"\203\260\202\265\325\324P!\262:\203\301@\202\302\325\314\326\"!\327\310\330\n$\"\210\331\"\266A\266\202\202\230\207" [evil-collection-mode-list evil-collection-config evil-collection-defer-delay nil plist-get :hook :defer cl-remove-if make-closure #[257 "\302\303\304\300\301$:\203\202C\"\207" [V0 V1 cl-some make-closure #[257 "\211\302\242\236\211\205 \211\300\240\210\303\262\206!\211\301\242\236\211\205\211\300\240\210\303\262\207" [V0 V1 V2 t] 4 "\n\n(fn M)"]] 7 "\n\n(fn MODE)"] evil-collection-init message format "Deferring: %S" mapcar car run-with-idle-timer apply-partially symbol-name string-suffix-p "-hook" intern "evil-collection--init-%s" defalias #[0 "\303\301\300\"\210\304\302C!\207" [V0 V1 V2 remove-hook evil-collection-init] 3] add-hook] 18 (#$ . 45523)])#@27 List of delete operators. (defvar evil-collection-delete-operators '(evil-delete evil-cp-delete evil-sp-delete lispyville-delete) (#$ . 47369))#@25 List of yank operators. (defvar evil-collection-yank-operators '(evil-yank evil-cp-yank evil-sp-yank lispyville-yank) (#$ . 47518)) (defalias 'evil-collection-evil-search-enabled #[0 "\301=\207" [evil-search-module evil-search] 2]) (defvar evil-collection-evil-search-forward (list 'menu-item "" nil :filter #[256 "\301=\203\302\207\303\207" [evil-search-module evil-search evil-ex-search-forward evil-search-forward] 3 "\n\n(fn &optional _)"])) (defvar evil-collection-evil-search-backward (list 'menu-item "" nil :filter #[256 "\301=\203\302\207\303\207" [evil-search-module evil-search evil-ex-search-backward evil-search-backward] 3 "\n\n(fn &optional _)"])) (defvar evil-collection-evil-search-next (list 'menu-item "" nil :filter #[256 "\301=\203\302\207\303\207" [evil-search-module evil-search evil-ex-search-next evil-search-next] 3 "\n\n(fn &optional _)"])) (defvar evil-collection-evil-search-previous (list 'menu-item "" nil :filter #[256 "\301=\203\302\207\303\207" [evil-search-module evil-search evil-ex-search-previous evil-search-previous] 3 "\n\n(fn &optional _)"]))#@128 Events under which `evil-collection-unmap' will not descend. These are UI keymaps where removing entries is rarely the intent. (defvar evil-collection-unmap-skip-events '(menu-bar tool-bar tab-bar tab-line header-line mode-line) (#$ . 48622))#@1065 Completely unmap THINGS from MAP-SYM. MAP-SYM is a symbol bound to a keymap. If MAP-SYM is not yet bound to a keymap, the operation is deferred via `after-load-functions', matching the deferral behaviour of `evil-collection-define-key'. Each thing in THINGS is one of: - A command symbol — every binding pointing to that command anywhere in the keymap is removed (TAB, RET, C-c TAB, evil-state bindings, [remap ...] entries, etc.). - A key description string accepted by `kbd' (e.g. "RET", "a", "", "TAB", "C-c C-c") — the binding at that exact key sequence is removed at the top level and inside every evil-state auxiliary keymap. - A key vector — same as a key description, already parsed. Removals use `define-key' with REMOVE set, so bindings are deleted entirely, not just shadowed with nil. Parent keymaps installed via `set-keymap-parent' are not modified, and sub-keymaps stored under events in `evil-collection-unmap-skip-events' (menu-bar, tool-bar, etc.) are not descended into. (fn MAP-SYM &rest THINGS) (defalias 'evil-collection-unmap #[385 "\300!\203\301J!\203\302J\"\207\300!\203\303\304\"\207\305\306\"\307!\211\310\311\312\313\300\314\nDD\301\nDE\315\316\317DE\320\321\302\322\314DD\314 DE\323\324\305\325\"\326BBDFFEM\210\327\330\331#\207" [boundp keymapp evil-collection--unmap user-error "evil-collection-unmap: %s is not a keymap" format "evil-collection-unmap-in-%s" make-symbol lambda (&rest _) when and quote remove-hook 'after-load-functions function condition-case-unless-debug err symbol-value error message "evil-collection-unmap: error unmapping in %s %%S" (err) add-hook after-load-functions t] 18 (#$ . 48872)]) (byte-code "\300\301\302\303#\300\207" [function-put evil-collection-unmap lisp-indent-function defun] 4)#@60 Workhorse for `evil-collection-unmap'. (fn KEYMAP THINGS) (defalias 'evil-collection--unmap #[514 "\300C\300\211\203F\211@\211\203?\2119\203\242B\240\210\202?\301!\203+\211B\262\202?\211;\203:\302!B\262\202?\303\304\"\210A\266\202\202\210\242\203\203\300C\305\306\307\310##\210\211\311\242\312\"\240\210\211\242\211\203\201\211@\3131y\314\300\315$0\210\202z\210A\266\202\202c\266\211\211\205\337\211@\3161\232\314\300\315$0\210\202\233\210A\211\203\327\211@\211:\203\320\211@9\203\320\317A!\203\320\320\321\322@!\"\203\320\3231\317\314A\300\315$0\210\202\320\210A\266\202\202\235\210A\266\202\202\204\207" [nil vectorp kbd user-error "evil-collection-unmap: cannot unmap %S" evil-collection--walk-keymap-shallow #1=[] make-closure #[514 "\211:\203\211\242\302=\203\3038\202\211\211\301\242>\205\"\300\304!\300\242B\240\207" [V0 V1 menu-item 2 copy-sequence] 6 "\n\n(fn KEY-VEC BINDING)"] sort #[514 "GGV\207" #1# 4 "\n\n(fn A B)"] (error) define-key t (error) keymapp string-suffix-p "-state" symbol-name (error)] 13 (#$ . 50699)])#@232 Walk KEYMAP under PREFIX, calling FN with (KEY-VEC BINDING). Stops at the parent-keymap boundary (does NOT follow inherited keymaps). Skips sub-keymaps whose event is in `evil-collection-unmap-skip-events'. (fn KEYMAP PREFIX FN) (defalias 'evil-collection--walk-keymap-shallow #[771 "A\211\205\201\211\242\300=?\205\201\211@\211;\204y\301!\203)\302\303\304#\"\266\202z\305!\203U\306GW\203PH\211\203H\307  $\210\210T\262\2022\266\202z\211:\203y\211@A\211:\203n\211@;\203n\211A\202o\211\307  $\266\210\211A\262\202\207" [keymap char-table-p map-char-table make-closure #[514 "\211\205>\302!\203\303\301\300$\207:\205>\302@!\205>\302A!\205>@AX\205<\303\301\300$\210T\262\202(\266\202\207" [V0 V1 characterp evil-collection--walk-keymap-entry] 9 "\n\n(fn EV BINDING)"] vectorp 0 evil-collection--walk-keymap-entry] 13 (#$ . 51810)])#@100 Dispatch on BINDING type for `evil-collection--walk-keymap-shallow'. (fn EVENT BINDING PREFIX FN) (defalias 'evil-collection--walk-keymap-entry #[1028 "\301\302!\">\206=\303!\203\304#\207:\2035\242\305=\2035\303\3068!\2035\304\3068#\207\205=\"\207" [evil-collection-unmap-skip-events vconcat vector keymapp evil-collection--walk-keymap-shallow menu-item 2] 9 (#$ . 52712)]) (provide 'evil-collection)