;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\311\312\313DD\314\315\316%\210\307\317\311\312\320DD\321\315\322%\207" [require iswitchb custom-declare-group isearchb nil "Switch between buffers using a mechanism like isearch." :group custom-declare-variable isearchb-idle-timeout funcall function #[0 "\300\207" [nil] 1 #1=""] "Number of idle seconds before isearchb turns itself off.\nIf nil, don't use a timeout." :type (choice (integer :tag "Seconds") (const :tag "Disable" nil)) isearchb-show-completions #[0 "\300\207" [t] 1 #1#] "If non-nil, show possible completions in the minibuffer." boolean] 6) (defvar isearchb-start-buffer nil) (defvar isearchb-last-buffer nil) (defvar isearchb-idle-timer nil)#@103 Called by isearchb to terminate a search in progress. (fn &optional RETURN-TO-BUFFER IGNORE-COMMAND) (defalias 'isearchb-stop #[512 "\305\306\307\"\210\203\310!\210\202\n\203\311\n!\210\312\211\203$\313\211\314\312!\207" [isearchb-start-buffer isearchb-last-buffer isearchb-idle-timer this-command last-command remove-hook pre-command-hook isearchb-follow-char switch-to-buffer cancel-timer nil ignore message] 6 (#$ . 808)])#@129 isearchb's custom version of the `iswitchb' command. Its purpose is to pass different call arguments to `iswitchb-read-buffer'. (defalias 'isearchb-iswitchb #[0 "\303\304\305\306\211\211 \307&\n\310=\203\311\312!\202*\211\205*\313!\203'\314!\202*\315!)\207" [iswitchb-method iswitchb-text iswitchb-exit samewindow iswitchb-read-buffer "iswitch " nil t findfile call-interactively find-file get-buffer iswitchb-visit-buffer iswitchb-possible-new-buffer] 7 (#$ . 1255) nil])#@62 Switch to buffer matching a substring, based on chars typed. (defalias 'isearchb #[0 "\306=\204\307 \204\310\311\307!\210\n\203 \312 \313\314\n!!P\315 \210\f@\211\205,\316!\211\2047\317\312!\210\320 \207\321!\210 \203G\322\323 \324 !#\207\fG\325U\203S\322\326 \"\207\322\327 \"\207" [last-command iswitchb-text last-command-event iswitchb-rescan iswitchb-matches isearchb-show-completions isearchb nil "" iswitchb-make-buflist t char-to-string event-basic-type iswitchb-set-matches get-buffer isearchb-stop isearchb-iswitchb switch-to-buffer message "isearchb: %s%s" iswitchb-completions 1 "isearchb: %s (only match)" "isearchb: %s"] 7 (#$ . 1744) nil])#@54 Setup isearchb on the given MODIFIER. (fn MODIFIER) (defalias 'isearchb-set-keybindings #[257 "\301\211\302W\205#\303\304!\"\305=\203\306\304D!\307#\210\211T\262\202\207" [global-map 0 128 lookup-key vector self-insert-command define-key isearchb] 7 (#$ . 2419)])#@70 Function added to `post-command-hook' to handle the isearchb "mode". (defalias 'isearchb-follow-char #[0 "\306\307>\203\310 \211\262\203\211G\311U\204\312 \207\211\313\232\2041\211\314\232\2041\211\315\232\2041\211\316\232\203N \317 GSO\211G\317U\203G\312\320\211\"\210\202\217\306\321\202\217\211\322\232\204Z\211\323\232\203_\324\202\217\211\325\267\202\204\326 \210\306\321\202\217\327 \210\306\321\202\217\330 \210\312\320\211\"\210\202\217\331\f\"\332=\203\217\321 \205\241?\205\241\333 \306\312#\211\207" [last-command iswitchb-text last-command-event this-command global-map isearchb-idle-timeout nil (isearchb isearchb-activate) this-command-keys 1 isearchb-stop "" "" [backspace] [delete] 0 t isearchb " " [tab] isearchb-iswitchb #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("" 101 "" 111 "" 121)) iswitchb-next-match iswitchb-prev-match ding lookup-key self-insert-command run-with-idle-timer isearchb-idle-timer] 6 (#$ . 2700)])#@209 Active isearchb mode for subsequent alphanumeric keystrokes. Executing this command again will terminate the search; or, if the search has not yet begun, will toggle to the last buffer accessed via isearchb. (defalias 'isearchb-activate #[0 "\304\267\202\305\306\307\"\207 \203\310 !\210\202\311\312!\210\305\306\307\"\207\313\314!\210\306p\315\316\317\"\207" [last-command isearchb-last-buffer iswitchb-text isearchb-start-buffer #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (isearchb 6 isearchb-activate 11)) isearchb-stop nil t switch-to-buffer error "isearchb: There is no previous buffer to toggle to" message "isearchb: " add-hook pre-command-hook isearchb-follow-char] 3 (#$ . 3734) nil]) (provide 'isearchb)