;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\316\317DD\320\321\322%\207" [require cl-lib ring custom-declare-group avy nil "Jump to things tree-style." :group convenience :prefix "avy-" custom-declare-variable avy-keys funcall function #[0 "\300\207" [(97 115 100 102 103 104 106 107 108)] 1] "Default keys for jumping.\nAny key is either a character representing a self-inserting\nkey (letters, digits, punctuation, etc.) or a symbol denoting a\nnon-printing key like an arrow key (left, right, up, down). For\nnon-printing keys, a corresponding entry in\n`avy-key-to-char-alist' must exist in order to visualize the key\nin the avy overlays.\n\nIf `avy-style' is set to words, make sure there are at least three\nkeys different than the following: a, e, i, o, u, y" :type (repeat :tag "Keys" (choice (character :tag "char") (symbol :tag "non-printing key")))] 8) (defconst avy--key-type '(choice :tag "Command" (const avy-goto-char) (const avy-goto-char-2) (const avy-isearch) (const avy-goto-line) (const avy-goto-subword-0) (const avy-goto-subword-1) (const avy-goto-word-0) (const avy-goto-word-1) (const avy-copy-line) (const avy-copy-region) (const avy-move-line) (const avy-move-region) (const avy-kill-whole-line) (const avy-kill-region) (const avy-kill-ring-save-whole-line) (const avy-kill-ring-save-region) (function :tag "Other command"))) (byte-code "\301\302\303\304\305DD\306\307\310\311\312BBB%\210\301\313\303\304\314DD\315\307\310\311\316BBB%\210\301\317\303\304\320DD\321\307\322%\210\301\323\303\304\324DD\325\307\326%\210\301\327\303\304\330DD\331\307\332%\210\301\333\303\304\334DD\335\307\336%\210\301\337\303\304\340DD\341\307\342%\210\301\343\303\304\344DD\345\307\346%\210\301\347\303\304\350DD\351\307\342%\210\301\352\303\304\353DD\354\307\355%\210\301\356\303\304\357DD\360\307\361%\210\301\362\303\304\363DD\364\307\365%\210\301\366\303\304\367DD\370\307\342%\210\301\371\303\304\372DD\373\307\365%\210\301\374\303\304\375DD\376\307\365%\207" [avy--key-type custom-declare-variable avy-keys-alist funcall function #[0 "\300\207" [nil] 1] "Alist of avy-jump commands to `avy-keys' overriding the default `avy-keys'." :type alist :key-type (:value-type (repeat :tag "Keys" character)) avy-orders-alist #[0 "\300\207" [((avy-goto-char . avy-order-closest))] 1] "Alist of candidate ordering functions.\nUsually, candidates appear in their point position order." (:value-type function) avy-words #[0 "\300\207" [("am" "by" "if" "is" "it" "my" "ox" "up" "ace" "act" "add" "age" "ago" "aim" "air" "ale" "all" "and" "ant" "any" "ape" "apt" "arc" "are" "arm" "art" "ash" "ate" "awe" "axe" "bad" "bag" "ban" "bar" "bat" "bay" "bed" "bee" "beg" "bet" "bid" "big" "bit" "bob" "bot" "bow" "box" "boy" "but" "cab" "can" "cap" "car" "cat" "cog" "cop" "cow" "cry" "cup" "cut" "day" "dew" "did" "die" "dig" "dim" "dip" "dog" "dot" "dry" "dub" "dug" "dye" "ear" "eat" "eel" "egg" "ego" "elf" "eve" "eye" "fan" "far" "fat" "fax" "fee" "few" "fin" "fit" "fix" "flu" "fly" "foe" "fog" "for" "fox" "fry" "fun" "fur" "gag" "gap" "gas" "gel" "gem" "get" "gig" "gin" "gnu" "god" "got" "gum" "gun" "gut" "guy" "gym" "had" "hag" "ham" "has" "hat" "her" "hid" "him" "hip" "his" "hit" "hop" "hot" "how" "hub" "hue" "hug" "hut" "ice" "icy" "imp" "ink" "inn" "ion" "ire" "ivy" "jab" "jam" "jar" "jaw" "jet" "job" "jog" "joy" "key" "kid" "kit" "lag" "lap" "lay" "let" "lid" "lie" "lip" "lit" "lob" "log" "lot" "low" "mad" "man" "map" "mat" "may" "men" "met" "mix" "mob" "mop" "mud" "mug" "nag" "nap" "new" "nil" "nod" "nor" "not" "now" "nun" "oak" "odd" "off" "oil" "old" "one" "orb" "ore" "ork" "our" "out" "owl" "own" "pad" "pan" "par" "pat" "paw" "pay" "pea" "pen" "pet" "pig" "pin" "pit" "pod" "pot" "pry" "pub" "pun" "put" "rag" "ram" "ran" "rat" "raw" "ray" "red" "rib" "rim" "rip" "rob" "rod" "rot" "row" "rub" "rug" "rum" "run" "sad" "sat" "saw" "say" "sea" "see" "sew" "she" "shy" "sin" "sip" "sit" "six" "ski" "sky" "sly" "sob" "son" "soy" "spy" "sum" "sun" "tab" "tad" "tag" "tan" "tap" "tar" "tax" "tea" "the" "tie" "tin" "tip" "toe" "ton" "too" "top" "toy" "try" "tub" "two" "urn" "use" "van" "war" "was" "wax" "way" "web" "wed" "wet" "who" "why" "wig" "win" "wit" "woe" "won" "wry" "you" "zap" "zip" "zoo")] 1] "Words to use in case `avy-style' is set to `words'.\nEvery word should contain at least one vowel i.e. one of the following\ncharacters: a, e, i, o, u, y\nThey do not have to be sorted but no word should be a prefix of another one." (repeat string) avy-style #[0 "\300\207" [at-full] 1] "The default method of displaying the overlays.\nUse `avy-styles-alist' to customize this per-command." (choice (const :tag "Pre" pre) (const :tag "At" at) (const :tag "At Full" at-full) (const :tag "Post" post) (const :tag "De Bruijn" de-bruijn) (const :tag "Words" words)) avy-styles-alist #[0 "\300\207" [nil] 1] "Alist of avy-jump commands to the style for each command.\nIf the commands isn't on the list, `avy-style' is used." (alist :key-type (choice :tag "Command" (const avy-goto-char) (const avy-goto-char-2) (const avy-isearch) (const avy-goto-line) (const avy-goto-subword-0) (const avy-goto-subword-1) (const avy-goto-word-0) (const avy-goto-word-1) (const avy-copy-line) (const avy-copy-region) (const avy-move-line) (const avy-move-region) (const avy-kill-whole-line) (const avy-kill-region) (const avy-kill-ring-save-whole-line) (const avy-kill-ring-save-region) (function :tag "Other command")) :value-type (choice (const :tag "Pre" pre) (const :tag "At" at) (const :tag "At Full" at-full) (const :tag "Post" post) (const :tag "De Bruijn" de-bruijn) (const :tag "Words" words))) avy-dispatch-alist #[0 "\300\207" [((120 . avy-action-kill-move) (88 . avy-action-kill-stay) (116 . avy-action-teleport) (109 . avy-action-mark) (110 . avy-action-copy) (121 . avy-action-yank) (89 . avy-action-yank-line) (105 . avy-action-ispell) (122 . avy-action-zap-to-char))] 1] "List of actions for `avy-handler-default'.\n\nEach item is (KEY . ACTION). When KEY not on `avy-keys' is\npressed during the dispatch, ACTION is set to replace the default\n`avy-action-goto' once a candidate is finally selected." (alist :key-type (choice (character :tag "Char")) :value-type (choice (const :tag "Mark" avy-action-mark) (const :tag "Copy" avy-action-copy) (const :tag "Kill and move point" avy-action-kill-move) (const :tag "Kill" avy-action-kill-stay))) avy-background #[0 "\300\207" [nil] 1] "When non-nil, a gray background will be added during the selection." boolean avy-all-windows #[0 "\300\207" [t] 1] "Determine the list of windows to consider in search of candidates." (choice (const :tag "All Frames" all-frames) (const :tag "This Frame" t) (const :tag "This Window" nil)) avy-case-fold-search #[0 "\300\207" [t] 1] "Non-nil if searches should ignore case." avy-word-punc-regexp #[0 "\300\207" [#1="[!-/:-@[-`{-~]"] 1 #1#] "Regexp of punctuation chars that count as word starts for `avy-goto-word-1.\nWhen nil, punctuation chars will not be matched.\n\n\"[!-/:-@[-`{-~]\" will match all printable punctuation chars." regexp avy-goto-word-0-regexp #[0 "\300\207" [#2="\\b\\sw"] 1 #2#] "Regexp that determines positions for `avy-goto-word-0'." (choice (const :tag "Default" "\\b\\sw") (const :tag "Symbol" "\\_<\\(\\sw\\|\\s_\\)") (const :tag "Not whitespace" "[^ \n ]+") (regexp :tag "Regex")) avy-ignored-modes #[0 "\300\207" [(image-mode doc-view-mode pdf-view-mode)] 1] "List of modes to ignore when searching for candidates.\nTypically, these modes don't use the text representation." list avy-single-candidate-jump #[0 "\300\207" [t] 1] "In case there is only one candidate jumps directly to it." avy-del-last-char-by #[0 "\300\207" [(8 127)] 1] "List of event types, i.e. key presses, that delete the last\ncharacter read. The default represents `C-h' and `DEL'. See\n`event-convert-list'." avy-escape-chars #[0 "\300\207" [(27 7)] 1] "List of characters that quit avy during `read-char'."] 9) #@36 Hold the window and point history. (defvar avy-ring (make-ring 20) (#$ . 8056)) #@137 Function to translate user input key into another key. For example, to make SPC do the same as ?a, use (lambda (c) (if (= c 32) ?a c)). (defvar avy-translate-char-function 'identity (#$ . 8143)) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\300\307\310\311#\210\300\312\313\314#\210\300\315\316\317#\210\300\320\321\322#\207" [custom-declare-face avy-lead-face-0 ((t (:foreground "white" :background "#4f57f9"))) "Face used for first non-terminating leading chars." avy-lead-face-1 ((t (:foreground "white" :background "gray"))) "Face used for matched leading chars." avy-lead-face-2 ((t (:foreground "white" :background "#f86bf3"))) "Face used for leading chars." avy-lead-face ((t (:foreground "white" :background "#e52b50"))) "Face used for the leading chars." avy-background-face ((t (:foreground "gray40"))) "Face for whole window background during selection." avy-goto-char-timer-face ((t (:inherit highlight))) "Face for matches during reading chars using `avy-goto-char-timer'."] 4) #@43 Face sequence for `avy--overlay-at-full'. (defconst avy-lead-faces '(avy-lead-face avy-lead-face-0 avy-lead-face-2 avy-lead-face avy-lead-face-0 avy-lead-face-2) (#$ . 9149)) #@197 An alist from non-character keys to printable chars used in avy overlays. This alist must contain all keys used in `avy-keys' which are not self-inserting keys and thus aren't read as characters. (defvar avy-key-to-char-alist '((left . 9664) (right . 9654) (up . 9650) (down . 9660) (prior . 9651) (next . 9661)) (#$ . 9331)) #@60 Remove LST's first N elements and return them. (fn LST N) (defalias 'avy-multipop '(macro . #[514 "\300\301\302DE\303\304\305BBE\303\306\307\310D\303\n\304\f\307 EEEE\311BBEF\207" [if <= length prog1 setq (nil) setcdr nthcdr 1- (nil)] 17 (#$ . 9663)])) #@81 De Bruijn sequence for alphabet KEYS and subsequences of length N. (fn KEYS N) (defalias 'avy--de-bruijn #[514 "G\300_\301\"\302C\302C\211\303\304&\240\210\211\242\305\211\"\210\306\303\307\"\242\"\207" [make-list 0 nil make-closure #[514 "\300V\203\300\246\305=\205V\303\306\303\242\307\302\310T#\"\240\207\302\233\211Z\3028\240\266\304\242T\"\210Z\3028T\301SX\203S\302\233\211\240\266\304\242T\"\210T\262\2027\266\311\207" [V0 V1 V2 V3 V4 0 append cl-subseq 1 nil] 9 "\n\n(fn T P)"] 1 mapcar #[257 "\211\3008\207" [V0] 3 "\n\n(fn N)"]] 14 (#$ . 9936)]) #@127 Build a De Bruin sequence from LST. SEQ-LEN is how many elements of KEYS it takes to identify a match. (fn LST SEQ-LEN KEYS) (defalias 'avy--path-alist-1 #[771 "\300\"C\301\211\211\211\211\242\302\242\303 S#\244\240\210\304\203\304@\211@\250\203,\211@\202<\211@:\2038\211@@\202<\305\306\"A\203\222\211=\203QZ\202R\303\211\303V\203\207\211\fW\203\207 S\n\2428\203\207\307\302 \"\302\f\242\303#\"\303=\204\207 \211\242A\240\210\202_\f \"\262\202\230 \n\"\211\204\247\301\262 \301\262\266\202\211 @BB\262\262 \211\262\262\fA\262 \266\202\210\211\237\207" [avy--de-bruijn nil cl-subseq 0 #[514 "S\2428\205\300\242\301#\211\242A\240\210\207" [cl-subseq 0] 6 "\n\n(fn SEQ-LEN DB-SEQ)"] error "Unexpected match representation: %s" cl-search] 19 (#$ . 10543)]) #@10 (fn X) (defalias 'avy-order-closest #[257 "\300@\247\203\f@\202@@`Z!\207" [abs] 4 (#$ . 11376)]) #@74 Store the current command symbol. E.g. 'avy-goto-line or 'avy-goto-char. (defvar avy-command nil (#$ . 11487)) #@144 Coerce LST into a balanced tree. The degree of the tree is the length of KEYS. KEYS are placed appropriately on internal nodes. (fn LST KEYS) (defalias 'avy-tree #[514 "\211G \236A\211\203\302\303\304$\202\305C\211\306\307$\240\210\211\242!\207" [avy-command avy-orders-alist cl-sort < :key nil make-closure #[257 "\211G\211\301W\203\303\300\304\305\"\"\207\306\300!\307\310\301\"\211\203e\211@\211A\262\242\311=\2036\312\211A\262 \242B\202Y\302\242GX\203H\307\262 \202XS  \233\262 \233\307\241\210!BB\262A\266\202\202\210\211\237\207" [V0 V1 V2 cl-pairlis mapcar #[257 "\300B\207" [leaf] 3 "\n\n(fn X)"] copy-sequence nil avy-subdiv 1 leaf] 13 "\n\n(fn LS)"]] 12 (#$ . 11605)]) #@54 Distribute N in B terms in a balanced way. (fn N B) (defalias 'avy-subdiv #[514 "\300\301\"\302\\!S\303\"_Z\211Z\245ZS\304\305\" _Z_ZC\305\"#\207" [floor log 1e-06 expt append make-list] 14 (#$ . 12336)]) #@262 Traverse TREE generated by `avy-tree'. WALKER is a function that takes KEYS and LEAF. RECUR-KEY is used in recursion. LEAF is a member of LST argument of `avy-tree'. KEYS is the path from the root of `avy-tree' to LEAF. (fn TREE WALKER &optional RECUR-KEY) (defalias 'avy-traverse #[770 "\211\205.\211@\211@BA@\300=\203AA\"\266\202'\301A#\266A\266\202\202\207" [leaf avy-traverse] 10 (#$ . 12574)]) #@40 Function to call at the end of select. (defvar avy-action nil (#$ . 13002)) #@48 The default handler for a bad CHAR. (fn CHAR) (defalias 'avy-handler-default #[257 "\304\305\"\211\262\203 \306=\204\211A\307\310\311\"\207 >\203$\307\310\312\"\207\313=\2032\314 \210\307\310\311\"\207\315!\203?\316\317\320D\"\207\321\322\323!\203M\324!\202N\"\207" [avy-dispatch-alist avy-style avy-action avy-escape-chars nil assoc words throw done restart abort 63 avy-show-dispatch-help mouse-event-p signal user-error "Mouse event not handled" message "No such candidate: %s, hit `C-g' to quit." characterp string] 6 (#$ . 13084)]) #@40 Display action shortucts in echo area. (defalias 'avy-show-dispatch-help #[0 "\301\302\303\304\305\306\"\307#\"\207" [avy-dispatch-alist 11 message "%s" mapconcat make-closure #[257 "\301\302\303\304@!\305\306#\307A!\300\310O#\207" [V0 format "%s: %s" propertize char-to-string face aw-key-face symbol-name nil] 7 "\n\n(fn X)"] " "] 7 (#$ . 13648)]) #@56 A function to call for a bad `read-key' in `avy-read'. (defvar avy-handler-function 'avy-handler-default (#$ . 14008)) #@54 Store the current incomplete path during `avy-read'. (defvar avy-current-path "" (#$ . 14133)) #@133 If CHAR is a mouse event, return the window of the event if any or the selected window. Return nil if not a mouse event. (fn CHAR) (defalias 'avy-mouse-event-window #[257 "\300!\2050\301\302!\211@\262!\203\302!\211@\207\303\302!\211@\262!\203.\304\302!\211@\262!\207\305 \207" [mouse-event-p windowp event-start framep frame-selected-window selected-window] 4 (#$ . 14235)]) #@369 Select a leaf from TREE using consecutive `read-key'. DISPLAY-FN should take CHAR and LEAF and signify that LEAFs associated with CHAR will be selected if CHAR is pressed. This is commonly done by adding a CHAR overlay at LEAF position. CLEANUP-FN should take no arguments and remove the effects of multiple DISPLAY-FN invocations. (fn TREE DISPLAY-FN CLEANUP-FN) (defalias 'avy-read #[771 "\3032|\304\205{\305C\306\307\310\"\"\210\211\242\211\203*\211@@A\"\210A\266\202\202\266 \311 !\305\211 \210\312!\211\262\203I\313\303B\"\266\202\314\"\211\262\203r\315\316!!P\211A\211\262@\317=\203v\313\303A\"\266\202\n!\210\266\2020\207" [avy-current-path avy-translate-char-function avy-handler-function done "" nil avy-traverse make-closure #[514 "\300B\300\242B\240\207" [V0] 5 "\n\n(fn PATH LEAF)"] read-key avy-mouse-event-window throw assoc string avy--key-to-char leaf] 10 (#$ . 14630)]) #@53 Select from LST dispatching on KEYS. (fn LST KEYS) (defalias 'avy-read-de-bruijn #[514 "\3032|\304\305GG\"!\306#\211\204#T\262\306#\262\202\211@@G\307\310\211W\203v\311!\211\203I\211@\312\311@!A\"\210A\266\202\2023\210 \313 !\314 \210\315\316\317\320\321\"\"\"\262\322\323!!PT\262\204r\n!\210\210\202*@A\266\2040\207" [avy-current-path avy-translate-char-function avy-handler-function done ceiling log avy--path-alist-1 0 "" reverse avy--overlay-at-full read-key avy--remove-leading-chars delq nil mapcar make-closure #[257 "\211@@\300=\205\211@AAB\207" [V0] 3 "\n\n(fn X)"] string avy--key-to-char] 13 (#$ . 15571)]) #@46 Select from LST using WORDS. (fn LST WORDS) (defalias 'avy-read-words #[514 "\3042\361\211GG\305W\203z\306\307Z\305\211\2033\211@\211>\203,\310\311\"\262A\266\202\202\210G\312W\203@\313\314\315\"\210\211\204TT\262\316\n#\262\202@S\211\262\317Y\203x\320\321@@\305#\322\n!\211AB\241\266\211A\262\202T\266\211\203\232\211@\211A\262\242\323\305\"\262BB\262A\266\202\202{\210\324\211G\307V\204\252\211@@\203\353\325!\211\203\303\211@\326\325@!A\"\210A\266\202\202\255\210\n\327 !\330 \210\310\305\331\332\333\"\"\"\262 \321\334!!P\204\347 !\210\210\202\235\211@A\266\2030\207" [avy-keys avy-current-path avy-translate-char-function avy-handler-function done nil (97 101 105 111 117 121) 1 delq 97 3 signal user-error ("Please add more keys to the variable `avy-keys'.") avy--path-alist-1 0 mapconcat string last append "" reverse avy--overlay-at-full read-key avy--remove-leading-chars mapcar make-closure #[257 "\211@@\300=\205\211@AAB\207" [V0] 3 "\n\n(fn X)"] avy--key-to-char] 15 (#$ . 16237)]) #@58 Return a list of windows depending on `avy-all-windows'. (defalias 'avy-window-list #[0 "\301\267\202\302\303\304 \"\207\303 \207\204\305 C\207\306\307\"\207" [avy-all-windows #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (all-frames 6 t 12)) cl-mapcan window-list frame-list selected-window error "Unrecognized option: %S"] 3 (#$ . 17312)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable avy-all-windows-alt funcall function #[0 "\300\207" [nil] 1] "The alternative `avy-all-windows' for use with \\[universal-argument]." :type (choice (const :tag "Current window" nil) (const :tag "All windows on the current frame" t) (const :tag "All windows on all frames" all-frames))] 6) #@100 Depending on FLIP and `avy-all-windows' run BODY in each or selected window. (fn FLIP &rest BODY) (defalias 'avy-dowindows '(macro . #[385 "\300\301\302\303BBDC\304\305\306\307\310\311BBEEE\207" [let avy-all-windows if (avy-all-windows-alt avy-all-windows) dolist (wnd (avy-window-list)) with-selected-window wnd unless (memq major-mode avy-ignored-modes)] 11 (#$ . 18074)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put avy-dowindows lisp-indent-function 1 put edebug-form-spec (form body)] 5) #@80 Stub to hold last avy command. Commands using `avy-with' macro can be resumed. (defalias 'avy-resume #[0 "\300\207" [nil] 1 (#$ . 18600) nil]) #@126 Set `avy-keys' according to COMMAND and execute BODY. Set `avy-style' according to COMMAND as well. (fn COMMAND &rest BODY) (defalias 'avy-with '(macro . #[385 "\300\301\302\303\304\305D\306BBD\307BBD\310\302\303\304\305D\311BBD\312BBD\313\305DDE\314\315\316\317\320\321 \322=\203;A\202=BBBEBBBB\207" [let avy-keys or cdr assq quote (avy-keys-alist) (avy-keys) avy-style (avy-styles-alist) (avy-style) avy-command (setq avy-action nil) setf (symbol-function 'avy-resume) lambda nil (interactive) avy-goto-char-timer] 12 (#$ . 18750)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put avy-with lisp-indent-function 1 put edebug-form-spec (form body)] 5) #@19 Goto PT. (fn PT) (defalias 'avy-action-goto #[257 "\300\301 !\211\302 \232\204\303!\210\304!\210b\207" [window-frame selected-window selected-frame select-frame-set-input-focus raise-frame] 4 (#$ . 19442)]) (defalias 'avy-forward-item #[0 "\301=\203\f\302\210\202\303 \210`\207" [avy-command avy-goto-line nil forward-sexp] 2]) #@27 Mark sexp at PT. (fn PT) (defalias 'avy-action-mark #[257 "\211b\210\300`!\210\301 \207" [set-mark avy-forward-item] 3 (#$ . 19787)]) #@36 Copy sexp starting on PT. (fn PT) (defalias 'avy-action-copy #[257 "\212\301b\210\302 \210`{\262\303!\210\304\305\"\266)\306\307\"\310\311A!!\210\312A!\210\211@b\207" [avy-ring nil avy-forward-item kill-new message "Copied: %s" ring-ref 0 select-frame-set-input-focus window-frame select-window] 5 (#$ . 19928)]) #@57 Yank sexp starting at PT at the current point. (fn PT) (defalias 'avy-action-yank #[257 "\300!\210\301 \210\302\207" [avy-action-copy yank t] 3 (#$ . 20257)]) #@57 Yank sexp starting at PT at the current point. (fn PT) (defalias 'avy-action-yank-line #[257 "\301\302!)\207" [avy-command avy-goto-line avy-action-yank] 3 (#$ . 20424)]) #@42 Kill sexp at PT and move there. (fn PT) (defalias 'avy-action-kill-move #[257 "\211b\210\300 \210\301`\"\210\302\303\304\305!\"\210`\207" [avy-forward-item kill-region message "Killed: %s" current-kill 0] 5 (#$ . 20604)]) #@27 Kill sexp at PT. (fn PT) (defalias 'avy-action-kill-stay #[257 "\212\211b\210\301 \210\302`\"\210\303 \210)\304\305\306\307!\"\210\310\311\307\"A!\210\312\207" [avy-ring avy-forward-item kill-region just-one-space message "Killed: %s" current-kill 0 select-window ring-ref t] 5 (#$ . 20834)]) #@36 Kill from point up to PT. (fn PT) (defalias 'avy-action-zap-to-char #[257 "\211`V\203 \300`\"\207\300`\"\207" [kill-region] 4 (#$ . 21136)]) #@71 Kill sexp starting on PT and yank into the current location. (fn PT) (defalias 'avy-action-teleport #[257 "\301!\210\302\303\304\"A!\210\212\305 \210)\306\207" [avy-ring avy-action-kill-stay select-window ring-ref 0 yank t] 5 (#$ . 21287)]) (byte-code "\300\301\302\303\304DD\305\306\303%\207" [custom-declare-variable avy-flyspell-correct-function funcall function #[0 "\300\207" [flyspell-correct-word-before-point] 1] "Function called to correct word by `avy-action-ispell' when\n`flyspell-mode' is enabled." :type] 6) #@35 Auto correct word at PT. (fn PT) (defalias 'avy-action-ispell #[257 "\212\211b\210\304=\203\305\306 \307 \"\202D\310\301!\203\" \203\"\n \202D\311\312\313!)\262\2033\314 \202D\315v\210\311\312\313!)\262\205D\314 )\207" [avy-command flyspell-mode avy-flyspell-correct-function inhibit-changing-match-data avy-goto-line ispell-region line-beginning-position line-end-position boundp "\\b" t looking-at ispell-word -1] 4 (#$ . 21818)]) #@49 Function to call before `avy-action' is called. (defvar avy-pre-action 'avy-pre-action-default (#$ . 22274)) #@12 (fn RES) (defalias 'avy-pre-action-default #[257 "\300 \210\211:\205$\301A!\205$\211A\302!\211\303 \232\204\304!\210\305!\266\202\207" [avy-push-mark windowp window-frame selected-frame select-frame-set-input-focus select-window] 5 (#$ . 22389)]) #@51 (fn CANDIDATES OVERLAY-FN &optional CLEANUP-FN) (defalias 'avy--process-1 #[770 "G\211\304U\203\n\305\207\211\306U\203\203@\207\307\216\310\311 !\210 \312\267\2022\313\n\"\202>\314 \"\202>\315\316\n\"\206=\317#)\207" [avy-single-candidate-jump avy-style avy-keys avy-words 0 nil 1 #[0 "\300 \207" [avy--done] 1] avy--make-backgrounds avy-window-list #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (de-bruijn 36 words 43)) avy-read-de-bruijn avy-read-words avy-read avy-tree avy--remove-leading-chars] 8 (#$ . 22652)]) #@32 Store the last candidate list. (defvar avy-last-candidates nil (#$ . 23233)) #@17 (fn ADVANCER) (defalias 'avy--last-candidates-cycle #[257 "\301\302\"\303\304\305\306\"\"\307\310\311\"\"\")\207" [avy-last-candidates cl-remove-if-not #[257 "\211A\300 \232\207" [selected-window] 3 "\n\n(fn X)"] apply min mapcar #[257 "\300@@`Z!\207" [abs] 4 "\n\n(fn X)"] cl-position-if make-closure #[257 "\211@@`Z\300U\207" [V0] 3 "\n\n(fn X)"]] 6 (#$ . 23316)]) #@54 Go to the previous candidate of the last `avy-read'. (defalias 'avy-prev #[0 "\300\301!\207" [avy--last-candidates-cycle #[514 "\300V\205 S8@@b\207" [0] 4 "\n\n(fn POS LST)"]] 2 (#$ . 23700) nil]) #@50 Go to the next candidate of the last `avy-read'. (defalias 'avy-next #[0 "\300\301!\207" [avy--last-candidates-cycle #[514 "GSW\205T8@@b\207" [] 4 "\n\n(fn POS LST)"]] 2 (#$ . 23907) nil]) #@238 Select one of CANDIDATES using `avy-read'. Use OVERLAY-FN to visualize the decision overlay. CLEANUP-FN should take no arguments and remove the effects of multiple OVERLAY-FN invocations. (fn CANDIDATES &optional OVERLAY-FN CLEANUP-FN) (defalias 'avy-process #[769 "\206\304!\262\211\206\305\262@:\203\306@A!\204$\307\310\"\262\311!\311!\312#\211\204J\313=\203D\203D\314#\207\315\316!\210\317\207\211\320\267\202Z\314#\207\317\207\321\207\n!\210\211@\262 \206g\322:\203q@\202r!\210\207" [avy-style avy-last-candidates avy-pre-action avy-action avy--style-fn avy--remove-leading-chars windowp mapcar #[257 "\211\300 B\207" [selected-window] 3 "\n\n(fn X)"] copy-sequence avy--process-1 words avy-process message "zero candidates" t #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (restart 80 exit 86 abort 88)) nil avy-action-goto] 9 (#$ . 24109)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias avy--process avy-process nil make-obsolete "0.4.0"] 4) #@47 Hold overlays for when `avy-background' is t. (defvar avy--overlays-back nil (#$ . 25163)) #@77 Create a dim background overlay for each window on WND-LIST. (fn WND-LIST) (defalias 'avy--make-backgrounds #[257 "\205\n\302\303\"\211\207" [avy-background avy--overlays-back mapcar #[257 "\300\301!\302!\303!#\304\305\306#\210\304\307#\210\207" [make-overlay window-start window-end window-buffer overlay-put face avy-background-face window] 6 "\n\n(fn W)"]] 4 (#$ . 25260)]) #@20 Clean up overlays. (defalias 'avy--done #[0 "\301\302\"\210\303\304 \207" [avy--overlays-back mapc delete-overlay nil avy--remove-leading-chars] 3 (#$ . 25654)]) #@10 (fn S) (defalias 'avy--visible-p #[257 "\301\302\"\211?\206\303=\206\304\"?\207" [buffer-invisibility-spec get-char-property invisible t assoc] 5 (#$ . 25824)]) #@60 Return the next closest point without 'invisible property. (defalias 'avy--next-visible-point #[0 "`d\300!\211\262U\204\301!\203\207" [next-char-property-change avy--visible-p] 4 (#$ . 26001)]) #@57 Return the next closest point with 'invisible property. (defalias 'avy--next-invisible-point #[0 "`d\300!\211\262U\204\301!\204\207" [next-char-property-change avy--visible-p] 4 (#$ . 26208)]) #@77 Return a list of all visible regions between RBEG and REND. (fn RBEG REND) (defalias 'avy--find-visible-regions #[514 "e]\262\211d^\262W\205:\300\211\212\214}\210eb\262`dU\2045\301 b\210\211`BB\262\302 b\262\202\237*\266\202\207" [nil avy--next-invisible-point avy--next-visible-point] 6 (#$ . 26414)]) #@262 Return all elements that match REGEX. Each element of the list is ((BEG . END) . WND) When PRED is non-nil, it's a filter for matching point positions. When GROUP is non-nil, (BEG . END) should delimit that regex group. (fn REGEX &optional BEG END PRED GROUP) (defalias 'avy--regex-candidates #[1281 "\211\206\306\262\206\211\227\230\307\n\203 \202\f\310 \211\203\243\211@\311!r\312\313\"\216\314@\315\"\210 >\204\232\316 \206B\317  \206L\320\321 \322\"\"\211\203\231\211@\212\211@b\210\323\fA\322#\203\221\324`S!\203X\203t \203X\247\203\204\224\225B\202\207 BB\262\202X)A\266\202\202M\210*\210A\266\202\202\210)\211\237)\207" [avy-case-fold-search case-fold-search current-prefix-arg avy-all-windows-alt avy-all-windows major-mode 0 nil avy-window-list internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord avy--find-visible-regions window-start window-end selected-window t re-search-forward avy--visible-p avy-ignored-modes] 16 (#$ . 26741)]) #@40 The offset to apply in `avy--overlay'. (defvar avy--overlay-offset 0 (#$ . 27835)) #@34 Hold overlays for leading chars. (defvar avy--overlays-lead nil (#$ . 27924)) #@31 Remove leading char overlays. (defalias 'avy--remove-leading-chars #[0 "\301\302\"\210\303\211\207" [avy--overlays-lead mapc delete-overlay nil] 3 (#$ . 28008)]) #@53 Return a one-char string at PT in WND. (fn PT WND) (defalias 'avy--old-str #[514 "\301!r\302\303\"\216\304@\305\"\210\211T{*\262\203 \306\307\310#\207\207" [avy-background internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord propertize face avy-background-face] 7 (#$ . 28178)]) #@168 Create an overlay with STR from BEG to END in WND. COMPOSE-FN is a lambda that concatenates the old string at BEG with STR. (fn STR BEG END WND &optional COMPOSE-FN) (defalias 'avy--overlay #[1284 "\302!r\303\304\"\216\305@\306\"\210d*\262X\205\254\\\307\206%T\310!#=\2034\311\2029\312\"\313\314\315#\313\314\316#\317\203S\320\314\321\315D$\210\203a\320\314\321\316D$\210\322\323\324!\"\211\262\203|\320\314G\325\326\325\"D$\210\327\330 #\210\327\331\332#\210\327 =\203\227\333\202\230\334\n\206\236\335\"#\210 B\211\266\206\207" [avy--overlay-offset avy--overlays-lead internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord make-overlay window-buffer "" avy--old-str get-text-property 0 line-prefix wrap-prefix nil add-text-properties 1 cl-find-if #[257 "\300\301\"\207" [overlay-get goto-address] 4 "\n\n(fn O)"] overlays-at face overlay-get overlay-put window category avy after-string display concat] 19 (#$ . 28559)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable avy-highlight-first funcall function #[0 "\300\207" [nil] 1] "When non-nil highlight the first decision char with `avy-lead-face-0'.\nDo this even when the char is terminating." :type boolean] 6) #@75 If C is no character, translate it using `avy-key-to-char-alist'. (fn C) (defalias 'avy--key-to-char #[257 "\301!\203\207\302\"A\206\303!\203\207\304\305\"\207" [avy-key-to-char-alist characterp assoc mouse-event-p error "Unknown key %s"] 4 (#$ . 29909)]) #@48 Return the start position for LEAF. (fn LEAF) (defalias 'avy-candidate-beg #[257 "\211\247\203\207\211@:\203\211@@\207\211@\207" [] 2 (#$ . 30183)]) #@46 Return the end position for LEAF. (fn LEAF) (defalias 'avy-candidate-end #[257 "\211\247\203\207\211@:\203\211@A\207\211@\207" [] 2 (#$ . 30343)]) #@40 Return the window for LEAF. (fn LEAF) (defalias 'avy-candidate-wnd #[257 "\211:\203\211A\207\300 \207" [selected-window] 2 (#$ . 30501)]) #@139 Create an overlay with PATH at LEAF. PATH is a list of keys from tree root to LEAF. LEAF is normally ((BEG . END) . WND). (fn PATH LEAF) (defalias 'avy--overlay-pre #[514 "\303A!r\304\305\"\216\306@\307\"\210\310\300!\205*\262\203\"\311\"\207\312\313\"\314\315\316\317!\"\320\321# \204;\211G\322V\203B\323\324\322\325$\210\314\n\320\326#P\262\327\330!\331\332!$\207" [visual-line-mode avy-highlight-first avy-current-path internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord boundp avy--overlay-at-full mapcar avy--key-to-char propertize apply string reverse face avy-lead-face 1 set-text-properties 0 (face avy-lead-face-0) avy-lead-face-1 avy--overlay avy-candidate-beg nil avy-candidate-wnd] 10 (#$ . 30649)]) #@139 Create an overlay with PATH at LEAF. PATH is a list of keys from tree root to LEAF. LEAF is normally ((BEG . END) . WND). (fn PATH LEAF) (defalias 'avy--overlay-at #[514 "\300\301\"\302\303\304!@!\305\306#\307\310!\311\312!\313%\207" [mapcar avy--key-to-char propertize string last face avy-lead-face avy--overlay avy-candidate-beg nil avy-candidate-wnd #[514 "\211\300\230\203\n\300P\207\301!\302=\203\303P\207\207" ["\n" string-width 2 " "] 4 "\n\n(fn STR OLD-STR)"]] 10 (#$ . 31477)]) #@139 Create an overlay with PATH at LEAF. PATH is a list of keys from tree root to LEAF. LEAF is normally ((BEG . END) . WND). (fn PATH LEAF) (defalias 'avy--overlay-at-full #[514 "\304\305\"\306\307\310\311!\"\312\313#GC\314!A\315\242\316\211W\2036\211\317\211T\3128D $\266\211T\262\202\266 \320=\203L\306\n\312\321#P\262G\240\210\322!r\323\324\"\216\325@\326\"\210\212b\210\327\303!\203r \203r\212\330 \210`)\202t\331 \211W\203\331 \202\200\211\332\242 #@\240\210\211A\262 U\203\237T\202\262\315f\333=\203\254\334\202\257\242\\^\262\327\303!\203\367 \203\367\242ZV\203\367=\204\367Z\240\210\307\310\311\f!\"\306\312G\334U\203\355\313\202\356\335#\316\n\242O\262\n\210\266+\210\336\323\337\n\"%\207" [avy-lead-faces avy-style avy-current-path visual-line-mode mapcar avy--key-to-char propertize apply string reverse face avy-lead-face avy-candidate-beg nil 0 set-text-properties de-bruijn avy-lead-face-1 internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord boundp end-of-visual-line line-end-position avy--update-offset-and-str 9 1 avy-lead-face-0 avy--overlay #[514 "\211\302\230\203\n\302P\207\211\303\230\203\304 \300\242Z\305]\306\"P\207\307!\310=\203(\311P\207\207" [V0 tab-width "\n" " " make-string 0 32 string-width 2 " "] 6 "\n\n(fn STR OLD-STR)"]] 18 (#$ . 31986)]) #@139 Create an overlay with PATH at LEAF. PATH is a list of keys from tree root to LEAF. LEAF is normally ((BEG . END) . WND). (fn PATH LEAF) (defalias 'avy--overlay-post #[514 "\302\303\"\304\305\306\307!\"\310\311#\204\211G\312V\203 \313\314\312\315$\210\304 \310\316#P\262\317\320!\321\322!$\207" [avy-highlight-first avy-current-path mapcar avy--key-to-char propertize apply string reverse face avy-lead-face 1 set-text-properties 0 (face avy-lead-face-0) avy-lead-face-1 avy--overlay avy-candidate-end nil avy-candidate-wnd] 10 (#$ . 33446)]) #@507 Recalculate the length of the new overlay at point. OFFSET is the previous overlay length. STR is the overlay string that we wish to add. LEP is the line end position. We want to add an overlay between point and END=point+OFFSET. When other overlays already exist between point and END, set OFFSET to be the difference between the start of the first overlay and point. This is equivalent to truncating our new overlay, so that it doesn't intersect with overlays that already exist. (fn OFFSET STR LEP) (defalias 'avy--update-offset-and-str #[771 "\300 `\301\302\303\304\305\"\306\211 \\ ^\"\"\"\211\203*\307\310\"Z\262\311O\262\312\304\313#\306``\n\\^\"\"\211\203]\314!\\V\203]\\\314!{P\262\314!Z\262\210B\207" [selected-window delq nil mapcar make-closure #[257 "\301\302\"\303=\205\301\304\"\300=\205\305!\207" [V0 overlay-get category avy window overlay-start] 4 "\n\n(fn O)"] overlays-in apply min 0 cl-find-if #[257 "\302\303\"\304=\205\305!\301=\205\302\306\"\300=?\207" [V0 V1 overlay-get category avy overlay-start window] 4 "\n\n(fn O)"] overlay-end] 13 (#$ . 34010)]) #@57 Transform STYLE symbol to a style function. (fn STYLE) (defalias 'avy--style-fn #[257 "\211\300\267\202\301\207\302\207\303\207\304\207\303\207\303\207\305\207\306\307\"\207" [#s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pre 6 at 8 at-full 10 post 12 de-bruijn 14 words 16 ignore 18)) avy--overlay-pre avy--overlay-at avy--overlay-at-full avy--overlay-post ignore error "Unexpected style %S"] 4 (#$ . 35147)]) #@501 Jump to REGEX. The window scope is determined by `avy-all-windows'. When WINDOW-FLIP is non-nil, do the opposite of `avy-all-windows'. BEG and END narrow the scope where candidates are searched. ACTION is a function that takes point position as an argument. When PRED is non-nil, it's a filter for matching point positions. When GROUP is non-nil, it's either a match group in REGEX, or a function that returns a cons of match beginning and end. (fn REGEX &key WINDOW-FLIP BEG END ACTION PRED GROUP) (defalias 'avy-jump #[385 "\302\303\"A@\302\304\"A@\302\305\"A@\302\306\"A@\302\307\"A@\302\310\"A@\206*\2034 ?\2025 \311\312 %!)\207" [avy-action avy-all-windows plist-member :window-flip :beg :end :action :pred :group avy-process avy--regex-candidates] 15 (#$ . 35609)]) #@238 Jump to REGEX. The window scope is determined by `avy-all-windows'. When WINDOW-FLIP is non-nil, do the opposite of `avy-all-windows'. BEG and END narrow the scope where candidates are searched. (fn REGEX WINDOW-FLIP &optional BEG END) (defalias 'avy--generic-jump #[1026 "\203 ?\202\n\301\302#!)\207" [avy-all-windows avy-process avy--regex-candidates] 9 (#$ . 36413)]) (make-obsolete 'avy--generic-jump 'avy-jump "0.4.0") #@132 Jump to the currently visible CHAR. The window scope is determined by `avy-all-windows' (ARG negates it). (fn CHAR &optional ARG) (defalias 'avy-goto-char #[513 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312#M\210\313\314U\203)\315\202.\316\317!!\320#+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-char nil avy-resume make-closure #[0 "\302\300\303U\203 \304\202\305\306\300!!\307\301#\207" [V0 V1 avy-jump 13 #1="\n" regexp-quote string :window-flip] 4 nil nil] avy-jump 13 #1# regexp-quote string :window-flip] 7 (#$ . 36854) (byte-code "\301\302\303\"D\207" [current-prefix-arg read-char "char: " t] 3)]) #@68 Jump to the currently visible CHAR in the current line. (fn CHAR) (defalias 'avy-goto-char-in-line #[257 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312\"M\210\313\314\315!!\316\317 \320\321 %+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-char nil avy-resume make-closure #[0 "\301\302\303\300!!\304\305 \306\307 %\207" [V0 avy-jump regexp-quote string :beg line-beginning-position :end line-end-position] 6 nil nil] avy-jump regexp-quote string :beg line-beginning-position :end line-end-position] 7 (#$ . 37538) (byte-code "\300\301\302\"C\207" [read-char "char: " t] 3)]) #@268 Jump to the currently visible CHAR1 followed by CHAR2. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. BEG and END narrow the scope where candidates are searched. (fn CHAR1 CHAR2 &optional ARG BEG END) (defalias 'avy-goto-char-2 #[1282 "CC\242\306=\203\307\240\210\211\242\306=\203\211\307\240\210\310\236A\206\" \310\n\236A\206* \310\311\312\313\314   &M\210\315\316\317\242\242\"!\320\321\322 &+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action 13 10 avy-goto-char-2 nil avy-resume make-closure #[0 "\305\306\307\300\242\301\242\"!\310\302\311\303\312\304&\207" [V0 V1 V2 V3 V4 avy-jump regexp-quote string :window-flip :beg :end] 8 nil nil] avy-jump regexp-quote string :window-flip :beg :end] 15 (#$ . 38180) (byte-code "\302\303\304\"\211\305>\203\306 \202\211\262\302\307\304\"\211\310=\203!\306 \2021\211>\2030\311 \210\312\313!\2021\211\262 \314\211\257\207" [avy-del-last-char-by current-prefix-arg read-char "char 1: " t (27 8) keyboard-quit "char 2: " 27 keyboard-escape-quit call-interactively avy-goto-char-2 nil] 5)]) #@318 Jump to the currently visible CHAR1 followed by CHAR2. This is a scoped version of `avy-goto-char-2', where the scope is the visible part of the current buffer up to point. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. (fn CHAR1 CHAR2 &optional ARG) (defalias 'avy-goto-char-2-above #[770 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312$M\210\313\314 `%+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-char-2-above nil avy-resume make-closure #[0 "\303\300\301\302\304 `%\207" [V0 V1 V2 avy-goto-char-2 window-start] 6 nil nil] avy-goto-char-2 window-start] 9 (#$ . 39357) (byte-code "\301\302\303\"\301\304\303\"E\207" [current-prefix-arg read-char "char 1: " t "char 2: "] 4)]) #@322 Jump to the currently visible CHAR1 followed by CHAR2. This is a scoped version of `avy-goto-char-2', where the scope is the visible part of the current buffer following point. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. (fn CHAR1 CHAR2 &optional ARG) (defalias 'avy-goto-char-2-below #[770 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312$M\210\313`\314\315 \316\"%+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-char-2-below nil avy-resume make-closure #[0 "\303\300\301\302`\304\305 \306\"%\207" [V0 V1 V2 avy-goto-char-2 window-end selected-window t] 8 nil nil] avy-goto-char-2 window-end selected-window t] 11 (#$ . 40173) (byte-code "\301\302\303\"\301\304\303\"E\207" [current-prefix-arg read-char "char 1: " t "char 2: "] 4)]) #@48 Jump to one of the current isearch candidates. (defalias 'avy-isearch #[0 "\306\236A\206 \306\n\236A\206 \306\307\310\311M\210\307\312\313\203-\2021\314!!!\315 \210-\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-isearch nil avy-resume #[0 "\305\306\307 \203\f\202\310\f!!!\311 \210*\207" [case-fold-search avy-case-fold-search avy-background isearch-regexp isearch-string nil avy-process avy--regex-candidates regexp-quote isearch-done] 4 nil nil] avy-process avy--regex-candidates regexp-quote isearch-done case-fold-search avy-case-fold-search avy-background isearch-regexp isearch-string] 4 (#$ . 41045) nil]) #@223 Jump to a word start. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. BEG and END narrow the scope where candidates are searched. (fn ARG &optional BEG END) (defalias 'avy-goto-word-0 #[769 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312$M\210\313\314\315\316&+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-word-0 nil avy-resume make-closure #[0 "\304 \305\300\306\301\307\302&\207" [V0 V1 V2 avy-goto-word-0-regexp avy-jump :window-flip :beg :end] 8 nil nil] avy-jump :window-flip :beg :end avy-goto-word-0-regexp] 11 (#$ . 41733) "P"]) #@243 Jump to the end of a whitespace sequence. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. BEG and END narrow the scope where candidates are searched. (fn ARG &optional BEG END) (defalias 'avy-goto-whitespace-end #[769 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312$M\210\313\314\315\316\317\320\321& +\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-whitespace-end nil avy-resume make-closure #[0 "\303\304\305\300\306\301\307\302\310\311& \207" [V0 V1 V2 avy-jump #1="[ ]+\\|\n[ ]*" :window-flip :beg :end :group #[0 "``TB\207" #2=[] 2]] 10 nil nil] avy-jump #1# :window-flip :beg :end :group #[0 "``TB\207" #2# 2]] 13 (#$ . 42412) "P"]) #@176 Jump to a word start between window start and point. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. (fn ARG) (defalias 'avy-goto-word-0-above #[257 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312\"M\210\306\313 `#+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-word-0 nil avy-resume make-closure #[0 "\301\300\302 `#\207" [V0 avy-goto-word-0 window-start] 4 nil nil] window-start] 5 (#$ . 43188) "P"]) #@174 Jump to a word start between point and window end. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. (fn ARG) (defalias 'avy-goto-word-0-below #[257 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312\"M\210\306`\313\314 \315\"#+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-word-0 nil avy-resume make-closure #[0 "\301\300`\302\303 \304\"#\207" [V0 avy-goto-word-0 window-end selected-window t] 6 nil nil] window-end selected-window t] 7 (#$ . 43721) "P"]) #@194 Jump to the end of a whitespace sequence between point and window end. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. (fn ARG) (defalias 'avy-goto-whitespace-end-above #[257 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312\"M\210\306\313 `#+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-whitespace-end nil avy-resume make-closure #[0 "\301\300\302 `#\207" [V0 avy-goto-whitespace-end window-start] 4 nil nil] window-start] 5 (#$ . 44304) "P"]) #@196 Jump to the end of a whitespace sequence between window start and point. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. (fn ARG) (defalias 'avy-goto-whitespace-end-below #[257 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312\"M\210\306`\313\314 \315\"#+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-whitespace-end nil avy-resume make-closure #[0 "\301\300`\302\303 \304\"#\207" [V0 avy-goto-whitespace-end window-end selected-window t] 6 nil nil] window-end selected-window t] 7 (#$ . 44879) "P"]) #@333 Jump to the currently visible CHAR at a word start. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. BEG and END narrow the scope where candidates are searched. When SYMBOL is non-nil, jump to symbol start instead of word start. (fn CHAR &optional ARG BEG END SYMBOL) (defalias 'avy-goto-word-1 #[1281 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312&M\210\313!\211\314\230\2034\315\202\\\203G\316\"\203G\317!\202\\\320X\203Q\211\202\\\203Y\321\202Z\322P\323\324\325 \326\n&\266\202+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-word-1 nil avy-resume make-closure #[0 "\306\300!\211\307\230\203 \310\2023 \203\311 \"\203\312!\2023\300\313X\203(\211\2023\304\2030\314\2021\315P\316\317\301\320\302\321\303&\207" [V0 V1 V2 V3 V4 avy-word-punc-regexp string #1="." #2="\\." string-match regexp-quote 26 #3="\\_<" #4="\\b" avy-jump :window-flip :beg :end] 10 nil nil] string #1# #2# string-match regexp-quote 26 #3# #4# avy-jump :window-flip :beg :end avy-word-punc-regexp] 15 (#$ . 45508) (byte-code "\301\302\303\"D\207" [current-prefix-arg read-char "char: " t] 3)]) #@308 Jump to the currently visible CHAR at a word start. This is a scoped version of `avy-goto-word-1', where the scope is the visible part of the current buffer up to point. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. (fn CHAR &optional ARG) (defalias 'avy-goto-word-1-above #[513 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312#M\210\306\313 `$+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-word-1 nil avy-resume make-closure #[0 "\302\300\301\303 `$\207" [V0 V1 avy-goto-word-1 window-start] 5 nil nil] window-start] 7 (#$ . 46754) (byte-code "\301\302\303\"D\207" [current-prefix-arg read-char "char: " t] 3)]) #@312 Jump to the currently visible CHAR at a word start. This is a scoped version of `avy-goto-word-1', where the scope is the visible part of the current buffer following point. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. (fn CHAR &optional ARG) (defalias 'avy-goto-word-1-below #[513 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312#M\210\306`\313\314 \315\"$+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-word-1 nil avy-resume make-closure #[0 "\302\300\301`\303\304 \305\"$\207" [V0 V1 avy-goto-word-1 window-end selected-window t] 7 nil nil] window-end selected-window t] 9 (#$ . 47502) (byte-code "\301\302\303\"D\207" [current-prefix-arg read-char "char: " t] 3)]) #@192 Jump to the currently visible CHAR at a symbol start. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. (fn CHAR &optional ARG) (defalias 'avy-goto-symbol-1 #[513 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312#M\210\313\307\211\314%+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-symbol-1 nil avy-resume make-closure #[0 "\302\300\301\303\211\304%\207" [V0 V1 avy-goto-word-1 nil t] 6 nil nil] avy-goto-word-1 t] 8 (#$ . 48306) (byte-code "\301\302\303\"D\207" [current-prefix-arg read-char "char: " t] 3)]) #@312 Jump to the currently visible CHAR at a symbol start. This is a scoped version of `avy-goto-symbol-1', where the scope is the visible part of the current buffer up to point. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. (fn CHAR &optional ARG) (defalias 'avy-goto-symbol-1-above #[513 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312#M\210\313\314 `\315%+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-symbol-1-above nil avy-resume make-closure #[0 "\302\300\301\303 `\304%\207" [V0 V1 avy-goto-word-1 window-start t] 6 nil nil] avy-goto-word-1 window-start t] 8 (#$ . 48946) (byte-code "\301\302\303\"D\207" [current-prefix-arg read-char "char: " t] 3)]) #@316 Jump to the currently visible CHAR at a symbol start. This is a scoped version of `avy-goto-symbol-1', where the scope is the visible part of the current buffer following point. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. (fn CHAR &optional ARG) (defalias 'avy-goto-symbol-1-below #[513 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312#M\210\313`\314\315 \316\"\316%+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-symbol-1-below nil avy-resume make-closure #[0 "\302\300\301`\303\304 \305\"\305%\207" [V0 V1 avy-goto-word-1 window-end selected-window t] 7 nil nil] avy-goto-word-1 window-end selected-window t] 9 (#$ . 49736) (byte-code "\301\302\303\"D\207" [current-prefix-arg read-char "char: " t] 3)]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable avy-subword-extra-word-chars funcall function #[0 "\300\207" [(123 61 125 42 58 62 60)] 1] "A list of characters that should temporarily match \"\\w\".\nThis variable is used by `avy-goto-subword-0' and `avy-goto-subword-1'." :type (repeat character)] 6) #@290 Jump to a word or subword start. The window scope is determined by `avy-all-windows' (ARG negates it). When PREDICATE is non-nil it's a function of zero parameters that should return true. BEG and END narrow the scope where candidates are searched. (fn &optional ARG PREDICATE BEG END) (defalias 'avy-goto-subword-0 #[1024 "\306\307!\210\310\236A\206\f \310\n\236A\206 \310\311\312\313\314%M\210\311\315\311\"#\203;$\202=%%\316 \211\203\211@\317!r\313\320\"\216\321@\322\"\210&'>\204\374\323 (\211\203u\211@\324\325#\210A\266\202\202b\210\326 p\313\327#\216\330!\210\n\206\212\331 \311\212 \206\226\332\333 \334\"b\210\335 \210`V\203\310 \203\261 \203\302 \203\302\336`!\203\302``TB\333 BB\262\335 \210\202\233`U\203\360 \203\336 \203\360 \203\360\337`\340\"\204\360``TB\333 BB\262)\244\262 \266)\266*\210A\266\202\202A\210)\341!*\266\203+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action require subword avy-goto-subword-0 nil avy-resume make-closure #[0 "\306\307\306\300\203\202\310 \211\203\322\211@\311!r\312\313\"\216\314@\315\"\210 >\204\311\316 !\211\203J\211@\317\320#\210A\266\202\2027\210\321 p\312\322#\216\323!\210\302\206^\324 \306\212\303\206i\325\326 \327\"b\210\330 \210`V\203\230\301\203\201\301\203\222\301 \203\222\331`!\203\222``TB\326 BB\262\330 \210\202n`U\203\275\301\203\253\301\203\275\301 \203\275\332`\333\"\204\275``TB\326 BB\262)\244\262 \266)\266*\210A\266\202\202\210)\334!*\207" [V0 V1 V2 V3 subword-backward-regexp case-fold-search nil #1="\\(\\(\\W\\|[[:lower:][:digit:]]\\)\\([!-/:@`~[:upper:]]+\\W*\\)\\|\\W\\w+\\)" avy-window-list internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord copy-syntax-table modify-syntax-entry #2="w" syntax-table #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table window-start window-end selected-window t subword-backward avy--visible-p get-char-property invisible avy-process avy-all-windows-alt avy-all-windows major-mode avy-ignored-modes avy-subword-extra-word-chars] 14 nil nil] #1# avy-window-list internal--before-with-selected-window #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord copy-syntax-table modify-syntax-entry #2# syntax-table #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table window-start window-end selected-window t subword-backward avy--visible-p get-char-property invisible avy-process subword-backward-regexp case-fold-search avy-all-windows-alt avy-all-windows major-mode avy-ignored-modes avy-subword-extra-word-chars] 18 (#$ . 50911) "P"]) #@180 Jump to the currently visible CHAR at a subword start. The window scope is determined by `avy-all-windows' (ARG negates it). The case of CHAR is ignored. (fn CHAR &optional ARG) (defalias 'avy-goto-subword-1 #[513 "\306\236A\206 \306\n\236A\206 \306\307\310\311\312#M\210\227\313\311\314\"\"\262+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-subword-1 nil avy-resume make-closure #[0 "\300\227\302\301\303\304\"\"\207" [V0 V1 avy-goto-subword-0 make-closure #[0 "\301f\205\n\301f\227\300=\207" [V0 nil] 2]] 6 nil nil] avy-goto-subword-0 #[0 "\301f\205\n\301f\227\300=\207" [V0 nil] 2]] 8 (#$ . 53704) (byte-code "\301\302\303\"D\207" [current-prefix-arg read-char "char: " t] 3)]) #@101 Forward to `avy-goto-subword-1' or `avy-goto-word-1'. Which one depends on variable `subword-mode'. (defalias 'avy-goto-word-or-subword-1 #[0 "\301\300!\203\203\302\303!\207\302\304!\207" [subword-mode boundp call-interactively avy-goto-subword-1 avy-goto-word-1] 2 (#$ . 54456) nil]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable avy-indent-line-overlay funcall function #[0 "\300\207" [nil] 1] "When non-nil, `avy-goto-line' will display the line overlay next to the first non-whitespace character of each line." :type boolean] 6) #@317 Get candidates for selecting a line. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. BEG and END narrow the scope where candidates are searched. When BOTTOM-UP is non-nil, display avy candidates from top to bottom (fn &optional ARG BEG END BOTTOM-UP) (defalias 'avy--line-cands #[1024 "\306\203 \202\n \307 \211\203\216\211@\310!r\311\312\"\216\313@\314\"\210\n >\204\205\206/\315 \212\214\211\206<\316\317 \320\"}\210eb\210`dW\203\203\321`S]\322\"\323>\203p\f\324=\203^\325 \202i\212 \203g\326\306w\210`)\317 BB\262\203}\327\330\320\"\210\202A\330y\210\202A*\210*\210A\266\202\202 \210)\203\225\207\211\237\207" [avy-all-windows-alt avy-all-windows major-mode avy-ignored-modes avy-style avy-indent-line-overlay nil avy-window-list internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord window-start window-end selected-window t get-char-property invisible (nil org-link) post line-end-position " " line-move-visual 1 visual-line-mode] 13 (#$ . 55033)]) #@35 Get strings for `avy-linum-mode'. (defalias 'avy--linum-strings #[0 "\301\302\303 \"\304\"\305C\306\307\310\"\"\210\211\242\237\207" [avy-keys mapcar car avy--line-cands avy-tree nil avy-traverse make-closure #[514 "\301\302\303\304!\"\305\306#\211G\307V\203\310\311\307\312$\210\300\300\242B\240\207" [V0 propertize apply string reverse face avy-lead-face 1 set-text-properties 0 (face avy-lead-face-0)] 8 "\n\n(fn PATH LEAF)"]] 8 (#$ . 56177)]) #@97 Non-nil if Avy-Linum mode is enabled. Use the command `avy-linum-mode' to change this variable. (defvar avy-linum-mode nil (#$ . 56639)) (make-variable-buffer-local 'avy-linum-mode) #@602 Minor mode that uses avy hints for `linum-mode'. This is a minor mode. If called interactively, toggle the `Avy-Linum mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `avy-linum-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'avy-linum-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\203F\311\312!\210\313\314\315\316#\210\317\304!\210\202O\320\314\316\"\210\317\321!\210\322\323\203Y\324\202Z\325\"\210\326\327!\203|\302 \203n\211\302 \232\203|\330\331\203x\332\202y\333\334#\210\210\335 \210\207" [avy-linum-mode local-minor-modes current-message toggle 1 nil t boundp delq require linum advice-add linum-update-window :around avy--linum-update-window linum-mode advice-remove -1 run-hooks avy-linum-mode-hook avy-linum-mode-on-hook avy-linum-mode-off-hook called-interactively-p any message "Avy-Linum mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 56828) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar avy-linum-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [avy-linum-mode-map avy-linum-mode-hook variable-documentation put "Hook run after entering or leaving `avy-linum-mode'.\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 nil add-minor-mode avy-linum-mode boundp] 6) #@72 Update line numbers for the portion visible in window WIN. (fn _ WIN) (defalias 'avy--linum-update-window #[514 "\305!b\210\306 \307\310\";\203\202)\311=\205)\312\313ed\"!G\314\312!\315Q\262\316 \2050\317 \320\321!\210m\204\331`W\203\331 \203K\211A\262\242\202^\203[\322\323\"\324\325#\202^!\3262\224\327``\"\211\205\221\211@\330\331\332\"\"\203\212\211\n>\204\200\211\nB\333 \"\334\326\310\"\210A\266\202\202f\2620G]\262\211\204\312 \204\251\335``\"\202\262\336 \211A\242``#\211\nB\337\340\322\341\342\343 D##\210\337\332#\266\266\310\344y\210)T\262\2024\345 \203\354\346\347_\350\325!_\351 \245!\262\352\353 !A#\207" [linum-format avy-linum-mode linum-overlays linum-available inhibit-point-motion-hooks window-start line-number-at-pos window-end t dynamic number-to-string count-lines "%" "d" 0 avy--linum-strings run-hooks linum-before-numbering-hook propertize format face linum visited overlays-in equal-including-properties overlay-get linum-str delq throw make-overlay move-overlay overlay-put before-string " " display (margin left-margin) nil display-graphic-p ceiling 1.0 linum--face-width frame-char-width set-window-margins window-margins] 18 (#$ . 58785)]) #@295 Select a line. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. BEG and END narrow the scope where candidates are searched. When BOTTOM-UP is non-nil, display avy candidates from top to bottom (fn &optional ARG BEG END BOTTOM-UP) (defalias 'avy--line #[1024 "\206\303 \203\304\305!\210\306\202\n\307\310$!)\207" [avy-action avy-linum-mode avy-style identity message "Goto line:" ignore avy-process avy--line-cands] 10 (#$ . 60028)]) #@291 Jump to a line start in current buffer. When ARG is 1, jump to lines currently visible, with the option to cancel to `goto-line' by entering a number. When ARG is 4, negate the window scope determined by `avy-all-windows'. Otherwise, forward to `goto-line' with ARG. (fn &optional ARG) (defalias 'avy-goto-line #[256 "\211C\211\242\206 \306\240\210\211\242\307>\204eb\210\211\242Sy\207\310\236A\206\" \310\n\236A\206* \310\311\312\313\314\"M\210\313\315\"\316\242\317=!\211\320>?\205U \321=\205U\322!)\266\202+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action 1 (1 4) avy-goto-line nil avy-resume make-closure #[0 " \303\304\"\305\300\242\306=!\211\307>?\205\n\310=\205\311!)\207" [V0 avy-handler-function avy-action make-closure #[257 "\211\301W\204\f\211\302V\203\300!\207\303\304\305!\"\211\205.\306 \210\214~\210eb\210\307!Sy\210)\310\311\312\"\207" [V0 48 57 read-from-minibuffer #1="Goto line: " string avy-push-mark string-to-number throw done exit] 5 "\n\n(fn CHAR)"] avy--line 4 #2=(t nil) identity avy-action-goto] 4 nil nil] #[257 "\211\301W\204\f\211\302V\203\300!\207\303\304\305!\"\211\205.\306 \210\214~\210eb\210\307!Sy\210)\310\311\312\"\207" [V0 48 57 read-from-minibuffer #1# string avy-push-mark string-to-number throw done exit] 5 "\n\n(fn CHAR)"] avy--line 4 #2# identity avy-action-goto avy-handler-function] 6 (#$ . 60545) "p"]) #@220 Goto visible line above the cursor. OFFSET changes the distance between the closest key to the cursor and the cursor When BOTTOM-UP is non-nil, display avy candidates from top to bottom (fn &optional OFFSET BOTTOM-UP) (defalias 'avy-goto-line-above #[512 "\203\n\301[\\\262\302\303\302\304 \305\206\306!$\211\307=?\205#\310!)\207" [avy-all-windows 2 nil avy--line window-start line-beginning-position 1 t avy-action-goto] 7 (#$ . 61982) nil]) #@220 Goto visible line below the cursor. OFFSET changes the distance between the closest key to the cursor and the cursor When BOTTOM-UP is non-nil, display avy candidates from top to bottom (fn &optional OFFSET BOTTOM-UP) (defalias 'avy-goto-line-below #[512 "\203T\262\301\302\301\303\206\304!\305\306 \307\"$\211\307=?\205$\310!)\207" [avy-all-windows nil avy--line line-beginning-position 2 window-end selected-window t avy-action-goto] 8 (#$ . 62444) nil]) (byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable avy-line-insert-style funcall function #[0 "\300\207" [above] 1] "How to insert the newly copied/cut line." :type (choice (const :tag "Above" above) (const :tag "Below" below))] 6) #@75 Call `avy-goto-line' and move to the end of the line. (fn &optional ARG) (defalias 'avy-goto-end-of-line #[256 "\300!\210\301\207" [avy-goto-line nil] 3 (#$ . 63179) "p"]) #@79 Copy a selected line above the current line. ARG lines can be used. (fn ARG) (defalias 'avy-copy-line #[257 "\306 \307\236A\206\n \307\n\236A\206 \307\310\311\312\313#M\210\314 \315\212b\210\316!\210`)\"\317!\210\320\267\202W\321 \210\212\211\322\261)\266\202\202\\\310\210\322\261\210\321 \266\202\202\\\323\324!\266\202+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action selected-window avy-copy-line nil avy-resume make-closure #[0 "\303 \304\212b\210\305\300!\210`)\"\306\301!\210\n\307\267\202.\310 \210\212\211\311\261)\207\312\210\311\261\210\310 \207\313\314!\207" [V0 V1 avy-line-insert-style avy--line buffer-substring-no-properties move-end-of-line select-window #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (above 25 below 35)) beginning-of-line #1="\n" nil user-error #2="Unexpected `avy-line-insert-style'"] 5 nil nil] avy--line buffer-substring-no-properties move-end-of-line select-window #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (above 58 below 72)) beginning-of-line #1# user-error #2# avy-line-insert-style] 7 (#$ . 63360) "p"]) #@79 Move a selected line above the current line. ARG lines can be used. (fn ARG) (defalias 'avy-move-line #[257 "\306 \307\236A\206\n \307\n\236A\206 \307\310\311\312\313#M\210\314 \212\211b\210\315!\210)\316!\210\317\267\202T\320 \210\212\321\322!c)\202W\310\210\323 \210\212\321\322!\322\324Oc)\202W\325\326!\262+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action selected-window avy-move-line nil avy-resume make-closure #[0 "\303 \212\211b\210\304\300!\210)\305\301!\210\n\306\267\202/\307 \210\212\310\311!c)\207\312\210\313 \210\212\310\311!\311\314Oc)\207\315\316!\207" [V0 V1 avy-line-insert-style avy--line kill-whole-line select-window #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (above 21 below 31)) beginning-of-line current-kill 0 nil newline -1 user-error #1="Unexpected `avy-line-insert-style'"] 4 nil nil] avy--line kill-whole-line select-window #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (above 54 below 66)) beginning-of-line current-kill 0 newline -1 user-error #1# avy-line-insert-style] 7 (#$ . 64559) "p"]) #@168 Select two lines and copy the text between them to point. The window scope is determined by `avy-all-windows' or `avy-all-windows-alt' when ARG is non-nil. (fn ARG) (defalias 'avy-copy-region #[257 "\306 \307\236A\206\n \307\n\236A\206 \307\310\311\312\313#M\210\314 r\312\315\"\216\316!*\262\316!\317\212b\210\320 )\"\321!\210\322\267\202c\323 \210\212\211\324\261)\266\203\202h\310\210\325 \210\212\211c)\266\203\202h\326\327!\266\203+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action selected-window avy-copy-region nil avy-resume make-closure #[0 "\303 r\304\305\"\216\306\300!*\262\306\300!\307\212b\210\310 )\"\311\301!\210\n\312\267\202:\313 \210\212\211\314\261)\207\315\210\316 \210\212\211c)\207\317\320!\207" [V0 V1 avy-line-insert-style internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] avy--line buffer-substring-no-properties line-end-position select-window #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (above 37 below 47)) beginning-of-line #1="\n" nil newline user-error #2="Unexpected `avy-line-insert-style'"] 5 nil nil] internal--before-save-selected-window #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] avy--line buffer-substring-no-properties line-end-position select-window #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (above 70 below 84)) beginning-of-line #1# newline user-error #2# avy-line-insert-style] 7 (#$ . 65726) "P"]) #@73 Select two lines and move the text between them above the current line. (defalias 'avy-move-region #[0 "\306\236A\206 \306\n\236A\206 \306\307\310\311M\210\312 \313 \313 \307V\203-\262\262\212b\210\314 T)\262{\262\315\307!\210|\210\316!\210\211c\266\204+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-move-region nil avy-resume #[0 "\300 \301 \301 \302V\203\262\262\212b\210\303 T)\262{\262\304\302!\210|\210\305!\210\211c\207" [selected-window avy--line nil line-end-position move-beginning-of-line select-window] 6 nil nil] selected-window avy--line line-end-position move-beginning-of-line select-window] 6 (#$ . 67312) nil]) #@161 Select two lines and kill the region between them. The window scope is determined by `avy-all-windows' or `avy-all-windows-alt' when ARG is non-nil. (fn ARG) (defalias 'avy-kill-region #[257 "\306 \307\236A\206\n \307\n\236A\206 \307\310\311\312\313\"M\210\314 r\312\315\"\216\316!\306 *D\262\316!\306 D@\247\204D\317\320!\266\202\221\211@\247\204R\317\321!\266\202\221AA\232\204b\317\322!\266\202\221@@W\203\212\323@@b\210\324\325!\210`\"\210)\266\202\221\212\323@b\210\324\325!\210`@\"\210)\266+\326!\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action selected-window avy-kill-region nil avy-resume make-closure #[0 "\301 r\302\303\"\216\304\300!\305 *D\262\304\300!\305 D@\247\204!\306\307!\207\211@\247\204+\306\310!\207AA\232\2047\306\311!\207@@W\203O\212\312@@b\210\313\314!\210`\")\207\212\312@b\210\313\314!\210`@\")\207" [V0 internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] avy--line selected-window user-error #1="Fail to select the beginning of region" #2="Fail to select the end of region" #3="Selected points are not in the same window" kill-region forward-visible-line 1] 6 nil nil] internal--before-save-selected-window #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] avy--line user-error #1# #2# #3# kill-region forward-visible-line 1 select-window] 8 (#$ . 68026) "P"]) #@191 Select two lines and save the region between them to the kill ring. The window scope is determined by `avy-all-windows'. When ARG is non-nil, do the opposite of `avy-all-windows'. (fn ARG) (defalias 'avy-kill-ring-save-region #[257 "\306 \307\236A\206\n \307\n\236A\206 \307\310\311\312\313\"M\210\314 r\312\315\"\216\316!\306 *D\262\316!\306 D@\247\204D\317\320!\266\202\221\211@\247\204R\317\321!\266\202\221AA\232\204b\317\322!\266\202\221@@W\203\212\323@@b\210\324\325!\210`\"\210)\266\202\221\212\323@b\210\324\325!\210`@\"\210)\266+\326!\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action selected-window avy-kill-ring-save-region nil avy-resume make-closure #[0 "\301 r\302\303\"\216\304\300!\305 *D\262\304\300!\305 D@\247\204!\306\307!\207\211@\247\204+\306\310!\207AA\232\2047\306\311!\207@@W\203O\212\312@@b\210\313\314!\210`\")\207\212\312@b\210\313\314!\210`@\")\207" [V0 internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] avy--line selected-window user-error #1="Fail to select the beginning of region" #2="Fail to select the end of region" #3="Selected points are not in the same window" kill-ring-save forward-visible-line 1] 6 nil nil] internal--before-save-selected-window #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] avy--line user-error #1# #2# #3# kill-ring-save forward-visible-line 1 select-window] 8 (#$ . 69487) "P"]) #@449 Select line and kill the whole selected line. With a numerical prefix ARG, kill ARG line(s) starting from the selected line. If ARG is negative, kill backward. If ARG is zero, kill the selected line but exclude the trailing newline. \[universal-argument] 3 \[avy-kil-whole-line] kill three lines starting from the selected line. \[universal-argument] -3 \[avy-kill-whole-line] kill three lines backward including the selected line. (fn ARG) (defalias 'avy-kill-whole-line #[257 "\306 \307\236A\206\n \307\n\236A\206 \307\310\311\312\313\"M\210\314 \211\247\204.\315\316!\266\2028\212\211b\210\317!\210)\210+\320!\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action selected-window avy-kill-whole-line nil avy-resume make-closure #[0 "\301 \211\247\204 \302\303!\207\212\211b\210\304\300!)\207" [V0 avy--line user-error #1="Fail to select the line to kill" kill-whole-line] 3 nil nil] avy--line user-error #1# kill-whole-line select-window] 6 (#$ . 71004) "P"]) #@407 Select line and save the whole selected line as if killed, but don’t kill it. This command is similar to `avy-kill-whole-line', except that it saves the line(s) as if killed, but does not kill it(them). With a numerical prefix ARG, kill ARG line(s) starting from the selected line. If ARG is negative, kill backward. If ARG is zero, kill the selected line but exclude the trailing newline. (fn ARG) (defalias 'avy-kill-ring-save-whole-line #[257 "\306 \307\236A\206\n \307\n\236A\206 \307\310\311\312\313\"M\210\314 \211\247\204.\315\316!\266\202>\212\317\211\211b\210\320!\210+\210+\321!\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action selected-window avy-kill-ring-save-whole-line nil avy-resume make-closure #[0 "\303 \211\247\204 \304\305!\207\212\306\211\211b\210\307\300!+\207" [V0 buffer-read-only kill-read-only-ok avy--line user-error #1="Fail to select the line to kill" t kill-whole-line] 3 nil nil] avy--line user-error #1# t kill-whole-line select-window buffer-read-only kill-read-only-ok] 6 (#$ . 72022) "P"]) #@30 Setup the default shortcuts. (defalias 'avy-setup-default #[0 "\300\301\302\"\207" [eval-after-load "isearch" #[0 "\301\302\303#\207" [isearch-mode-map define-key [67108903] avy-isearch] 4]] 3 (#$ . 73113)]) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\207" [custom-declare-variable avy-timeout-seconds funcall function #[0 "\300\207" [0.5] 1] "How many seconds to wait for the second char." :type float avy-enter-times-out #[0 "\300\207" [t] 1] "Whether enter exits avy-goto-char-timer early. If nil it matches newline" boolean] 6) #@49 Store the input read by `avy--read-candidates'. (defvar avy-text "" (#$ . 73695)) #@689 Read as many chars as possible and return their occurrences. At least one char must be read, and then repeatedly one next char may be read if it is entered before `avy-timeout-seconds'. DEL deletes the last char entered, and RET exits with the currently read string immediately instead of waiting for another char for `avy-timeout-seconds'. The format of the result is the same as that of `avy--regex-candidates'. This function obeys `avy-all-windows' setting. RE-BUILDER is a function that takes a string and returns a regex. When nil, `regexp-quote' is used. If a group is captured, the first group is highlighted. Otherwise, the whole regex is highlighted. (fn &optional RE-BUILDER) (defalias 'avy--read-candidates #[256 "\306\211\206\307\310\211\211C\310\311\312\"\216\313\314 !\210\204S\315\316\317\242G\306\230\203*\202.\316\320\"#\321\306\230?\2058 #\211\262\203S\242\211\203R\211@\322!\210A\266\202\202A\210\310\240\210\323U\203o\n\203g\321\262\202\230\324CP\202\230 >\203\207G\211\325Y\203\203\326SO\210\202\230\327U\203\223\330 \210\202\230CPG\325Y\203\f\206\247\211\227\230\310-\203\264.\202\266//\314 \211\203D\211@\331!r\311\332\"\216\333@\334\"\21001>\204;\335\336 \337\340 \321\"\"\211\203:\211@\212\211@b\210 !\262\341A\321#\2032\342`S!\203\361\343 G\344U\203\325\202\326\345\224\225\"\321\262\n\f\242B\240\210\346\347\340 #\210\346\350\351#\266\202\361)A\266\202\202\340\210*\210A\266\202\202\272\210)\211\204M\352 \210)\266\202\353\354\242\"\237)\207" [avy-text avy-timeout-seconds avy-enter-times-out avy-del-last-char-by avy-case-fold-search case-fold-search "" regexp-quote nil make-closure #[0 "\300\242\211\203\211@\301!\210A\266\202\202\210\302 \207" [V0 delete-overlay avy--done] 4] avy--make-backgrounds avy-window-list read-char format "%d char%s: " " (%s)" t delete-overlay 13 10 1 0 27 keyboard-quit internal--before-with-selected-window #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord avy--find-visible-regions window-start window-end selected-window re-search-forward avy--visible-p match-data 4 make-overlay overlay-put window face avy-goto-char-timer-face beep mapcar #[257 "\300!\301!B\302\303\"B\207" [overlay-start overlay-end overlay-get window] 5 "\n\n(fn OV)"] current-prefix-arg avy-all-windows-alt avy-all-windows major-mode avy-ignored-modes] 19 (#$ . 73784)]) (defvar avy--old-cands nil) #@153 Read one or many consecutive chars and jump to the first one. The window scope is determined by `avy-all-windows' (ARG negates it). (fn &optional ARG) (defalias 'avy-goto-char-timer #[256 "\211\203 ?\202\n\306 \236A\206\n\306 \236A\206\f\306\307\f\310\311M\210\312  \313 !,\207" [avy-all-windows avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-goto-char-timer nil avy-resume #[0 "\301!\207" [avy--old-cands avy-process] 2 nil nil] avy--read-candidates avy-process avy-action avy--old-cands] 4 (#$ . 76270) "P"]) #@37 Store the current point and window. (defalias 'avy-push-mark #[0 "\302\303 `\304 B\"\210\305 ?\205\306 )\207" [inhibit-message avy-ring t ring-insert selected-window region-active-p push-mark] 4 (#$ . 76824)]) #@52 Jump back to the last location of `avy-push-mark'. (defalias 'avy-pop-mark #[0 "\301\30213\303\304\305\"\211\262A!\203\211A\306!\307!\203(\211\310 =\204(\311!\210\312!\210@b\266\2020\207\210\313\314!\207" [avy-ring nil (error) window-live-p ring-remove 0 window-frame frame-live-p selected-frame select-frame-set-input-focus select-window set-mark-command 4] 5 (#$ . 77043) nil]) #@39 Transpose lines in the active region. (defalias 'avy-transpose-lines-in-region #[0 "\301 \205E\302\303 \304 \"\305V\205E\306\307\306\303 \304 #\211\205B\307\306\303 \304 #\211\205@\310 \311\312\"\216\212\313!\210b\210\314\315!\210*\210\316 \262)\266\202\207" [avy-all-windows use-region-p count-lines region-beginning region-end 1 nil avy--line save-mark-and-excursion--save make-closure #[0 "\301\300!\207" [V0 save-mark-and-excursion--restore] 2] push-mark transpose-lines 0 avy-transpose-lines-in-region] 7 (#$ . 77441) nil]) #@71 Refile current heading as first child of heading selected with `avy.' (defalias 'avy-org-refile-as-child #[0 "\306\212\307 \236A\206 \n\307 \236A\206\f\307\310\311\312M\210\313\314!\306=?\205)\315 ,\316\317\320!!\2066\320!!\310\310F\321>\203H\202L\321B\205W\322\310\211#*\207" [org-reverse-note-order avy-keys-alist avy-keys avy-styles-alist avy-style avy-command t avy-goto-line nil avy-resume #[0 "\300\301!\302=?\205 \303 \207" [avy-jump "^\\*+[[:space:]]+" t point-marker] 2 nil nil] avy-jump "^\\*+[[:space:]]+" point-marker buffer-file-name buffer-base-buffer marker-buffer org-reveal org-refile avy-action org-after-refile-insert-hook] 7 (#$ . 77986) nil]) #@154 Read one or many characters and jump to matching Org headings. The window scope is determined by `avy-all-windows' (ARG negates it). (fn &optional ARG) (defalias 'avy-org-goto-heading-timer #[256 "\211\203 ?\202\n\306 \236A\206\n\306 \236A\206\f\306\307\310\311M\210\312\313\314!!\210\315 ,\207" [avy-all-windows avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-goto-char-timer nil avy-resume #[0 "\300 \207" [org-back-to-heading] 1 nil nil] avy-process avy--read-candidates #[257 "\300\301\"\207" [format "^\\*+ .*\\(%s\\)"] 4 "\n\n(fn INPUT)"] org-back-to-heading avy-action] 4 (#$ . 78686) "P"]) (provide 'avy)