;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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%\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) (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'."] 9) #@36 Hold the window and point history. (defvar avy-ring (make-ring 20) (#$ . 8215)) #@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 (#$ . 8302)) (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) (#$ . 9308)) #@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)) (#$ . 9490)) #@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 (#$ . 9822)])) #@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\305\306\307\n\n\n\n\n%\310\"\311\312%\240\210\211\242\313\211\"\210\314\303\315\316\306\307 !\317\"\320\321%\242\"\262\207" [make-list 0 nil make-byte-code 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\311\266\202\207" vconcat vector [0 append cl-subseq 1 nil] 9 "\n\n(fn T P)" 1 mapcar 257 "\211\3008\207" [] 3 "\n\n(fn N)"] 17 (#$ . 10095)]) #@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\301\304\303\305\306\307\f \"\310\"\311$\262\203\316@\211@\250\203<\211@\202L\211@:\203H\211@@\202L\312\313\"A\203\242\211=\203aZ\202b\303\211\303V\203\233\211\fW\203\233 S\n\2428\203\233\314\302 \"\302\f\242\303#\"\303=\204\233 \242\n\211\242A\240\266\202o \262\202\244 \211\204\261\301\262 \301\262\202\311\211 @BB\262\262 \211\262\262\fA\262 \266\202)\210\211\237\207" [avy--de-bruijn nil cl-subseq 0 make-byte-code "\300S\301\2428\205\302\301\242\303\300#\301\211\242A\240\210\207" vconcat vector [cl-subseq 0] 4 error "Unexpected match representation: %s" cl-search] 19 (#$ . 10762)]) #@10 (fn X) (defalias 'avy-order-closest #[257 "\300@@`Z!\207" [abs] 4 (#$ . 11644)]) #@74 Store the current command symbol. E.g. 'avy-goto-line or 'avy-goto-char. (defvar avy-command nil (#$ . 11734)) #@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\310\311\312\n\n#\313\"\314\315%\240\210\211\242!\262\207" [avy-command avy-orders-alist cl-sort < :key nil make-byte-code 257 "\211G\211\301W\203\303\300\304\305\"\"\202l\306\300!\307\310\301\"\211\203g\211@\211A\262\242\311=\2038\312\211A\262 \242B\202[\302\242GX\203J\307\262 \202ZS  \233\262 \233\307\241\210!BB\262A\266\202\202\210\211\237\266\202\207" vconcat vector [cl-pairlis mapcar #[257 "\300B\207" [leaf] 3 "\n\n(fn X)"] copy-sequence nil avy-subdiv 1 leaf] 13 "\n\n(fn LS)"] 15 (#$ . 11852)]) #@54 Distribute N in B terms in a balanced way. (fn N B) (defalias 'avy-subdiv #[514 "\300\301\"\302\\!S\303\"_Z\211Z\245\304\305#\306\307\"\304\n _ _#C\307\"#\207" [floor log 1e-06 expt - 1 append make-list] 15 (#$ . 12633)]) #@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\"\210\202%\301A#\210\210A\266\202\202\207" [leaf avy-traverse] 10 (#$ . 12888)]) #@40 Function to call at the end of select. (defvar avy-action nil (#$ . 13318)) #@48 The default handler for a bad CHAR. (fn CHAR) (defalias 'avy-handler-default #[257 "\302\303\"\211\262\203\211A\304\305\306\"\202Q\307>\203\"\304\305\310\"\202Q\311=\2032\312 \210\304\305\306\"\202Q\313!\203A\314\315\316D\"\202Q\317\320\321!\203O\322!\202P\"\207" [avy-dispatch-alist avy-action nil assoc throw done restart (27 7) exit 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 (#$ . 13400)]) #@40 Display action shortucts in echo area. (defalias 'avy-show-dispatch-help #[0 "\301G\302\303\304\305\306\307\310\311!\312\"\313\314%\315#\"\207" [avy-dispatch-alist "avy-action-" message "%s" mapconcat make-byte-code 257 "\301\302\303\304@!\305\306#\307A!\300\310O#\207" vconcat vector [format "%s: %s" propertize char-to-string face aw-key-face symbol-name nil] 7 "\n\n(fn X)" " "] 10 (#$ . 13937)]) #@56 A function to call for a bad `read-key' in `avy-read'. (defvar avy-handler-function 'avy-handler-default (#$ . 14348)) #@54 Store the current incomplete path during `avy-read'. (defvar avy-current-path "" (#$ . 14473)) #@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 (#$ . 14575)]) #@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\203\304\205\202\305C\306\307\310\311\312\313!\314\"\315\316%\"\210\211\242\211\2033\211@@A\"\210A\266\202\202\266 \317 !\305\211 \210\320!\211\262\203Q\321\303B\"\210\202}\322\323!!P\324\"\211\262\203y\211A\211\262@\325=\203}\321\303A\"\210\202}\n!\210\266\2020\207" [avy-current-path avy-translate-char-function avy-handler-function done "" nil avy-traverse make-byte-code 514 "\300B\300\242B\240\207" vconcat vector [] 5 "\n\n(fn PATH LEAF)" read-key avy-mouse-event-window throw string avy--key-to-char assoc leaf] 12 (#$ . 14970)]) #@53 Select from LST dispatching on KEYS. (fn LST KEYS) (defalias 'avy-read-de-bruijn #[514 "\3032\207\304\305GG\"!\306#\211\204#T\262\306#\262\202\211@@G\307\310\211W\203\311!\211\203I\211@\312\311@!A\"\210A\266\202\2023\210 \313 !\314 \210\315\316\317\320\321\322\323\324!\325\"\326\327%\"\"\262\330\331!!PT\262\204{\n!\210\210\202*@A\266\202\266\2020\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-byte-code 257 "\211@@\300=\205\211@AAB\207" vconcat vector [] 3 "\n\n(fn X)" string avy--key-to-char] 16 (#$ . 15954)]) #@46 Select from LST using WORDS. (fn LST WORDS) (defalias 'avy-read-words #[514 "\3042\372\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\364\325!\211\203\303\211@\326\325@!A\"\210A\266\202\202\255\210\n\327 !\330 \210\310\305\331\332\333\334\335\336!\337\"\312\340%\"\"\262 \321\341!!P\204\360 !\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-byte-code 257 "\211@@\300=\205\211@AAB\207" vconcat vector [] "\n\n(fn X)" avy--key-to-char] 15 (#$ . 16670)]) #@58 Return a list of windows depending on `avy-all-windows'. (defalias 'avy-window-list #[0 "\301=\203\f\302\303\304 \"\207\305=\203\303 \207\204\306 C\207\307\310\"\207" [avy-all-windows all-frames cl-mapcan window-list frame-list t selected-window error "Unrecognized option: %S"] 3 (#$ . 17782)]) (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 (#$ . 18461)])) (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 (#$ . 18987) nil]) #@127 Set `avy-keys' according to COMMAND and execute BODY. Set `avy-style' according to COMMMAND 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\321BBBEBBBB\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)] 11 (#$ . 19137)])) (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 (#$ . 19788)]) (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 (#$ . 20133)]) #@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 (#$ . 20274)]) #@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 (#$ . 20603)]) #@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 (#$ . 20770)]) #@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 (#$ . 21000)]) #@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 (#$ . 21302)]) #@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 (#$ . 21453)]) #@35 Auto correct word at PT. (fn PT) (defalias 'avy-action-ispell #[257 "\212\211b\210\303=\203\304\305 \306 \"\202D\307\301!\203\" \203\"\310 \202D\311\312\313!)\262\2033\314 \202D\315v\210\311\312\313!)\262\205D\314 )\207" [avy-command flyspell-mode inhibit-changing-match-data avy-goto-line ispell-region line-beginning-position line-end-position boundp flyspell-correct-word-before-point "\\b" t looking-at ispell-word -1] 4 (#$ . 21703)]) #@49 Function to call before `avy-action' is called. (defvar avy-pre-action 'avy-pre-action-default (#$ . 22166)) #@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 (#$ . 22281)]) #@51 (fn CANDIDATES OVERLAY-FN &optional CLEANUP-FN) (defalias 'avy--process-1 #[770 "G\211\304U\203\f\305\202I\211\306U\203\203@\202I\307\216\310\311 !\210 \312=\203/\313\n\"\202H \314=\203<\315 \"\202H\316\317\n\"\206G\320#)\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 de-bruijn avy-read-de-bruijn words avy-read-words avy-read avy-tree avy--remove-leading-chars] 8 (#$ . 22544)]) #@32 Store the last candidate list. (defvar avy-last-candidates nil (#$ . 23044)) #@17 (fn ADVANCER) (defalias 'avy--last-candidates-cycle #[257 "\301\302\"\303\304\305\306\"\"\307\310\311\312\313\314!\315\"\316\317%\"\")\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-byte-code 257 "\211@@`Z\300U\207" vconcat vector [] 3 "\n\n(fn X)"] 9 (#$ . 23127)]) #@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 (#$ . 23550) 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 (#$ . 23757) 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\204<\313\314!\210\315\202k\211\316=\203J\317#\202k\211\320=\206k\n!\210\211@\262 \206]\321:\203g@\202h!\210\211\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 message "zero candidates" t restart avy-process exit avy-action-goto] 9 (#$ . 23959)]) (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 (#$ . 24873)) #@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\211\207" [make-overlay window-start window-end window-buffer overlay-put face avy-background-face window] 6 "\n\n(fn W)"]] 4 (#$ . 24970)]) #@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 (#$ . 25368)]) #@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 (#$ . 25538)]) #@61 Return the next closest point without `invisible' property. (defalias 'avy--next-visible-point #[0 "`d\300!\211\262U\204\301!\203\211\207" [next-char-property-change avy--visible-p] 4 (#$ . 25715)]) #@58 Return the next closest point with `invisible' property. (defalias 'avy--next-invisible-point #[0 "`d\300!\211\262U\204\301!\204\211\207" [next-char-property-change avy--visible-p] 4 (#$ . 25927)]) #@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 (#$ . 26138)]) #@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\236\211@\311!r\312\306\313\314\315!\316\"\317$\216\320@\321\"\210 >\204\225\322 \206I\323  \206S\324\325 \326\"\"\211\203\224\211@\212\211@b\210\327\fA\326#\203\214\330`S!\203_\203{ \203_\224\225BBB\262\202_)A\266\202\202T\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-byte-code "\301\300!\207" vconcat vector [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 (#$ . 26465)]) #@40 The offset to apply in `avy--overlay'. (defvar avy--overlay-offset 0 (#$ . 27563)) #@34 Hold overlays for leading chars. (defvar avy--overlays-lead nil (#$ . 27652)) #@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 (#$ . 27736)]) #@53 Return a one-char string at PT in WND. (fn PT WND) (defalias 'avy--old-str #[514 "\301!r\302\303\304\305\306!\307\"\310$\216\311@\312\"\210\211T{*\262\203)\313\314\315#\202*\211\207" [avy-background internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord propertize face avy-background-face] 9 (#$ . 27906)]) #@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\305\306\307!\310\"\311$\216\312@\313\"\210d*\262X\205\263\\\314\206,T\315!#=\203;\316\202@\317\"\320\304\321#\320\304\322#\323\203Z\324\304\325\321D$\210\203h\324\304\325\322D$\210\326\327\330!\"\211\262\203\203\324\304G\331\332\331\"D$\210\333\334 #\210\333\335\336#\210\333 =\203\236\337\202\237\340\n\206\245\341\"#\210 B\211\266\206\207" [avy--overlay-offset avy--overlays-lead internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord make-overlay window-buffer "" avy--old-str get-text-property 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 (#$ . 28326)]) (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 (#$ . 29710)]) #@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 (#$ . 29984)]) #@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 (#$ . 30144)]) #@40 Return the window for LEAF. (fn LEAF) (defalias 'avy-candidate-wnd #[257 "\211:\203\211A\207\300 \207" [selected-window] 2 (#$ . 30302)]) #@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 "\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-beg nil avy-candidate-wnd] 10 (#$ . 30450)]) #@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 (#$ . 31013)]) #@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\316\324\325\326!\327\"\330$\216\331@\332\"\210\212b\210\333\303!\203y \203y\212\334 \210`)\202{\335 \211W\203\206\335 \202\207\211\336\242 #@\240\210\211A\262 U\203\246T\202\271\315f\337=\203\263\340\202\266\242\\^\262\333\303!\203\376 \203\376\242ZV\203\376=\204\376Z\240\210\307\310\311\f!\"\306\312G\340U\203\364\313\202\365\341#\316\n\242O\262\n\210\266+\210\342\323\343\344\325\326 !\345\"\346\347%%\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-byte-code "\301\300!\207" vconcat vector [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" [tab-width "\n" " " make-string 0 32 string-width 2 " "] 6 "\n\n(fn STR OLD-STR)"] 19 (#$ . 31522)]) #@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 (#$ . 33035)]) #@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\307\310 !\311\"\312\313%\314\211 \\ ^\"\"\"\211\2032\315\316\"Z\262\317O\262\320\304\305\321\307\310\"\322\"\312\313%\314``\n\\^\"\"\211\203o\323!\\V\203o\\\323!{P\262\323!Z\262\210B\207" [selected-window delq nil mapcar make-byte-code 257 "\301\302\"\303=\205\301\304\"\300=\205\305!\207" vconcat vector [overlay-get category avy window overlay-start] 4 "\n\n(fn O)" overlays-in apply min 0 cl-find-if "\302\303\"\304=\205\305!\301=\205\302\306\"\300=?\207" [overlay-get category avy overlay-start window] overlay-end] 14 (#$ . 33599)]) #@57 Transform STYLE symbol to a style function. (fn STYLE) (defalias 'avy--style-fn #[257 "\300\301\"\203 \302\207\300\303\"\203\304\207\300\305\"\203\306\207\300\307\"\203$\310\207\300\311\"\203-\306\207\300\312\"\2036\306\207\300\313\"\203?\313\207\314\315\"\207" [eql pre avy--overlay-pre at avy--overlay-at at-full avy--overlay-at-full post avy--overlay-post de-bruijn words ignore error "Unexpected style %S"] 4 (#$ . 34775)]) #@374 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. (fn REGEX &key WINDOW-FLIP BEG END ACTION PRED) (defalias 'avy-jump #[385 "\302\303\"A@\302\304\"A@\302\305\"A@\302\306\"A@\302\307\"A@\211\203J\211@\310>\2032\211AA\262\202\311>A@\203A\312\262\202\313\314@\"\210\202\210\206P\203Z ?\202[ \315\316$!)\207" [avy-action avy-all-windows plist-member :window-flip :beg :end :action :pred (:window-flip :beg :end :action :pred :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:window-flip :beg :end :action :pred)" avy-process avy--regex-candidates] 13 (#$ . 35228)]) #@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 (#$ . 36138)]) (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\313\314\315\"\316\"\317\307\211&M\210\320\321U\2035\322\202:\323\324!!\325#+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-char nil avy-resume make-byte-code 0 "\302\300\303U\203 \304\202\305\306\300!!\307\301#\207" vconcat vector [avy-jump 13 #1="\n" regexp-quote string :window-flip] 4 avy-jump 13 #1# regexp-quote string :window-flip] 10 (#$ . 36579) (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\313\314\315!\316\"\317\307\211&M\210\320\321\322!!\323\324 \325\326 %+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-char nil avy-resume make-byte-code 0 "\301\302\303\300!!\304\305 \306\307 %\207" vconcat vector [avy-jump regexp-quote string :beg line-beginning-position :end line-end-position] 6 avy-jump regexp-quote string :beg line-beginning-position :end line-end-position] 9 (#$ . 37299) (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\211\242\306=\203\211\307\240\210\242\306=\203\307\240\210\310\236A\206\" \310\n\236A\206* \310\311\312\313\314\315\316\317\f\f\f%\320\"\321\311\211&M\210\322\323\324\242\242\"!\325\326\327 &+\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-byte-code 0 "\305\306\307\300\242\301\242\"!\310\302\311\303\312\304&\207" vconcat vector [avy-jump regexp-quote string :window-flip :beg :end] 8 avy-jump regexp-quote string :window-flip :beg :end] 18 (#$ . 37976) (byte-code "\301\302\303\"\301\304\303\"\305\211\257\207" [current-prefix-arg read-char "char 1: " t "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\313\314\315#\316\"\317\307\211&M\210\320\321 `%+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-char-2-above nil avy-resume make-byte-code 0 "\303\300\301\302\304 `%\207" vconcat vector [avy-goto-char-2 window-start] 6 avy-goto-char-2 window-start] 12 (#$ . 38973) (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\313\314\315#\316\"\317\307\211&M\210\320`\321\322 \323\"%+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-char-2-below nil avy-resume make-byte-code 0 "\303\300\301\302`\304\305 \306\"%\207" vconcat vector [avy-goto-char-2 window-end selected-window t] 8 avy-goto-char-2 window-end selected-window t] 12 (#$ . 39822) (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)\202-\314!!!\210\315 ,\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-isearch nil avy-resume #[0 "\303\304\305 \203\f\n\202\306\n!!!\210\307 )\207" [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 avy-background isearch-regexp isearch-string] 4 (#$ . 40726) 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\313\314\315#\316\"\317\307\211&M\210\320\321\322\323&+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-word-0 nil avy-resume make-byte-code 0 "\304 \305\300\306\301\307\302&\207" vconcat vector [avy-goto-word-0-regexp avy-jump :window-flip :beg :end] 8 avy-jump :window-flip :beg :end avy-goto-word-0-regexp] 12 (#$ . 41333) "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\313\314\315!\316\"\317\307\211&M\210\306\320 `#+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-word-0 nil avy-resume make-byte-code 0 "\301\300\302 `#\207" vconcat vector [avy-goto-word-0 window-start] 4 window-start] 9 (#$ . 42044) "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\313\314\315!\316\"\317\307\211&M\210\306`\320\321 \322\"#+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-word-0 nil avy-resume make-byte-code 0 "\301\300`\302\303 \304\"#\207" vconcat vector [avy-goto-word-0 window-end selected-window t] 6 window-end selected-window t] 9 (#$ . 42612) "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\313\314\315\n\n\n\n\n%\316\"\317\307\211&M\210\320!\211\321\230\203=\322\202e\203P\323\"\203P\324!\202e\325X\203Z\211\202e\203b\326\202c\327P\330\331\332 \333\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-byte-code 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" vconcat vector [avy-word-punc-regexp string #1="." #2="\\." string-match regexp-quote 26 #3="\\_<" #4="\\b" avy-jump :window-flip :beg :end] 10 string #1# #2# string-match regexp-quote 26 #3# #4# avy-jump :window-flip :beg :end avy-word-punc-regexp] 16 (#$ . 43230) (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\313\314\315\"\316\"\317\307\211&M\210\306\320 `$+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-word-1 nil avy-resume make-byte-code 0 "\302\300\301\303 `$\207" vconcat vector [avy-goto-word-1 window-start] 5 window-start] 10 (#$ . 44500) (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\313\314\315\"\316\"\317\307\211&M\210\306`\320\321 \322\"$+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-word-1 nil avy-resume make-byte-code 0 "\302\300\301`\303\304 \305\"$\207" vconcat vector [avy-goto-word-1 window-end selected-window t] 7 window-end selected-window t] 10 (#$ . 45284) (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\313\314\315\"\316\"\317\307\211&M\210\320\307\211\321%+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-symbol-1 nil avy-resume make-byte-code 0 "\302\300\301\303\211\304%\207" vconcat vector [avy-goto-word-1 nil t] 6 avy-goto-word-1 t] 10 (#$ . 46124) (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\313\314\315\"\316\"\317\307\211&M\210\320\321 `\322%+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-symbol-1-above nil avy-resume make-byte-code 0 "\302\300\301\303 `\304%\207" vconcat vector [avy-goto-word-1 window-start t] 6 avy-goto-word-1 window-start t] 10 (#$ . 46800) (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\313\314\315\"\316\"\317\307\211&M\210\320`\321\322 \323\"\323%+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-symbol-1-below nil avy-resume make-byte-code 0 "\302\300\301`\303\304 \305\"\305%\207" vconcat vector [avy-goto-word-1 window-end selected-window t] 7 avy-goto-word-1 window-end selected-window t] 10 (#$ . 47626) (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\315\316\317    $\320\"\321\311\211&M\210\311\322\311*+\203E,\202G--\323 \211\203\211@\324!r\313\314\325\316\317!\326\"\327$\216\330@\331\"\210./>\204\332 0\211\203\206\211@\333\334#\210A\266\202\202s\210\335 p\313\314\336\316\317\"\337\"\327$\216\340!\210\n\206\244\341 \311\212 \206\260\342\343 \344\"b\210\345 \210`V\203\337 \203\313 \203\331 \203\331\346`!\203\331`\343 BB\262\345 \210\202\265`U\203 \203\365 \203 \203\347`\350\"\204`\343 BB\262)\244\262 \266)\266*\210A\266\202\202K\210)\351!*\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-byte-code 0 "\306\307\306\300\203#\202$$\310 \211\203\334\211@\311!r\312\313\314\315\316!\317\"\320$\216\321@\322\"\210%&>\204\323\323 '\211\203Q\211@\324\325#\210A\266\202\202>\210\326 p\312\313\327\315\316\"\330\"\320$\216\331!\210\302\206n\332 \306\212\303\206y\333\334 \335\"b\210\336 \210`V\203\245\301\203\221\301\203\237\301 \203\237\337`!\203\237`\334 BB\262\336 \210\202~`U\203\307\301\203\270\301\203\307\301 \203\307\340`\341\"\204\307`\334 BB\262)\244\262 \266)\266*\210A\266\202\202\210)\342!*\207" vconcat vector [subword-backward-regexp case-fold-search nil #1="\\(\\(\\W\\|[[:lower:][:digit:]]\\)\\([!-/:@`~[:upper:]]+\\W*\\)\\|\\W\\w+\\)" avy-window-list internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord copy-syntax-table modify-syntax-entry #2="w" syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] 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] 16 #1# avy-window-list internal--before-with-selected-window "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord copy-syntax-table modify-syntax-entry #2# syntax-table "r\301q\210\302\300!)\207" [set-syntax-table] 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] 20 (#$ . 48837) "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\313\314\315\"\316\"\317\307\211&M\210\227\320\311\312\321\314\315!\322\"\323$\"\262+\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action avy-goto-subword-1 nil avy-resume make-byte-code 0 "\300\227\302\301\303\304\305\306\307!\310\"\311$\"\207" vconcat vector [avy-goto-subword-0 make-byte-code 0 "\301f\205\n\301f\227\300=\207" vconcat vector [nil] 2] 9 avy-goto-subword-0 "\301f\205\n\301f\227\300=\207" [nil] 2] 11 (#$ . 51704) (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 (#$ . 52541) 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\230\211@\310!r\311\312\313\314\315!\316\"\317$\216\320@\321\"\210\n >\204\217\2066\322 \212\214\211\206C\323\324 \325\"}\210eb\210`dW\203\215\326`S]\327\"\330\235\203w\f\331=\203e\332 \202p\212 \203n\333\306w\210`)\324 BB\262\203\207\312\334\335\325\"\210\202H\335y\210\202H*\210*\210A\266\202\202 \210)\203\242\211\202\244\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-byte-code 0 "\301\300!\207" vconcat vector [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 temporary-goal-column] 14 (#$ . 53118)]) #@35 Get strings for `avy-linum-mode'. (defalias 'avy--linum-strings #[0 "\301\302\303 \"\304\"\305C\306\307\310\311\312\313!\314\"\315\316%\"\210\211\242\237\207" [avy-keys mapcar car avy--line-cands avy-tree nil avy-traverse make-byte-code 514 "\301\302\303\304!\"\305\306#\211G\307V\203\310\311\307\312$\210\300\300\242B\240\207" vconcat vector [propertize apply string reverse face avy-lead-face 1 set-text-properties 0 (face avy-lead-face-0)] 8 "\n\n(fn PATH LEAF)"] 11 (#$ . 54338)]) #@97 Non-nil if Avy-Linum mode is enabled. Use the command `avy-linum-mode' to change this variable. (defvar avy-linum-mode nil (#$ . 54839)) (make-variable-buffer-local 'avy-linum-mode) #@70 Minor mode that uses avy hints for `linum-mode'. (fn &optional ARG) (defalias 'avy-linum-mode #[256 "\301 \302=\203 ?\202\303!\304V\211\203(\305\306!\210\307\310\311\312#\210\313\314!\210\2021\315\310\312\"\210\313\316!\210\317\320\203;\321\202<\322\"\210\323\324!\203`\301 \203P\211\301 \232\203`\325\326\327\203[\330\202\\\331#\266\210\332 \210\207" [avy-linum-mode current-message toggle prefix-numeric-value 0 require linum advice-add linum-update-window :around avy--linum-update-window linum-mode 1 advice-remove -1 run-hooks avy-linum-mode-hook avy-linum-mode-on-hook avy-linum-mode-off-hook called-interactively-p any " in current buffer" message "Avy-Linum mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 55027) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) (defvar avy-linum-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\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.)" add-minor-mode avy-linum-mode nil 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\351\325!#\352 \245!\262\353\354 !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 (#$ . 56269)]) #@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 "\303\203 \304\305!\210\306\202 \307\310$!*\207" [avy-linum-mode avy-style avy-action identity message "Goto line:" ignore avy-process avy--line-cands] 10 (#$ . 57517)]) #@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\202h\310\236A\206$ \310\n\236A\206, \310\311\312\313\314\315\316\317!\320\"\321\311\211&M\210\313\322\323\316\317!\324\"\325\326%\327\242\330=!\211\331=?\205d\332!)\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-byte-code 0 " \302\303\304\305\306!\307\"\310\311%\312\300\242\313=!\211\314=?\205\315!)\207" vconcat vector [avy-handler-function make-byte-code 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" vconcat vector [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 t avy-action-goto] 7 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" [48 57 read-from-minibuffer #1# string avy-push-mark string-to-number throw done exit] 5 "\n\n(fn CHAR)" avy--line 4 t avy-action-goto avy-handler-function] 10 (#$ . 58026) "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 (#$ . 59492) 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 (#$ . 59954) 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 (#$ . 60689) "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\314\315\316\"\317\"\320\310\211&M\210\321 \322\212b\210\323!\210`)\"\324!\210\325=\203R\326 \210\212\211\327\261)\202i\330=\203f\310\210\327\261\210\326 \202i\331\332!\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-byte-code 0 "\303 \304\212b\210\305\300!\210`)\"\306\301!\210\n\307=\203%\310 \210\212\211\311\261)\202;\n\312=\2038\313\210\311\261\210\310 \202;\314\315!\207" vconcat vector [avy-line-insert-style avy--line buffer-substring-no-properties move-end-of-line select-window above beginning-of-line #1="\n" below nil user-error #2="Unexpected `avy-line-insert-style'"] 5 avy--line buffer-substring-no-properties move-end-of-line select-window above beginning-of-line #1# below user-error #2# avy-line-insert-style] 10 (#$ . 60870) "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\314\315\316\"\317\"\320\310\211&M\210\321 \212\211b\210\322!\210)\323!\210\324=\203N\325 \210\212\326\313!c)\202j\327=\203g\310\210\330 \210\212\326\313!\313\331Oc)\202j\332\333!\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-byte-code 0 "\303 \212\211b\210\304\300!\210)\305\301!\210\n\306=\203!\307 \210\212\310\311!c)\202<\n\312=\2039\313\210\314 \210\212\310\311!\311\315Oc)\202<\316\317!\207" vconcat vector [avy-line-insert-style avy--line kill-whole-line select-window above beginning-of-line current-kill 0 below nil newline -1 user-error #1="Unexpected `avy-line-insert-style'"] 4 avy--line kill-whole-line select-window above beginning-of-line current-kill below newline -1 user-error #1# avy-line-insert-style] 10 (#$ . 61923) "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\314\315\316\"\317\"\320\310\211&M\210\321 r\312\313\322\315\316!\323\"\324$\216\325!*\262\325!\326\212b\210\327 )\"\330!\210 \331=\203e\332 \210\212\211\333\261)\202| \334=\203y\310\210\335 \210\212\211c)\202|\336\337!\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-byte-code 0 "\303 r\304\305\306\307\310!\311\"\312$\216\313\300!*\262\313\300!\314\212b\210\315 )\"\316\301!\210\n\317=\2038\320 \210\212\211\321\261)\202N\n\322=\203K\323\210\324 \210\212\211c)\202N\325\326!\207" vconcat vector [avy-line-insert-style internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 avy--line buffer-substring-no-properties line-end-position select-window above beginning-of-line #1="\n" below nil newline user-error #2="Unexpected `avy-line-insert-style'"] 7 internal--before-save-selected-window "\301\300!\207" [internal--after-save-selected-window] 2 avy--line buffer-substring-no-properties line-end-position select-window above beginning-of-line #1# below newline user-error #2# avy-line-insert-style] 10 (#$ . 62960) "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 (#$ . 64449) 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\314\315\316!\317\"\320\310\211&M\210\321 r\312\313\322\315\316!\323\"\324$\216\325!\306 *D\262\325!\306 D@\247\204U\326\327!\210\202\234\211@\247\204b\326\330!\210\202\234AA\232\204q\326\331!\210\202\234@@W\203\214\212\332@@b\210\333\334!\210`\"\210)\202\234\212\332@b\210\333\334!\210`@\"\210)\266+\335!\207" [avy-keys-alist avy-keys avy-styles-alist avy-style avy-command avy-action selected-window avy-kill-region nil avy-resume make-byte-code 0 "\301 r\302\303\304\305\306!\307\"\310$\216\311\300!\312 *D\262\311\300!\312 D@\247\204*\313\314!\202m\211@\247\2046\313\315!\202mAA\232\204D\313\316!\202m@@W\203^\212\317@@b\210\320\321!\210`\")\202m\212\317@b\210\320\321!\210`@\")\207" vconcat vector [internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [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] 7 internal--before-save-selected-window "\301\300!\207" [internal--after-save-selected-window] 2 avy--line user-error #1# #2# #3# kill-region forward-visible-line 1 select-window] 10 (#$ . 65163) "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\314\315\316!\317\"\320\310\211&M\210\321 r\312\313\322\315\316!\323\"\324$\216\325!\306 *D\262\325!\306 D@\247\204U\326\327!\210\202\234\211@\247\204b\326\330!\210\202\234AA\232\204q\326\331!\210\202\234@@W\203\214\212\332@@b\210\333\334!\210`\"\210)\202\234\212\332@b\210\333\334!\210`@\"\210)\266+\335!\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-byte-code 0 "\301 r\302\303\304\305\306!\307\"\310$\216\311\300!\312 *D\262\311\300!\312 D@\247\204*\313\314!\202m\211@\247\2046\313\315!\202mAA\232\204D\313\316!\202m@@W\203^\212\317@@b\210\320\321!\210`\")\202m\212\317@b\210\320\321!\210`@\")\207" vconcat vector [internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [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] 7 internal--before-save-selected-window "\301\300!\207" [internal--after-save-selected-window] 2 avy--line user-error #1# #2# #3# kill-ring-save forward-visible-line 1 select-window] 10 (#$ . 66710) "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\314\315\316!\317\"\320\310\211&M\210\321 \211\247\2048\322\323!\210\202A\212\211b\210\324!\210)\210+\325!\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-byte-code 0 "\301 \211\247\204 \302\303!\202\212\211b\210\304\300!)\207" vconcat vector [avy--line user-error #1="Fail to select the line to kill" kill-whole-line] 3 avy--line user-error #1# kill-whole-line select-window] 10 (#$ . 68313) "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\314\315\316!\317\"\320\310\211&M\210\321 \211\247\2048\322\323!\210\202G\212\324\211\211b\210\325!\210+\210+\326!\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-byte-code 0 "\303 \211\247\204 \304\305!\202\212\306\211\211b\210\307\300!+\207" vconcat vector [buffer-read-only kill-read-only-ok avy--line user-error #1="Fail to select the line to kill" t kill-whole-line] 3 avy--line user-error #1# t kill-whole-line select-window buffer-read-only kill-read-only-ok] 10 (#$ . 69368) "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 (#$ . 70496)]) (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) #@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\206\307\310\211\211C\310\311\312\313\314\315!\316\"\317$\216\320\321 !\210\204i\322\323\324\242G \306\230\2033 \2028\323\325 \"#\326\306\230?\205C#\211\262\203i\242\211\203]\211@\327!\210A\266\202\202L\210\310\240\210\330U\203{ \203r\326\262\202\247\331CP\262\202\247\n>\203\225G\211\332Y\203\221\312SO\262\210\202\247\333U\203\241\334 \210\202\247CP\262G\332Y\203 \206\266\211\227\230\310 \203\3022\202\30433\321 \211\203Z\211@\335!r\311\312\336\314\315!\337\"\340$\216\341@\342\"\21045>\204Q\343\344 \345\346 \326\"\"\211\203P\211@\212\211@b\210  !\262\347A\326#\203H\350`S!\203\351 G\317U\203$\332\202%\312\352\224\225\"\326\262\n\f\242B\240\210\353\354\346 #\210\353\355\356#\266\202)A\266\202\202\365\210*\210A\266\202\202\310\210)\211\204c\357 \210)\266\202\360\361\242\"\237)\207" [avy-timeout-seconds avy-enter-times-out avy-del-last-char-by avy-case-fold-search case-fold-search current-prefix-arg "" regexp-quote nil make-byte-code 0 "\300\242\211\203\211@\301!\210A\266\202\202\210\302 \207" vconcat vector [delete-overlay avy--done] 4 avy--make-backgrounds avy-window-list read-char format "%d char%s: " " (%s)" t delete-overlay 13 10 1 27 keyboard-quit internal--before-with-selected-window "\301\300!\207" [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 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)"] avy-all-windows-alt avy-all-windows major-mode avy-ignored-modes] 20 (#$ . 71079)]) #@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 "\300\301 !\207" [avy-process avy--read-candidates] 2 nil nil] avy-process avy--read-candidates avy-action] 4 (#$ . 73578) "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 (#$ . 74123)]) #@52 Jump back to the last location of `avy-push-mark'. (defalias 'avy-pop-mark #[0 "\301\30215\303\304\305\"\211\262A!\203\211A\306!\307!\203(\211\310 =\204(\311!\210\312!\210@b\266\2020\2029\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 (#$ . 74342) 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\235\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 (#$ . 74742) 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\301\302!!\210\303 \207" [avy-process avy--read-candidates #[257 "\300\301\"\207" [format #1="^\\*+ .*\\(%s\\)"] 4 "\n\n(fn INPUT)"] org-back-to-heading] 3 nil nil] avy-process avy--read-candidates #[257 "\300\301\"\207" [format #1#] 4 "\n\n(fn INPUT)"] org-back-to-heading avy-action] 4 (#$ . 75445) "P"]) (provide 'avy)