ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/isearchb.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 1061)])
#@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 (#$ . 1531) 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 (#$ . 2035) 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 (#$ . 2735)])
#@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\261 \313\232\2043 \314\232\2043 \315\232\2043 \316\232\203P \n\317\nGSO\211G\317U\203I \312\320\211\"\210\202\235 \306\321\202\235 \322\232\204\\ \323\232\203a \324\202\235 \325\232\203q \326 \210\306\321\202\235 \327\232\203\201 \330 \210\306\321\202\235 \331\232\203\222 \332 \210\312\320\211\"\210\202\235 \333
\"\334=\203\235 \321 \205\261 ?\205\261 \335 \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] 0 t isearchb " " [tab] isearchb-iswitchb "" iswitchb-next-match "" iswitchb-prev-match "" ding lookup-key self-insert-command run-with-idle-timer isearchb-idle-timeout isearchb-idle-timer] 5 (#$ . 3038)])
#@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=\203 \305\306\307\"\207\310=\203% \203 \311 !\210\202 \312\313!\210\305\306\307\"\207\314\315!\210\306p\316\317\320\"\207" [last-command isearchb-last-buffer iswitchb-text isearchb-start-buffer isearchb isearchb-stop nil t isearchb-activate switch-to-buffer error "isearchb: There is no previous buffer to toggle to" message "isearchb: " add-hook pre-command-hook isearchb-follow-char] 3 (#$ . 3993) nil])
(provide 'isearchb)
Kontol Shell Bypass