;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\301%\210\307\310\304\311\312\313\306\303&\210\307\314\315\316\312\317\306\303&\207" [require iswitchb custom-declare-group isearchb nil "Switch between buffers using a mechanism like isearch." :group custom-declare-variable isearchb-idle-timeout "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 t "If non-nil, show possible completions in the minibuffer." boolean] 8) (defvar isearchb-start-buffer nil) (defvar isearchb-last-buffer nil) (defvar isearchb-idle-timer nil) #@55 Called by isearchb to terminate a search in progress. (defalias 'isearchb-stop #[(&optional return-to-buffer ignore-command) "\306\307\310\"\210\203\311 !\210\202  \203\312 !\210\313\f\203%\314\211\315\313!\207" [return-to-buffer isearchb-start-buffer isearchb-last-buffer isearchb-idle-timer ignore-command this-command remove-hook pre-command-hook isearchb-follow-char switch-to-buffer cancel-timer nil ignore message last-command] 4 (#$ . 1059)]) #@129 isearchb's custom version of the `iswitchb' command. Its purpose is to pass different call arguments to `iswitchb-read-buffer'. (defalias 'isearchb-iswitchb #[nil "\305\306\307\310\211\211\n\311&\f\312=\203\313\314!\202- \205-\315 !\203*\316 !\202-\317 !+\207" [prompt iswitchb-method iswitchb-text buf iswitchb-exit "iswitch " samewindow iswitchb-read-buffer nil t findfile call-interactively find-file get-buffer iswitchb-visit-buffer iswitchb-possible-new-buffer] 7 (#$ . 1529) nil]) #@62 Switch to buffer matching a substring, based on chars typed. (defalias 'isearchb #[nil "\306=\204\307 \204\310\311\307!\210\n\203 \312 \313\314\n!!P\315 \210\f@\211\205-\316 !\211\204<\317\312!\210\320 \202b\321!\210\203P\322\323 \324 !#\202b\fG\325U\203^\322\326 \"\202b\322\327 \"*\207" [last-command iswitchb-text last-command-event iswitchb-rescan iswitchb-matches match 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" buf isearchb-show-completions] 6 (#$ . 2033) nil]) #@39 Setup isearchb on the given MODIFIER. (defalias 'isearchb-set-keybindings #[(modifier) "\304\305 W\205&\306\n\307!\"\310=\203\311\n\307 D!\312#\210T\211\202*\207" [i --dotimes-limit-- global-map modifier 128 0 lookup-key vector self-insert-command define-key isearchb] 6 (#$ . 2733)]) #@70 Function added to `post-command-hook' to handle the isearchb "mode". (defalias 'isearchb-follow-char #[nil "\306 \307>\203\310 \211\203G\311U\204\312 \202\246\313\232\2043\314\232\2043\315\232\2043\316\232\203Q\317\n\320\nGS#\211G\320U\203J\312\321\211\"\210\202\222\306\322\202\222\323\232\204]\324\232\203b\325\202\222\326\267\202\207\327 \210\306\322\202\222\330 \210\306\322\202\222\331 \210\312\321\211\"\210\202\222\332 \"\333=\203\222\322\205\246?\205\246\334\306\312#\211)\207" [keys last-command iswitchb-text last-command-event this-command global-map nil (isearchb isearchb-activate) this-command-keys 1 isearchb-stop "" "" [backspace] [delete] substring 0 t isearchb " " [tab] isearchb-iswitchb #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("" 104 "" 114 "" 124)) iswitchb-next-match iswitchb-prev-match ding lookup-key self-insert-command run-with-idle-timer isearchb-idle-timeout isearchb-idle-timer] 5 (#$ . 3036)]) #@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 #[nil "\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 (#$ . 4074) nil]) (provide 'isearchb)