;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307%\207" [require cl-lib custom-declare-group zop-to-char nil "An enhanced `zap-to-char'." :group convenience] 6) #@107 Help format text to display near the prompt. This text is displayed in mode-line if minibuffer is in use. (defconst zop-to-char-help-format-string " [%s:kill, %s:delete, %s:copy, %s:next, %s:prec, %s:abort, %s:quit, %s:erase %s:mark]" (#$ . 249)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\310\321&\210\300\322\302\303\323DD\324\306\307\310\325&\210\300\326\302\303\327DD\330\306\307\310\331&\210\300\332\302\303\333DD\334\306\307\310\335&\210\300\336\302\303\337DD\340\306\307\310\341&\210\300\342\302\303\343DD\344\306\307\310\345&\210\300\346\302\303\347DD\350\306\307\310\351&\210\300\352\302\303\353DD\354\306\307\310\355&\210\300\356\302\303\357DD\360\306\307\310\361&\207" [custom-declare-variable zop-to-char-case-fold-search funcall function #[0 "\300\207" [smart] 1] "Add 'smart' option to `case-fold-search'.\nWhen smart is enabled, ignore case in the search\nif input character is not uppercase.\nOtherwise, with a nil or t value, the behavior is same as\n`case-fold-search'.\nDefault value is smart, other possible values are nil and t." :group zop-to-char :type (choice (const :tag "Ignore case" t) (const :tag "Respect case" nil) (other :tag "Smart" 'smart)) zop-to-char-kill-keys #[0 "\300\207" [(13 11)] 1] "Keys to kill the region text." (repeat (choice character symbol integer)) zop-to-char-delete-keys #[0 "\300\207" [(12 nil)] 1] "Keys to delete the region text." (repeat (choice character symbol integer)) zop-to-char-copy-keys #[0 "\300\207" [(3 134217847)] 1] "Keys to copy the region text to the kill ring." (repeat (choice character symbol integer)) zop-to-char-next-keys #[0 "\300\207" [(right 6)] 1] "Keys to move point to the next match." (repeat (choice character symbol integer)) zop-to-char-prec-keys #[0 "\300\207" [(left 2)] 1] "Keys to move point to the preceding match." (repeat (choice character symbol integer)) zop-to-char-erase-keys #[0 "\300\207" [(127 4)] 1] "Keys to delete the current input." (repeat (choice character symbol integer)) zop-to-char-quit-at-point-keys #[0 "\300\207" [(17 nil)] 1] "Keys to quit and leave point at its current location." (repeat (choice character symbol integer)) zop-to-char-quit-at-pos-keys #[0 "\300\207" [(7 27)] 1] "Keys to quit and leave point at its original location." (repeat (choice character symbol integer)) zop-to-char-mark-region-keys #[0 "\300\207" [(67108896)] 1] "Keys to quit and mark region." (repeat (choice character symbol integer)) zop-to-char-mode-line-idle-delay #[0 "\300\207" [120] 1] "Display help string in mode-line that many time." integer] 8) #@12 (fn SEQ) (defalias 'zop-to-char--mapconcat-help-keys #[257 "\211\300\301:\203$@\262\203\211\302\303\"P\262\211\304P\262A\262\202\211\305GSO\207" [nil "" single-key-description t "/" 0] 8 (#$ . 2917)]) (defalias 'zop-to-char-help-string #[0 "\306\307 !\307\n!\307 !\307\f!\307 !\307!\307 !\307\n!\307 !&\n\207" [zop-to-char-help-format-string zop-to-char-kill-keys zop-to-char-delete-keys zop-to-char-copy-keys zop-to-char-next-keys zop-to-char-prec-keys format zop-to-char--mapconcat-help-keys zop-to-char-quit-at-pos-keys zop-to-char-quit-at-point-keys zop-to-char-erase-keys zop-to-char-mark-region-keys] 12]) (defvar zop-to-char--delete-up-to-char nil) (defvar zop-to-char--last-input nil) #@55 Display PROMPT and DOC in mode-line. (fn PROMPT DOC) (defalias 'zop-to-char-info-in-mode-line #[514 "r\303\304\305 !r\306\307\"\216\310@\311\"\210\312 *\262!q\210\313QP\314 \210\315\n!\210)\314 )\207" [zop-to-char--last-input mode-line-format zop-to-char-mode-line-idle-delay window-buffer internal--before-with-selected-window minibuffer-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord minibuffer-selected-window " " force-mode-line-update sit-for] 7 (#$ . 3639)]) #@12 (fn STR) (defalias 'zop-to-char--set-case-fold-search #[257 "\302=\203\303\304\305\"?\205\306)\207\207" [zop-to-char-case-fold-search case-fold-search smart nil string-match "[[:upper:]]" t] 4 (#$ . 4179)]) #@20 (fn ARG BEG END) (defalias 'zop-to-char--beg-end #[771 "\203\301W\203TD\207SD\207D\207" [zop-to-char--delete-up-to-char 0] 5 (#$ . 4402)]) #@251 An enhanced version of `zap-to-char'. Argument ARG, when given is index of occurrence to jump to. For example, if ARG is 2, `zop-to-char' will jump to second occurrence of given character. If ARG is negative, jump in backward direction. (fn ARG) (defalias 'zop-to-char #[257 "`\306\211T\"\307\310C\310C\311V\203\312\202\313\314\203\315\202 \316\317\320#\314\321 \317\320#\322\317\323#\210m\2037\324\262 \307\325p!\240\203[\326\302!\203O\n\203O\327\330!\210\331\332\333\334%\240\210\335\336$\216\337\325p!?\205sR!\340!\341 ! >\203\221\342\343\344#\"\266\310\202\272\f>\203\252\342\345\344#\"\210\nb\266\310\202\272 >\203\273\346\262\f\312\262\266\202H4>\203\315\324\262\f\313\262\266\202H5>\203\346\307\262 \307\nb\210\347\n!\266\202H6>\203\374\342\350\344#\"\266\310\202\2727>\203 \266\310\202\2728>\203\nb\266\310\202\2729>\2034\204( u\210\351 \310\333#\266\310\202\272\352!\205C\353!\262 \211\266\203\205\272\3541\264\3551\255\3561\245\357!:\311W\203t\360\242\205k\361 \333\f[$\210\202\203\346u\210\362\310\333\f$\210\324u\210`X\203\225\363 T`#\202\235\363 `T#)000\210\202e00\310\266\202e0\310\266\202e\310\266\202e)\207" [zop-to-char--delete-up-to-char zop-to-char--last-input eldoc-in-minibuffer-mode zop-to-char-kill-keys zop-to-char-copy-keys zop-to-char-next-keys make-overlay "" nil 0 "-> " "<- " propertize "Zap up to char: " "Zap to char: " face minibuffer-prompt zop-to-char-help-string overlay-put region -1 minibufferp boundp cancel-function-timers eldoc-run-in-minibuffer run-with-idle-timer 0.1 t zop-to-char-info-in-mode-line make-closure #[0 "\305\306!\210\301\242\203\307\301\242!\210\301\306\240\210\302\242\203'\310\303!\203' \203'\311\f\312\313#\210\314 \210\315\300!\207" [V0 V1 V2 eldoc-in-minibuffer-mode eldoc-idle-delay message nil cancel-timer boundp run-with-idle-timer repeat eldoc-run-in-minibuffer force-mode-line-update delete-overlay] 4] read-key overlay-start overlay-end apply kill-region zop-to-char--beg-end copy-region-as-kill 1 delete-overlay delete-region push-mark characterp string (beginning-of-buffer) (end-of-buffer) (scan-error) zop-to-char--set-case-fold-search search-backward field-beginning search-forward move-overlay zop-to-char-prec-keys zop-to-char-erase-keys zop-to-char-delete-keys zop-to-char-quit-at-point-keys zop-to-char-quit-at-pos-keys zop-to-char-mark-region-keys case-fold-search] 18 (#$ . 4562) "p"]) #@257 An enhanced version of `zap-up-to-char'. Argument ARG, when given is index of occurrence to jump to. For example, if ARG is 2, `zop-up-to-char' will jump to second occurrence of given character. If ARG is negative, jump in backward direction. (fn ARG) (defalias 'zop-up-to-char #[257 "\301\302!)\207" [zop-to-char--delete-up-to-char t zop-to-char] 3 (#$ . 7090) "p"]) (provide 'zop-to-char)