| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/isearchb.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:24 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/isearchb.el ;;; in Emacs version 24.3.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 (#$ . 1202)]) #@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\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] 6 (#$ . 1672) 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\n!P\314 \210\f@\211 \205+ \315 !\211 \204: \316\312!\210\317 \202` \320!\210\203N \321\322 \323 !#\202` \fG\324U\203\\ \321\325 \"\202` \321\326 \"*\207" [last-command iswitchb-text last-command-event iswitchb-rescan iswitchb-matches match isearchb nil "" iswitchb-make-buflist t char-to-string 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 (#$ . 2171) 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 (#$ . 2850)]) #@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 (#$ . 3153)]) #@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 (#$ . 4108) nil]) (provide 'isearchb)