;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\322\323\312\305&\210\314\324\316\317\325DD\326\322\327\312\305&\210\314\330\316\317\331DD\332\322\333\312\305&\210\314\334\316\317\335DD\336\322\333\312\305&\210\314\337\316\317\340DD\341\322\342\312\305&\207" [require cl-lib evil-core evil-states custom-declare-group evil-jumps nil "Evil jump list configuration options." :prefix "evil-jumps" :group evil custom-declare-variable evil-jumps-cross-buffers funcall function #[0 "\300\207" [t] 1] "When non-nil, the jump commands can cross borders between buffers, otherwise the jump commands act only within the current buffer." :type boolean evil-jumps-max-length #[0 "\300\207" [100] 1] "The maximum number of jumps to keep track of." integer evil-jumps-pre-jump-hook #[0 "\300\207" [nil] 1] "Hooks to run just before jumping to a location in the jump list." hook evil-jumps-post-jump-hook #[0 "\300\207" [nil] 1] "Hooks to run just after jumping to a location in the jump list." evil-jumps-ignored-file-patterns #[0 "\300\207" [("COMMIT_EDITMSG$" "TAGS$")] 1] "A list of pattern regexps to match on the file path to exclude from being included in the jump list." (repeat string)] 8) (defvar evil--jumps-jumping nil) #@86 Regexp to match against `buffer-name' to determine whether it's a valid jump target. (defvar evil--jumps-buffer-targets "\\*\\(new\\|scratch\\)\\*" (#$ . 1376)) #@57 Hashtable which stores all jumps on a per window basis. (defvar evil--jumps-window-jumps (make-hash-table) (#$ . 1543)) #@66 History of `evil-mode' jumps that are persisted with `savehist'. (defvar evil-jumps-history nil (#$ . 1669)) #@76 compiler-macro for inlining `evil-jumps-struct-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'evil-jumps-struct-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block evil-jumps-struct-p (and (memq (type-of cl-x) cl-struct-evil-jumps-struct-tags) t)) nil] 9 (#$ . 1784)]) (put 'evil-jumps-struct-p 'compiler-macro 'evil-jumps-struct-p--cmacro) #@13 (fn CL-X) (defalias 'evil-jumps-struct-p #[257 "\301!>\205 \302\207" [cl-struct-evil-jumps-struct-tags type-of t] 3 (#$ . 2160)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put evil-jumps-struct-p side-effect-free error-free put evil-jumps-struct cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `evil-jumps-struct-ring'. (fn CL-WHOLE-ARG CL-X) (defalias 'evil-jumps-struct-ring--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block evil-jumps-struct-ring (progn (or (evil-jumps-struct-p cl-x) (signal 'wrong-type-argument (list 'evil-jumps-struct cl-x))) (aref cl-x 1))) nil] 9 (#$ . 2462)]) (put 'evil-jumps-struct-ring 'compiler-macro 'evil-jumps-struct-ring--cmacro) #@67 Access slot "ring" of `evil-jumps-struct' struct CL-X. (fn CL-X) (defalias 'evil-jumps-struct-ring #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-evil-jumps-struct-tags type-of signal wrong-type-argument evil-jumps-struct 1] 5 (#$ . 2905)]) (byte-code "\300\301\302\303#\300\207" [function-put evil-jumps-struct-ring side-effect-free t] 4) #@78 compiler-macro for inlining `evil-jumps-struct-idx'. (fn CL-WHOLE-ARG CL-X) (defalias 'evil-jumps-struct-idx--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block evil-jumps-struct-idx (progn (or (evil-jumps-struct-p cl-x) (signal 'wrong-type-argument (list 'evil-jumps-struct cl-x))) (aref cl-x 2))) nil] 9 (#$ . 3272)]) (put 'evil-jumps-struct-idx 'compiler-macro 'evil-jumps-struct-idx--cmacro) #@66 Access slot "idx" of `evil-jumps-struct' struct CL-X. (fn CL-X) (defalias 'evil-jumps-struct-idx #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-evil-jumps-struct-tags type-of signal wrong-type-argument evil-jumps-struct 2] 5 (#$ . 3710)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put evil-jumps-struct-idx side-effect-free t defalias copy-evil-jumps-struct copy-sequence] 4) #@94 compiler-macro for inlining `make-evil-jumps-struct'. (fn CL-WHOLE &cl-quote &key RING IDX) (defalias 'make-evil-jumps-struct--cmacro #[385 "\300\301\"A@\300\302\"\206\303A@\211\203;\211@\304>\203$\211AA\262\202\305>A@\2032\306\262\202\307\310@\"\210\202\210\311\312\313\306\306&\207" [plist-member :ring :idx (nil -1) (:ring :idx :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:ring :idx)" cl--defsubst-expand (ring idx) (cl-block make-evil-jumps-struct (record 'evil-jumps-struct ring idx))] 12 (#$ . 4130)]) (put 'make-evil-jumps-struct 'compiler-macro 'make-evil-jumps-struct--cmacro) #@74 Constructor for objects of type `evil-jumps-struct'. (fn &key RING IDX) (defalias 'make-evil-jumps-struct #[128 "\300\301\"A@\300\302\"\206\303A@\211\203;\211@\304>\203$\211AA\262\202\305>A@\2032\306\262\202\307\310@\"\210\202\210\311\312#\207" [plist-member :ring :idx (nil -1) (:ring :idx :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:ring :idx)" record evil-jumps-struct] 7 (#$ . 4784)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-evil-jumps-struct side-effect-free t cl-struct-define evil-jumps-struct nil cl-structure-object record ((cl-tag-slot) (ring) (idx -1)) cl-struct-evil-jumps-struct-tags] 11) #@26 (fn FORMAT &rest ARGS) (defalias 'evil--jumps-message '(macro . #[385 "\205\301\302\303\304\305\306\307DF\310BBF\207" [evil--jumps-debug with-current-buffer (get-buffer-create "*evil-jumps*") (goto-char (point-max)) insert apply #'format quote ("\n")] 11 (#$ . 5506)])) #@25 (fn &optional WINDOW) (defalias 'evil--jumps-get-current #[256 "\211\204\301 \262\302\"\211\204\303\304\305\306#\262\307#\210\207" [evil--jumps-window-jumps frame-selected-window gethash record evil-jumps-struct nil -1 puthash] 6 (#$ . 5791)]) #@15 (fn STRUCT) (defalias 'evil--jumps-get-jumps #[257 "\302!>\204\303\304\305D\"\210\211\306H\211\2041\307 !\262\302!>\204*\303\304\305D\"\210\211\306I\266\207" [cl-struct-evil-jumps-struct-tags evil-jumps-max-length type-of signal wrong-type-argument evil-jumps-struct 1 make-ring] 6 (#$ . 6054)]) (defalias 'evil--jumps-get-window-jump-list #[0 "\300 \301!\207" [evil--jumps-get-current evil--jumps-get-jumps] 3]) (defalias 'evil--jumps-savehist-load #[0 "\302>\203 \210\202\302B\304 !\305\n!\306:\203+@\262\307\"\210A\262\202\266\310 \311! >\204>\312\313\314D\"\210\211\211\315I\266\316\317\320\"\210\321\322\323\"\207" [savehist-additional-variables evil-jumps-max-length evil-jumps-history cl-struct-evil-jumps-struct-tags make-ring reverse nil ring-insert evil--jumps-get-current type-of signal wrong-type-argument evil-jumps-struct 1 add-hook savehist-save-hook evil--jumps-savehist-sync remove-hook savehist-mode-hook evil--jumps-savehist-load] 6]) #@61 Updates the printable value of window jumps for `savehist'. (defalias 'evil--jumps-savehist-sync #[0 "\301\302\303\304\305\306 !\"\"\211\207" [evil-jumps-history cl-remove-if-not identity mapcar #[257 "\211@\300!\203\301!\202\211A@\302!?\205&\303!\205&\205&D\207" [markerp marker-position file-remote-p file-exists-p] 6 "\n\n(fn JUMP)"] ring-elements evil--jumps-get-window-jump-list] 6 (#$ . 7054)]) #@18 (fn IDX SHIFT) (defalias 'evil--jumps-jump #[514 "\305 \\\262\306 \206\307 \310!\2045W\2035\311Y\2035\312\"A@\230\2045\\\262\202W\205\217\311Y\205\217\313\314!\210\312\"\211@A@\315\n\316\315\317#)\266\203\203h\320!\210\202l\321!\210\316b\210\322 \323!\f>\204\202\324\325\326D\"\210\211\211\327 I\266\313\330!\266\203\207" [evil-jumps-cross-buffers evil--jumps-jumping evil--jumps-buffer-targets inhibit-changing-match-data cl-struct-evil-jumps-struct-tags evil--jumps-get-window-jump-list buffer-file-name buffer-name ring-length 0 ring-ref run-hooks evil-jumps-pre-jump-hook t nil string-match switch-to-buffer find-file evil--jumps-get-current type-of signal wrong-type-argument evil-jumps-struct 2 evil-jumps-post-jump-hook] 15 (#$ . 7477)]) #@59 Pushes the current cursor/file position to the jump list. (defalias 'evil--jumps-push #[0 "\303 \304 \305 \306 \307\211\211\204\"\307\310\311#)\266\203\203\"\262\203{\n\211\203H\211@\211\307\310\311#)\266\203\203A\310\262A\266\202\202'\210\211\204{\312!\204e\313\314\"@\262\313\314\"A@\262\232\203r\232\204{\315D\"\210\266\307\207" [evil--jumps-buffer-targets inhibit-changing-match-data evil-jumps-ignored-file-patterns evil--jumps-get-window-jump-list buffer-file-name buffer-name point-marker nil t string-match ring-empty-p ring-ref 0 ring-insert] 16 (#$ . 8279)]) #@40 Display the contents of the jump list. (defalias 'evil-show-jumps #[0 "\305\306\307!\203\f\310\307!\210\311\307!r\211q\210\312\313 \314\315\211:\203C@\262\315\316\317T\211\262!\317@!A@C#DB\262A\262\202\211\237\266\205\320\321 \210\315\322 \210)\323!\262)\207" [inhibit-read-only tabulated-list-format tabulated-list-entries evil-list-view-select-action mode-name t get-buffer "*evil-jumps*" kill-buffer get-buffer-create [("Jump" 5 nil) ("Marker" 8 nil) ("File/text" 1000 t)] evil--jumps-savehist-sync 0 nil vector number-to-string evil--show-jumps-select-action evil-list-view-mode evil-motion-state switch-to-buffer-other-window] 11 (#$ . 8901) nil]) (evil-set-command-properties 'evil-show-jumps :repeat nil) #@13 (fn JUMP) (defalias 'evil--show-jumps-select-action #[257 "\300\301\234!\302\234@\303 \210\304\305!!\210b\207" [string-to-number 1 2 kill-buffer switch-to-buffer find-file] 6 (#$ . 9643)]) #@67 Set jump point at POS. POS defaults to point. (fn &optional POS) (defalias 'evil-set-jump #[256 "\302 \204\303 \204\304\305\"\210?\205_\306 \307!\310! >\204(\311\312\313D\"\210\314H\211\211S\211\262\315Y\203=\316!\210\202,\210\310! >\204M\311\312\313D\"\210\211\314\317I\266\212\211\203\\\211b\210\320 )\207" [evil--jumps-jumping cl-struct-evil-jumps-struct-tags region-active-p evil-visual-state-p push-mark t evil--jumps-get-current evil--jumps-get-jumps type-of signal wrong-type-argument evil-jumps-struct 2 0 ring-remove -1 evil--jumps-push] 8 (#$ . 9844)]) #@14 (fn COUNT) (defalias 'evil--jump-backward #[257 "\211\206\301\211\302\303W\210\3042}\211\262\211\303U\204y`\305 \306!>\204+\307\310\311D\"\210\211\312H\211\313U\203P\303\262\306!>\204F\307\310\311D\"\210\211\312\303I\266\314 \210\315\301\"\266`U\203a\316\304\"\210\210\211\303V\203o\211S\262\202s\211T\262\211\262\202\211\2620\207" [cl-struct-evil-jumps-struct-tags 1 nil 0 #1=#:donevar evil--jumps-get-current type-of signal wrong-type-argument evil-jumps-struct 2 -1 evil--jumps-push evil--jumps-jump throw] 12 (#$ . 10436)]) #@14 (fn COUNT) (defalias 'evil--jump-forward #[257 "\211\206\301\211\302\303W\210\3042}\211\262\211\303U\204y`\305 \306!>\204+\307\310\311D\"\210\211\312H\211\313U\203P\303\262\306!>\204F\307\310\311D\"\210\211\312\303I\266\314 \210\315\313\"\266`U\203a\316\304\"\210\210\211\303V\203o\211S\262\202s\211T\262\211\262\202\211\2620\207" [cl-struct-evil-jumps-struct-tags 1 nil 0 #1=#:donevar evil--jumps-get-current type-of signal wrong-type-argument evil-jumps-struct 2 -1 evil--jumps-push evil--jumps-jump throw] 12 (#$ . 11004)]) #@19 (fn &rest ARGS) (defalias 'evil--jumps-window-configuration-hook #[128 "\302\303\211\304#\305 \306 =\204tG\307V\203t\310!\311\312!!\203s\310!\312!\313\312!!\314U\203q\315!>\204@\316\317\320D\"\210\211\321\315!>\204S\316\317\320D\"\210\321HI\266\315!>\204h\316\317\320D\"\210\211\307\322!I\266\266\210\323\324\325\" \"\207" [cl-struct-evil-jumps-struct-tags evil--jumps-window-jumps window-list-1 nil t selected-window previous-window 1 evil--jumps-get-current ring-empty-p evil--jumps-get-jumps ring-length 0 type-of signal wrong-type-argument evil-jumps-struct 2 ring-copy maphash make-closure #[514 "\300\235?\205 \302 \"\207" [V0 evil--jumps-window-jumps remhash] 5 "\n\n(fn KEY VAL)"]] 14 (#$ . 11571)]) #@81 Set jump point if COMMAND has a non-nil :jump property. (fn &optional COMMAND) (defalias 'evil--jump-hook #[256 "\211\206\262\301\302\"\205\303 \207" [this-command evil-get-command-property :jump evil-set-jump] 4 (#$ . 12323)]) (byte-code "\301\302\303\304\305$\210\306\302\305\"\210\301\307\310\304\305$\210\306\307\305\"\210\311\312\313\"\210\314\300!\203-\203-\315 \210\2022\316\317\315\"\210\316\320\321\"\210\322\323!\207" [savehist-loaded ad-add-advice switch-to-buffer (evil-jumps nil t (advice lambda nil (evil-set-jump))) before nil ad-activate split-window-internal (evil-jumps nil t (advice lambda nil (evil-set-jump))) eval-after-load etags #[0 "\300\301\302\303\304$\210\305\301\304\"\210\301\207" [ad-add-advice find-tag-noselect (evil-jumps nil t (advice lambda nil (evil-set-jump))) before nil ad-activate] 5] boundp evil--jumps-savehist-load add-hook savehist-mode-hook evil-local-mode-hook #[0 "\203\301\302\303\304\305$\210\301\306\307\304\305$\210\301\310\311\304\305$\207\312\302\303\305#\210\312\306\307\305#\210\312\310\311\305#\207" [evil-local-mode add-hook pre-command-hook evil--jump-hook nil t next-error-hook evil-set-jump window-configuration-change-hook evil--jumps-window-configuration-hook remove-hook] 5] provide evil-jumps] 5)