%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\203 G\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)
Zerion Mini Shell 1.0