;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:55 2007 ;;; from file /home/cyd/emacs/lisp/isearchb.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`isearchb.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\301%\207" [require iswitchb custom-declare-group isearchb nil "Switch between buffers using a mechanism like isearch." :group] 6) #@88 *Number of idle seconds before isearchb turns itself off. If nil, don't use a timeout. (custom-declare-variable 'isearchb-idle-timeout 'nil '(#$ . -739) :type '(choice (integer :tag "Seconds") (const :tag "Disable" nil)) :group 'isearchb) #@59 *If non-nil, show possible completions in the minibuffer. (custom-declare-variable 'isearchb-show-completions 't '(#$ . -984) :type 'boolean :group 'isearchb) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\304\207" [current-load-list isearchb-start-buffer default-boundp set-default nil isearchb-last-buffer isearchb-idle-timer] 3) #@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 (#$ . 1408)]) #@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 (#$ . 1878) 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-char 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 (#$ . 2377) nil]) #@39 Setup isearchb on the given MODIFIER. (defalias 'isearchb-set-keybindings #[(modifier) "\304\305 W\203&\306\n\307!\"\310=\203\311\n\307 D!\312#\210T\211\202*\313\207" [i #1=#:--cl-dotimes-temp-- global-map modifier 128 0 lookup-key vector self-insert-command define-key isearchb nil] 6 (#$ . 3055)]) #@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\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-char 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 (#$ . 3373)]) #@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 (#$ . 4327) nil]) (provide 'isearchb)