;ELC ;;; Compiled ;;; in Emacs version 25.3.1 ;;; 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%\210\311\312\313\314\315DD\316\317\320%\210\311\321\313\314\322DD\323\317\324%\210\311\325\313\314\326DD\327\317\330%\210\311\331\313\314\332DD\333\317\334%\210\311\335\313\314\336DD\337\317\340%\210\311\341\313\314\342DD\343\317\324%\210\311\344\313\314\345DD\346\317\314%\210\311\347\313\314\350DD\351\317\352%\210\311\353\313\314\354DD\355\317\356%\210\311\357\313\314\360DD\361\317\324%\210\311\362\313\314\363DD\364\317\365%\210\311\366\313\314\367DD\370\317\320%\210\371\372\373\374#\210\371\375\376\377#\210\371\201@\201A\201B#\210\371\201C\201D\201E#\210\371\201F\201G\201H#\210\371\201I\201J\201K#\210\371\201L\201M\201N#\207" [require cl-lib thingatpt custom-declare-group anzu nil "Show searched position in mode-line" :group isearch custom-declare-variable anzu-mode-lighter funcall function #[0 "\300\207" [#1=" Anzu"] 1 #1#] "Lighter of anzu-mode" :type string anzu-cons-mode-line-p #[0 "\300\207" [t] 1] "Set nil if you use your own mode-line setting" boolean anzu-minimum-input-length #[0 "\300\207" [1] 1] "Minimum input length to enable anzu" integer anzu-search-threshold #[0 "\300\207" [nil] 1] "Limit of search number" (choice (integer :tag "Threshold of search") (const :tag "No threshold" nil)) anzu-replace-threshold #[0 "\300\207" [nil] 1] "Limit of replacement overlays." (choice (integer :tag "Threshold of replacement overlays") (const :tag "No threshold" nil)) anzu-use-migemo #[0 "\300\207" [nil] 1] "Flag of using migemo" anzu-mode-line-update-function #[0 "\300\207" [anzu--update-mode-line-default] 1] "Function which return mode-line string. This must be non-nil." anzu-regexp-search-commands #[0 "\300\207" [(isearch-forward-regexp isearch-backward-regexp)] 1] "Search function which use regexp." (repeat function) anzu-input-idle-delay #[0 "\300\207" [0.05] 1] "Idle second for updating modeline at replace commands" number anzu-deactivate-region #[0 "\300\207" [nil] 1] "Deactive region if you use anzu a replace command with region" anzu-replace-at-cursor-thing #[0 "\300\207" [defun] 1] "Replace thing. This parameter is same as `thing-at-point'" symbol anzu-replace-to-string-separator #[0 "\300\207" [#2=""] 1 #2#] "Separator of `to' string" custom-declare-face anzu-mode-line ((t (:foreground "magenta" :weight bold))) "face of anzu modeline" anzu-mode-line-no-match ((t (:inherit anzu-mode-line))) "face of anzu modeline in no match case" anzu-replace-highlight ((t :inherit query-replace)) "highlight of replaced string" anzu-match-1 ((((class color) (background light)) :background "aquamarine" :foreground "black") (((class color) (background dark)) :background "limegreen" :foreground "black") (t :inverse-video t)) "First group of match." anzu-match-2 ((((class color) (background light)) :background "springgreen" :foreground "black") (((class color) (background dark)) :background "yellow" :foreground "black") (t :inverse-video t)) "Second group of match." anzu-match-3 ((((class color) (background light)) :background "yellow" :foreground "black") (((class color) (background dark)) :background "aquamarine" :foreground "black") (t :inverse-video t)) "Third group of match." anzu-replace-to ((((class color) (background light)) :foreground "red") (((class color) (background dark)) :foreground "yellow")) "highlight of replace string"] 6) (defvar anzu--total-matched 0) (defvar anzu--current-position 0) (defvar anzu--overflow-p nil) (defvar anzu--last-isearch-string nil) (defvar anzu--cached-positions nil) (defvar anzu--last-command nil) (defvar anzu--state nil) (defvar anzu--cached-count 0) (defvar anzu--last-replace-input "") (defvar anzu--last-search-state nil) (defvar anzu--last-replaced-count nil) (defvar anzu--outside-point nil) (defvar anzu--history nil) (defvar anzu--query-defaults nil) (defalias 'anzu--validate-regexp #[257 "\3011\211\302\303\304\305#)\266\3040\207\210\303\207" [inhibit-changing-match-data (invalid-regexp) "" nil t string-match] 8 "\n\n(fn REGEXP)"]) (defalias 'anzu--construct-position-info #[771 "\300\301\302\257\207" [:count :overflow :positions] 9 "\n\n(fn COUNT OVERFLOW POSITIONS)"]) (put 'anzu--construct-position-info 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--case-fold-search #[257 "\205\302\303\302\304\305#)\266\203)?\207" [case-fold-search inhibit-changing-match-data nil "[A-Z]" t string-match] 8 "\n\n(fn INPUT)"]) (put 'anzu--case-fold-search 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--word-search-p #[0 " >?\205 \n?\207" [anzu--last-command anzu-regexp-search-commands isearch-regexp] 2]) (put 'anzu--word-search-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--isearch-regexp-function #[0 "\302\300!\203\n\206\302\301!\205 \207" [isearch-regexp-function isearch-word boundp] 2]) (put 'anzu--isearch-regexp-function 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--transform-input #[257 "\305\300!\203\n\206\305\301!\205 \306=\203\306!\211\262\207\n >\204.\f\204.\307!\211\262\207\207" [isearch-regexp-function isearch-word anzu--last-command anzu-regexp-search-commands isearch-regexp boundp isearch-symbol-regexp regexp-quote] 3 "\n\n(fn STR)"]) (defalias 'anzu--use-migemo-p #[0 "\205\302\303!\204\304\305!\210\306\301!\205 \207" [anzu-use-migemo migemo-isearch-enable-p featurep migemo error "Error: migemo is not loaded" boundp] 2]) (put 'anzu--use-migemo-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--search-all-position #[257 "\204 \306!\307!\204\n\202\261\212eb\210\310\311\310\211 \2037\312\313!\204)\314\315!\210\316\304!\2037\f\2037\317\2028\320 \205O\310\321\310\322\323#)\266\203)?\262\204\226\211\310\322#\203\226\311\224\311\225BB\262T\262\311\224\311\225U\203\201m\203~\322\262\202\201\324u\210\203RY\203R\322\262\322\262\202R\325!\326\327\330\257\266\203\331!\211\262)\266\205)\207" [anzu--last-command last-command anzu--cached-positions anzu-use-migemo migemo-isearch-enable-p case-fold-search anzu--transform-input anzu--validate-regexp nil 0 featurep migemo error "Error: migemo is not loaded" boundp #[1025 "\3001\f\301$0\207\210\302\207" [(error) migemo-forward nil] 9 "\n\n(fn WORD &optional BOUND NOERROR COUNT)"] re-search-forward "[A-Z]" t string-match 1 reverse :count :overflow :positions copy-sequence inhibit-changing-match-data anzu-search-threshold] 16 "\n\n(fn STR)"]) (defalias 'anzu--where-is-here #[514 "\300\211\211\301\211\300:\203N@\262\211A\262\242\262\203\"\302\202$T\262Y\203?X\203?\262\300\211\262\202@\301\203NA\262\300\262\202\203V\303\202W\211\207" [nil t 1 0] 11 "\n\n(fn POSITIONS HERE)"]) (defalias 'anzu--use-result-cache-p #[257 "\305\300!\203\n\206\305\301!\205 \n@=\205! \nA=\205!\211\f\230\207" [isearch-regexp-function isearch-word anzu--last-search-state isearch-regexp anzu--last-isearch-string boundp] 3 "\n\n(fn INPUT)"]) (defalias 'anzu--update #[257 "\211GY\205G\306!\203 \202\307!\310\311\312\"`\"\311\313\"\311\314\"\211\315\305!\2031 \2069\315\316!\2059B\317 \262\262\207" [anzu-minimum-input-length anzu--cached-positions anzu--total-matched anzu--overflow-p anzu--current-position isearch-regexp-function anzu--use-result-cache-p anzu--search-all-position anzu--where-is-here plist-get :positions :count :overflow boundp isearch-word force-mode-line-update isearch-regexp anzu--last-search-state anzu--last-isearch-string] 6 "\n\n(fn QUERY)"]) (defalias 'anzu--update-post-hook #[0 "\301!\207" [isearch-string anzu--update] 2]) (defconst anzu--mode-line-format '(:eval (anzu--update-mode-line))) (defalias 'anzu--mode-line-not-set-p #[0 "<\205 \235\207" [mode-line-format anzu--mode-line-format] 2]) (put 'anzu--mode-line-not-set-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--cons-mode-line-search #[0 "\300\301!\207" [anzu--cons-mode-line search] 2]) (defalias 'anzu--cons-mode-line #[257 "\211 \205\n<\205 \n\235?\205 \nB\211\207" [anzu--state anzu-cons-mode-line-p mode-line-format anzu--mode-line-format] 3 "\n\n(fn STATE)"]) (defalias 'anzu--reset-status #[0 "\306\211\307\211\307\211\211\207" [anzu--total-matched anzu--current-position anzu--state anzu--last-command anzu--last-isearch-string anzu--overflow-p 0 nil] 3]) (put 'anzu--reset-status 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--reset-mode-line #[0 "\306\211\307\211\307\211 \205(\n<\205( \n\235\205(\310 \n\"\211\n\207" [anzu--total-matched anzu--current-position anzu--state anzu--last-command anzu--last-isearch-string anzu--overflow-p 0 nil delete anzu-cons-mode-line-p mode-line-format anzu--mode-line-format] 3]) (defalias 'anzu--format-here-position #[514 "\203\301U\203\302\303\"\207\207" [anzu--overflow-p 0 format "%d+"] 5 "\n\n(fn HERE TOTAL)"]) (put 'anzu--format-here-position 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--update-mode-line-default #[514 "\205e\303\304\"\2033\305\306 \203\"\307U\203\"\305\310\"\266\202\202%\266\202 \203.\311\202/\312$\202M\303\313\"\203A\305\314\"\202M\303\315\"\205M\305\316#\307U\203]\n\312\230\204]\317\202^\320\321\322#\266\202\207" [anzu--state anzu--overflow-p isearch-string eql search format "(%s/%d%s)" 0 "%d+" "+" "" replace-query "(%d replace)" replace "(%d/%d)" anzu-mode-line-no-match anzu-mode-line propertize face] 9 "\n\n(fn HERE TOTAL)"]) (defalias 'anzu--update-mode-line #[0 " \n\"\207" [anzu-mode-line-update-function anzu--current-position anzu--total-matched] 3]) #@87 Non-nil if Anzu mode is enabled. Use the command `anzu-mode' to change this variable. (defvar anzu-mode nil (#$ . 10061)) (make-variable-buffer-local 'anzu-mode) #@79 minor-mode which display search information in mode-line. (fn &optional ARG) (defalias 'anzu-mode #[256 "\302 \303=\203 ?\202\304!\305V\211\2035\306\301!\210\307\310\311\312\307\313$\210\310\314\315\307\313$\210\310\316\317\307\313$\210\202J\320\311\312\313#\210\320\314\315\313#\210\320\316\317\313#\210\317 \210\321\322\203T\323\202U\324\"\210\325\326!\203y\302 \203i\211\302 \232\203y\327\330\331\203t\332\202u\333#\266\210\334 \210\207" [anzu-mode anzu--state current-message toggle prefix-numeric-value 0 make-local-variable nil add-hook isearch-update-post-hook anzu--update-post-hook t isearch-mode-hook anzu--cons-mode-line-search isearch-mode-end-hook anzu--reset-mode-line remove-hook run-hooks anzu-mode-hook anzu-mode-on-hook anzu-mode-off-hook called-interactively-p any " in current buffer" message "Anzu mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 10229) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@174 Hook run after entering or leaving `anzu-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar anzu-mode-hook nil (#$ . 11207)) (byte-code "\301\302\303\304\300!\205\n\305\211%\207" [anzu-mode-map add-minor-mode anzu-mode anzu-mode-lighter boundp nil] 6) (defalias 'anzu--turn-on #[0 "\300 ?\205 \301\302!\207" [minibufferp anzu-mode 1] 2]) (defvar anzu-mode-major-mode nil) (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [make-variable-buffer-local anzu-mode-major-mode custom-declare-variable global-anzu-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Anzu mode is enabled.\nSee the `global-anzu-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-anzu-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group anzu :type boolean] 12) #@325 Toggle Anzu mode in all buffers. With prefix ARG, enable Global Anzu mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Anzu mode is enabled in all buffers where `anzu--turn-on' would do it. See `anzu-mode' for more information on Anzu mode. (fn &optional ARG) (defalias 'global-anzu-mode #[256 "\302 \303\300\304=\203\305\300!?\202\306!\307V\"\210\203.\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202=\317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c\211@r\211q\210\203S\321 \210\202[ \203[\301\322!\210)A\266\202\202?\210\323\324\305\300!\203p\325\202q\326\"\210\327\330!\203\233\331\300!\210\302 \203\211\211\302 \232\203\233\332\333\334\305\300!\203\226\335\202\227\336#\266\210\337 \210\305\300!\207" [global-anzu-mode anzu-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-anzu-mode-enable-in-buffers find-file-hook global-anzu-mode-check-buffers change-major-mode-hook global-anzu-mode-cmhh remove-hook buffer-list anzu--turn-on -1 run-hooks global-anzu-mode-hook global-anzu-mode-on-hook global-anzu-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Anzu mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 12271) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@181 Hook run after entering or leaving `global-anzu-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar global-anzu-mode-hook nil (#$ . 13691)) (byte-code "\301\302\303\304\300!\205\n\303\211%\207" [global-anzu-mode-map add-minor-mode global-anzu-mode nil boundp] 6) (defvar anzu-mode-set-explicitly nil nil) (make-variable-buffer-local 'anzu-mode-set-explicitly) (defalias 'anzu-mode-set-explicitly #[0 "\301\211\207" [anzu-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put anzu-mode-set-explicitly definition-name global-anzu-mode add-hook anzu-mode-hook] 4) (defvar global-anzu-mode-buffers nil) (defalias 'global-anzu-mode-enable-in-buffers #[0 "\211\2056\211@\305!\203/r\211q\210 \204,\n =\204,\f\203)\304\306!\210\307 \210\202,\307 \210 )A\266\202\202\207" [global-anzu-mode-buffers anzu-mode-set-explicitly anzu-mode-major-mode major-mode anzu-mode buffer-live-p -1 anzu--turn-on] 4]) (put 'global-anzu-mode-enable-in-buffers 'definition-name 'global-anzu-mode) (defalias 'global-anzu-mode-check-buffers #[0 "\301 \210\302\303\304\305\"\207" [global-anzu-mode-buffers global-anzu-mode-enable-in-buffers nil remove-hook post-command-hook global-anzu-mode-check-buffers] 3]) (put 'global-anzu-mode-check-buffers 'definition-name 'global-anzu-mode) (defalias 'global-anzu-mode-cmhh #[0 "p\211\235\204 \211B\210\301\302\303\"\207" [global-anzu-mode-buffers add-hook post-command-hook global-anzu-mode-check-buffers] 3]) (put 'global-anzu-mode-cmhh 'definition-name 'global-anzu-mode) (defalias 'anzu--query-prompt-base #[514 "\301\203 \302\202\n\303\203\304\202\303\203\305\202\303R\207" [current-prefix-arg "Query replace" " word" "" " regexp" " in region"] 6 "\n\n(fn USE-REGION USE-REGEXP)"]) (put 'anzu--query-prompt-base 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--query-prompt #[1028 "\302\203 \303\202\f\304\203\305\202\304\203\306\202\304R\266\202 \203>\204>\204>\307\310\311 @@!\311 @A!$\202?\211\207" [current-prefix-arg anzu--query-defaults "Query replace" " word" "" " regexp" " in region" format "%s (default %s -> %s) " query-replace-descr] 11 "\n\n(fn USE-REGION USE-REGEXP AT-CURSOR ISEARCH-P)"]) (defvar anzu--replaced-markers nil) (defalias 'anzu--set-marker #[514 "\301 \211\223\210\211B\211\207" [anzu--replaced-markers make-marker] 6 "\n\n(fn BEG BUF)"]) (put 'anzu--set-marker 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--make-overlay #[1028 "\300\"\301\302#\210\301\303#\210\301\304\305#\210\211\207" [make-overlay overlay-put face priority anzu-overlay t] 9 "\n\n(fn BEGIN END FACE PRIO)"]) (defalias 'anzu--add-match-group-overlay #[514 "\211\300Y\203\301\3028\262\3038\262\304\305$\210\211\306Y\203+\301AA@AAA@\307\305$\210\301@A@\310\305$\207" [3 anzu--make-overlay 4 5 anzu-match-3 1001 2 anzu-match-2 anzu-match-1] 7 "\n\n(fn MATCH-DATA GROUPS)"]) (defalias 'anzu--add-overlay #[514 "\300 \211G\301Z\301\245\211\302Y\203\303AA\"\210\304\305\306$\307\310\311\"#\210\307\312\313#\262\207" [match-data 2 1 anzu--add-match-group-overlay anzu--make-overlay anzu-replace-highlight 1000 overlay-put from-string buffer-substring-no-properties anzu-replace t] 11 "\n\n(fn BEG END)"]) (defalias 'anzu--cleanup-markers #[0 "\301\302\"\210\303\211\207" [anzu--replaced-markers mapc #[257 "\211\300\211\223\207" [nil] 4 "\n\n(fn M)"] nil] 3]) (put 'anzu--cleanup-markers 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--count-and-highlight-matched #[1799 "\304\305\"\210\306\204\307!\262\310!\204 \207rq\210\212^b\210\311\211\306?\205H\n\n\205F\306\312\306\313\314#)\266\203)?\262\211\204\241\315 \n\313#\203\241T\262\311\224\311\225U\203rm\203o\313\262\202r\316u\210\n\203\201` V\203\201\313\262Y\203\234\211X\203\234\204\234T\262\317\"\210\266\202I)\266\203\266\202*\207" [anzu--replaced-markers anzu--cached-count case-fold-search inhibit-changing-match-data mapc #[257 "\211\300\211\223\207" [nil] 4 "\n\n(fn M)"] nil regexp-quote anzu--validate-regexp 0 "[A-Z]" t string-match re-search-forward 1 anzu--add-overlay] 20 "\n\n(fn BUF STR REPLACE-BEG REPLACE-END USE-REGEXP OVERLAY-LIMIT CASE-SENSITIVE)"]) (defalias 'anzu--search-outside-visible #[1285 "\211\203\301\202 \302\203\303!\205R\304\305!!r\306\307\310\311\312!\313\"\314$\216\315@\316\"\210b\210\317#\205O\307\224\320 \321\322&\262*\262\207" [anzu--outside-point re-search-forward search-forward anzu--validate-regexp internal--before-with-selected-window get-buffer-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord t anzu--overlay-limit anzu--count-and-highlight-matched nil] 16 "\n\n(fn BUF INPUT BEG END USE-REGEXP)"]) (defconst anzu--from-to-separator (byte-code "\300\3011\302\303!\203\304\202\3050\202\210\202\206\305\306\307#\207" [propertize (error) char-displayable-p 8594 " → " " -> " face minibuffer-prompt] 4)) (defalias 'anzu--separator #[0 "\301\302\303\304\305%\207" [anzu--from-to-separator propertize "" display separator t] 6]) (put 'anzu--separator 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--check-minibuffer-input #[1285 "\305 \306\307\310\311\312\313%\"\205\314\315\224\312#\205\316\315\225\"\211\203*\316\315\211\224#\206+\211\317\230\211\2038\315\211\202G\320 \n\n\n\n\321&\n\203l\321\322\323 !!r\324\315\325\326\327!\330\"\331$\216\332@\333\"\210 b\210*\210\204\202\211\315U\203\202\334\n   %\210\203\231\317\335      &\210 \336 \207" [anzu--from-to-separator anzu--cached-count anzu--outside-point anzu--last-replace-input anzu--total-matched minibuffer-contents string-match propertize "" display separator t get-text-property 0 substring-no-properties "" anzu--count-and-highlight-matched nil internal--before-with-selected-window get-buffer-window make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord anzu--search-outside-visible anzu--append-replaced-string force-mode-line-update] 18 "\n\n(fn BUF BEG END USE-REGEXP OVERLAY-LIMIT)"]) (defalias 'anzu--clear-overlays #[771 "rq\210\300\206\ne\206d\"\211\205(\211@\301\302\"\203!\303!\210A\266\202\202\262)\207" [overlays-in overlay-get anzu-overlay delete-overlay] 8 "\n\n(fn BUF BEG END)"]) (defalias 'anzu--transform-from-to-history #[0 "\303\304\305\306\307%\310\311\312\313\314\315\316!\317\"\320\321% \"\nJ\"\207" [anzu--from-to-separator anzu--query-defaults query-replace-from-history-variable propertize "" display separator t append mapcar make-byte-code 257 "\301@!\300\301A!Q\207" vconcat vector [query-replace-descr] 5 "\n\n(fn FROM-TO)"] 9]) (defalias 'anzu--read-from-string #[1285 "p\302\303 \302C\302C\304\305\306\307\310 #\311\"\312$\216\304\305\313\307\310      &\314\"\315$\302C\211\304\305\316\307\310\"\317\"\320$\240\210\304\305\321\307\310!\322\"\320$\216\323\324\242\"\210\325\326\327\"\302\211\211\300\302\330&\330\240\210)\266\202+\207" [anzu--history blink-matching-paren nil anzu--transform-from-to-history make-byte-code 0 "\301\242\205\303\301\242!\210\301\304\240\210\302\242?\205\300b\207" vconcat vector [cancel-timer nil] 2 "\305\306\307]\310\311\312\313\314\315\300\301\302\303\304%\316\"\317$#\240\207" [run-with-idle-timer 0.01 repeat make-byte-code 0 "\305\304\306\211#\210\307\310 \206\311 !r\312\313\314\315\316!\317\"\320$\216\321@\322\"\210\323\304\300\301\302\303%*\207" vconcat vector [anzu--clear-overlays nil internal--before-with-selected-window active-minibuffer-window minibuffer-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord anzu--check-minibuffer-input] 7 anzu-input-idle-delay] 14 "\302\303\301\242\"\210\300 \207" [remove-hook minibuffer-setup-hook] 3 "\301\302\300\242\"\207" [remove-hook minibuffer-setup-hook] add-hook minibuffer-setup-hook read-from-minibuffer format "%s: " t] 21 "\n\n(fn PROMPT BEG END USE-REGEXP OVERLAY-LIMIT)"]) (defalias 'anzu--query-validate-from-regexp #[257 "\300\301\"\205'\302\303\"\211\304\230\203\305\306!\210\202\"\211\307\230\203\"\305\310!\210\311\312!\262\207" [string-match "\\(?:\\`\\|[^\\]\\)\\(?:\\\\\\\\\\)*\\(\\\\[nt]\\)" match-string 1 "\\n" message "`\\n' here doesn't match a newline; type C-q C-j instead!!" "\\t" "\\t' here doesn't match a tab; to do that, just type TAB!!" sit-for 2] 4 "\n\n(fn FROM)"]) (defalias 'anzu--query-from-string #[1285 "\304%\211\305\230\211\204\204 \211\203.\203.\306@@!\307\306@A!\"B\202I\310 \311\312$\210\203H\313!\204D\314\315\"\210\316!\210\207" [anzu--query-defaults anzu--total-matched anzu--last-replaced-count query-replace-from-history-variable anzu--read-from-string "" query-replace-descr query-replace-compile-replacement add-to-history nil t anzu--validate-regexp error "'%s' is invalid regexp." anzu--query-validate-from-regexp] 12 "\n\n(fn PROMPT BEG END USE-REGEXP OVERLAY-LIMIT)"]) (defalias 'anzu--compile-replace-text #[257 "\3001\f\301\302\"0\202\210\303\211\2058\211;\203\211\2028\211:\203+\304@!\203+\211\2028\211:\2058\211@;\2058\211@\207" [(error) query-replace-compile-replacement t nil functionp] 4 "\n\n(fn STR)"]) (defalias 'anzu--evaluate-occurrence #[1285 "\300\301\"\302!\211\204\303\202`\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216c\210eb\210\315\316\317#\205]\3201U:\203H\321@A\"\"\210\202N\321\"\210ed{0\202Y\210\202\\\206]\303*\262\207" [overlay-get from-string anzu--compile-replace-text "" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 re-search-forward nil t (error) replace-match] 14 "\n\n(fn OV TO-REGEXP REPLACEMENTS FIXED-CASE FROM-REGEXP)"]) (defalias 'anzu--overlay-sort #[514 "\300!\300!W\207" [overlay-start] 5 "\n\n(fn A B)"]) (defalias 'anzu--overlays-in-range #[514 "\301\"\302\211:\203#@\262\303\304\"\203\211C\244\262A\262\202\305\306\"\2036\307\310G^#\2027\211\262\207" [anzu-replace-threshold overlays-in nil overlay-get anzu-replace sort anzu--overlay-sort cl-subseq 0] 11 "\n\n(fn BEG END)"]) (put 'anzu--overlays-in-range 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--propertize-to-string #[257 "\206\301\302P\303\304#\207" [anzu-replace-to-string-separator "" propertize face anzu-replace-to] 6 "\n\n(fn STR)"]) (put 'anzu--propertize-to-string 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--replaced-literal-string #[771 "\301\302!\303!\"\304\305!\"\205\306?\307$\207" [case-fold-search buffer-substring-no-properties overlay-start overlay-end string-match regexp-quote replace-match t] 9 "\n\n(fn OV REPLACED FROM)"]) (put 'anzu--replaced-literal-string 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--append-replaced-string #[1799 "\305\230?\205\301rq\210 \205'\306\307\306\310\311#)\266\203)?\262^\312\"\306\211:\203Q@\262\313\314\"\203J\211C\244\262A\262\2024\315\316\" \203d\317\305G ^#\202e\211\262\266\205\211\205\276\211@\204\224\211\n\320\321!\322!\"\311\323!\"\205\217\324 ?\310$\266\204\202\242\325  ?%T\262\326\327\f\206\253\330\331P\332\333#\266\202#\266A\266\202\202i\262*\207" [anzu--last-replace-input case-fold-search inhibit-changing-match-data anzu-replace-threshold anzu-replace-to-string-separator 0 nil "[A-Z]" t string-match overlays-in overlay-get anzu-replace sort anzu--overlay-sort cl-subseq buffer-substring-no-properties overlay-start overlay-end regexp-quote replace-match anzu--evaluate-occurrence overlay-put after-string "" propertize face anzu-replace-to] 20 "\n\n(fn CONTENT BUF BEG END USE-REGEXP OVERLAY-LIMIT FROM)"]) (defalias 'anzu--outside-overlay-limit #[514 "\212Z\\b\210\301 )\207" [anzu--outside-point line-end-position] 5 "\n\n(fn ORIG-BEG ORIG-LIMIT)"]) (put 'anzu--outside-overlay-limit 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--read-to-string #[1542 "\211CCp\242\305\306\n\307 !#\310\211\211C\310C\311 \203= \240\210\n\242\212 Z\\b\210\312 )\266\202\240\210\310\313\314\315\316\317\n#\320\"\321$\216\313\314\322\316\317 \f&\323\"\324$\310C\211\313\314\325\316\317\"\326\"\327$\240\210\313\314\330\316\317!\331\"\327$\216\332\333\242\"\210\334\310\211\211\f\310\335&\335\240\210)\266\202+\266\207\207" [blink-matching-paren history-add-new-input anzu--last-replace-input anzu--outside-point query-replace-from-history-variable format "%s %s with: " query-replace-descr nil "" line-end-position make-byte-code 0 "\301\242\205\303\301\242!\210\301\304\240\210\302\242?\205\300b\207" vconcat vector [cancel-timer nil] 2 "\306\307\310]\311\312\313\314\315\316\300\301\302\303\304\305&\317\"\320$#\240\207" [run-with-idle-timer 0.01 repeat make-byte-code 0 "\306\307 \206\310 !r\311\312\313\314\315!\316\"\317$\216\320@\321\"\210\322\323 \305\301\242\302\303\304\242\300&*\207" vconcat vector [internal--before-with-selected-window active-minibuffer-window minibuffer-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord anzu--append-replaced-string minibuffer-contents] 9 anzu-input-idle-delay] 15 "\302\303\301\242\"\210\300 \207" [remove-hook minibuffer-setup-hook] 3 "\301\302\300\242\"\207" [remove-hook minibuffer-setup-hook] add-hook minibuffer-setup-hook read-from-minibuffer t] 27 "\n\n(fn FROM PROMPT BEG END USE-REGEXP OVERLAY-LIMIT)"]) (defalias 'anzu--query-replace-read-to #[1542 "\301\302&\303\304\305$\210\303\306 B\304\305$\210\211\262\"\207" [query-replace-to-history-variable query-replace-compile-replacement anzu--read-to-string add-to-history nil t anzu--query-defaults] 14 "\n\n(fn FROM PROMPT BEG END USE-REGEXP OVERLAY-LIMIT)"]) (defalias 'anzu--overlay-limit #[0 "\212\300\301!\210\302y\210`)\207" [move-to-window-line -1 1] 2]) (defalias 'anzu--query-from-at-cursor #[1028 "\302\303!\211\204 \304\305!\210\306\307!\310Q\311\312\312&\210\313 \210\211\262\207" [anzu--cached-count anzu--total-matched thing-at-point symbol error "No symbol at cursor!!" "\\_<" regexp-quote "\\_>" anzu--count-and-highlight-matched t force-mode-line-update] 14 "\n\n(fn BUF BEG END OVERLAY-LIMIT)"]) (defalias 'anzu--query-from-isearch-string #[1285 "\304\305&\210 \306 \210\307 \310\305$\210\207" [isearch-string anzu--cached-count anzu--total-matched query-replace-from-history-variable anzu--count-and-highlight-matched t force-mode-line-update add-to-history nil] 13 "\n\n(fn BUF BEG END USE-REGEXP OVERLAY-LIMIT)"]) (defalias 'anzu--thing-begin #[257 "\300!\211\203\f\211@\202\300\301!\211\203\211@\202`\262\207" [bounds-of-thing-at-point symbol] 4 "\n\n(fn THING)"]) (defalias 'anzu--thing-end #[257 "\300!\211\203\f\211A\202 d\207" [bounds-of-thing-at-point] 3 "\n\n(fn THING)"]) (put 'anzu--thing-end 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--region-begin #[771 "\203\301 \207\203\302 \207\203\303!\207\211\203e\207`\207" [current-prefix-arg region-beginning line-beginning-position anzu--thing-begin] 5 "\n\n(fn USE-REGION THING BACKWARD)"]) (defalias 'anzu--line-end-position #[257 "\212\211Sy\210\300 )\207" [line-end-position] 2 "\n\n(fn NUM)"]) (put 'anzu--line-end-position 'byte-optimizer 'byte-compile-inline-expand) (defalias 'anzu--region-end #[514 "\203\301 \207\203\302!\212\211Sy\210\303 )\207\211\203*\211\304!\211\203(\211A\202)d\207d\207" [current-prefix-arg region-end prefix-numeric-value line-end-position bounds-of-thing-at-point] 5 "\n\n(fn USE-REGION THING)"]) (defalias 'anzu--begin-thing #[514 "\203 \211\203 \207\203\211\204\300\207\301\207" [symbol nil] 3 "\n\n(fn AT-CURSOR THING)"]) (defalias 'anzu--replace-backward-p #[257 "\300\301!\205 \211\205 \211\302W\207" [boundp list-matching-lines-prefix-face 0] 3 "\n\n(fn PREFIX)"]) (defalias 'anzu--construct-perform-replace-arguments #[1799 "\203\300\301\211\n\n\n\257\n\207\300\301\211\n\n\257 \207" [t nil] 17 "\n\n(fn FROM TO DELIMITED BEG END BACKWARD QUERY)"]) (defalias 'anzu--construct-query-replace-arguments #[1542 "\211\203 \257\207\257\207" [] 12 "\n\n(fn FROM TO DELIMITED BEG END BACKWARD)"]) (defalias 'anzu--current-replaced-index #[257 "\301\211\211\302\211\301:\203D@\262\203\303\202T\262\304!\262U\2035\262\301\211\262\2026\302\203DA\262\301\262\202\207" [anzu--replaced-markers nil t 1 marker-position] 10 "\n\n(fn CURPOINT)"]) (byte-code "\300\301\302\303#\210\304\305\306\307\310$\210\311\305\310\"\207" [put anzu--current-replaced-index byte-optimizer byte-compile-inline-expand ad-add-advice replace-highlight (anzu-replace-highlight nil t (advice lambda nil (when (and (eq anzu--state 'replace) anzu--replaced-markers) (let ((index (anzu--current-replaced-index (ad-get-arg 0)))) (when (or (not index) (/= index anzu--current-position)) (force-mode-line-update) (setq anzu--current-position (or index 1))))))) before nil ad-activate] 5) (defalias 'anzu--set-replaced-markers #[1028 "\212b\210\3012Yp\203\302\202\303\211\304#\203U\305\224\306 \211\223\210\211B\211\266\305\224\305\225U\203Cm\203@\307\301\310\"\210\202C\311u\210\203`V\203\307\301\310\"\210\202\310\266\2020)\207" [anzu--replaced-markers --cl-block-nil-- re-search-forward search-forward t 0 make-marker throw nil 1] 12 "\n\n(fn FROM BEG END USE-REGEXP)"]) #@71 (fn USE-REGEXP &key AT-CURSOR THING PREFIX-ARG (QUERY t) ISEARCH-P) (defalias 'anzu--query-replace-common #[385 "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"\206\313A@\306\314\"A@\211\203O\211@\315>\2037\211AA\262\202$\316>A@\203F\317\262\202$\320\321@\"\210\202$\210\322\323!\210\324 `\325!\326 \327\330\n\n\"#\331 \"\332 \f\n$ \205} \333=?p\317C\n\203\215 \203\215\334\335!\210\336\337\340\341\342     %\343\"\344$\216 \203\272\203\272\317\262\345\n$\202\330\n\203\315\346 %\202\330\347 %\211:\203\350\211A@\262 \202 \350\351\"\203\377\352\337\225\"\352\337\211\224#\262\202 \353   &\354  #\210\355  $\210\356\3375\3576!6\335\240\2107\2056?7\203R\360\361\362   &\"\202b\360\363\364   &\")\266\202)\266\212)\207" [prefix-arg current-prefix-arg anzu-deactivate-region anzu--last-replaced-count anzu--total-matched anzu--state plist-member :at-cursor :thing :prefix-arg :query (nil t) :isearch-p (:at-cursor :thing :prefix-arg :query :isearch-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:at-cursor :thing :prefix-arg :query :isearch-p)" anzu--cons-mode-line replace-query use-region-p anzu--replace-backward-p anzu--overlay-limit anzu--region-begin anzu--begin-thing anzu--region-end anzu--query-prompt - deactivate-mark t make-byte-code 0 "\304\242\204 \306\303\301\302#\210 \307U\203\300b\210\310\311 \"\210\312 \313 \210\314 \207" vconcat vector [anzu--current-position anzu--clear-overlays 0 mapc #[257 "\211\300\211\223\207" [nil] 4 "\n\n(fn M)"] nil anzu--reset-mode-line force-mode-line-update anzu--replaced-markers] 4 anzu--query-from-at-cursor anzu--query-from-isearch-string anzu--query-from-string string-match "" substring-no-properties anzu--query-replace-read-to anzu--clear-overlays anzu--set-replaced-markers replace reverse apply perform-replace anzu--construct-perform-replace-arguments query-replace anzu--construct-query-replace-arguments anzu--current-position anzu--replaced-markers case-fold-search] 28 (#$ . 31501)]) #@42 Replace symbol at cursor with to-string. (defalias 'anzu-query-replace-at-cursor #[0 "\300\301\302\301#\207" [anzu--query-replace-common t :at-cursor] 4 (#$ . 33628) nil]) #@70 Replace symbol at cursor within `anzu-replace-at-cursor-thing' area. (defalias 'anzu-query-replace-at-cursor-thing #[0 "\301\302\303\302\304%\207" [anzu-replace-at-cursor-thing anzu--query-replace-common t :at-cursor :thing] 6 (#$ . 33806) nil]) #@44 anzu version of `query-replace'. (fn ARG) (defalias 'anzu-query-replace #[257 "\300\301\302#\207" [anzu--query-replace-common nil :prefix-arg] 5 (#$ . 34059) "p"]) #@51 anzu version of `query-replace-regexp'. (fn ARG) (defalias 'anzu-query-replace-regexp #[257 "\300\301\302#\207" [anzu--query-replace-common t :prefix-arg] 5 (#$ . 34231) "p"]) #@51 anzu-query-replace-at-cursor-thing without query. (defalias 'anzu-replace-at-cursor-thing #[0 "\301 \302\303\304\303\305\306\307&\210\310!b\210\211\307\211\223\207" [anzu-replace-at-cursor-thing point-marker anzu--query-replace-common t :at-cursor :thing :query nil marker-position] 9 (#$ . 34415) nil]) (defalias 'anzu--isearch-query-replace-common #[514 "\304\305\306\"\210\307 \210\305\310!\311W \203A\211\203 `V\202! `W\203A\n\203> \203>\211\2037\312 `V\202;\312 `W\204A b\210\313\314\315\306%)\207" [isearch-recursive-edit isearch-other-end transient-mark-mode mark-active isearch-done nil t isearch-clean-overlays prefix-numeric-value 0 mark anzu--query-replace-common :prefix-arg :isearch-p] 10 "\n\n(fn USE-REGEXP ARG)"]) #@52 anzu version of `isearch-query-replace'. (fn ARG) (defalias 'anzu-isearch-query-replace #[257 "\300\301\"\207" [anzu--isearch-query-replace-common nil] 4 (#$ . 35169) "p"]) #@59 anzu version of `isearch-query-replace-regexp'. (fn ARG) (defalias 'anzu-isearch-query-replace-regexp #[257 "\300\301\"\207" [anzu--isearch-query-replace-common t] 4 (#$ . 35350) "p"]) (provide 'anzu)