| 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/iswitchb.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/iswitchb.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\307\306\310\311\312\311\313\311\314&
\210\315\316\317\320\321\322\306\303&\210\315\323\324\325\321\326\306\303&\210\327\323\330\331#\210\315\332\304\333\321\334\306\303&\210\315\335\304\336\321\322\337\340\341\342\306\303& \207" [require font-lock custom-declare-group iswitchb nil "Switch between buffers using substrings." :group convenience completion :link (emacs-commentary-link :tag "Commentary" "iswitchb.el") (url-link "http://www.anc.ed.ac.uk/~stephen/emacs/") (emacs-library-link :tag "Lisp File" "iswitchb.el") custom-declare-variable iswitchb-case case-fold-search "Non-nil if searching of buffer names should ignore case.\nIf this is non-nil but the user input has any upper case letters, matching\nis temporarily case sensitive." :type boolean iswitchb-buffer-ignore '("^ ") "List of regexps or functions matching buffer names to ignore.\nFor example, traditional behavior is not to list buffers whose names begin\nwith a space, for which the regexp is `^ '. See the source file for\nexample functions that filter buffer names." (repeat (choice regexp function)) put risky-local-variable t iswitchb-max-to-show "If non-nil, limit the number of names shown in the minibuffer.\nIf this value is N, and N is greater than the number of matching\nbuffers, the first N/2 and the last N/2 matching buffers are\nshown. This can greatly speed up iswitchb if you have a\nmultitude of buffers open." (choice (const :tag "Show all" nil) integer) iswitchb-use-virtual-buffers "If non-nil, refer to past buffers when none match.\nThis feature relies upon the `recentf' package, which will be\nenabled if this variable is configured to a non-nil value." :require recentf :set #[(sym value) "\203 \302\303!\210 L\207" [value sym recentf-mode 1] 2]] 14)
(defvar iswitchb-virtual-buffers nil)
(byte-code "\302\303\304\305\306\307\310\311&\210\302\312\313\314\306\315\310\311&\210\302\316\317\320\306\321\310\311&\210\302\322\323\324\306\321\310\311&\210\302\325\323\326\306\321\310\311&\210\327\330\331\317#\210\332\317\211\203c @\330N\203\\ \331N\204\\ \333\331\330N#\210 A\211\204E *\334\330\331\335#\210\302\331\323\336\306\321\310\311&\210\302\337\317\340\306\321\310\311&\210\302\341\317\342\306\307\310\311&\210\302\343\344\345\306\346\310\311&\210\302\347\350\351\306\352\310\311&\210\302\353\317\354\306\307\310\311&\210\355\356\357\360\361\335\310\311&\210\355\362\363\364\361\335\310\311&\210\355\365\366\367\361\335\310\311&\210\355\370\371\372\361\335\310\311&\207" [prop --dolist-tail-- custom-declare-variable iswitchb-cannot-complete-hook 'iswitchb-completion-help "Hook run when `iswitchb-complete' can't complete any more.\nThe most useful values are `iswitchb-completion-help', which pops up a\nwindow with completion alternatives, or `iswitchb-next-match' or\n`iswitchb-prev-match', which cycle the buffer list." :type hook :group iswitchb iswitchb-default-method 'always-frame "How to switch to new buffer when using `iswitchb-buffer'.\nPossible values:\n`samewindow' Show new buffer in same window\n`otherwindow' Show new buffer in another window (same frame)\n`display' Display buffer in another window without switching to it\n`otherframe' Show new buffer in another frame\n`maybe-frame' If a buffer is visible in another frame, prompt to ask if you\n you want to see the buffer in the same window of the current\n frame or in the other frame.\n`always-frame' If a buffer is visible in another frame, raise that\n frame. Otherwise, visit the buffer in the same window." (choice (const samewindow) (const otherwindow) (const display) (const otherframe) (const maybe-frame) (const always-frame)) iswitchb-regexp nil "Non-nil means that `iswitchb' will do regexp matching.\nValue can be toggled within `iswitchb' using `iswitchb-toggle-regexp'." boolean iswitchb-newbuffer t "Non-nil means create new buffer if no buffer matches substring.\nSee also `iswitchb-prompt-newbuffer'." iswitchb-prompt-newbuffer "Non-nil means prompt user to confirm before creating new buffer.\nSee also `iswitchb-newbuffer'." defvaralias iswitchb-use-fonts iswitchb-use-faces (saved-value saved-variable-comment) put make-obsolete-variable "22.1" "Non-nil means use font-lock faces for showing first match." iswitchb-use-frame-buffer-list "Non-nil means use the currently selected frame's buffer list." iswitchb-make-buflist-hook "Hook to run when list of matching buffers is created." iswitchb-delim "," "Delimiter to put between buffer names when displaying results." string iswitchb-all-frames 'visible "Argument to pass to `walk-windows' when iswitchb is finding buffers.\nSee documentation of `walk-windows' for useful values." (choice (const :tag "Selected frame only" nil) (const :tag "All existing frames" t) (const :tag "All visible frames" visible) (const :tag "All frames on this terminal" 0)) iswitchb-minibuffer-setup-hook "Iswitchb-specific customization of minibuffer setup.\n\nThis hook is run during minibuffer setup if `iswitchb' is active.\nFor instance:\n(add-hook 'iswitchb-minibuffer-setup-hook\n '(lambda () (set (make-local-variable 'max-mini-window-height) 3)))\nwill constrain the minibuffer to a maximum height of 3 lines when\niswitchb is running." custom-declare-face iswitchb-single-match ((t (:inherit font-lock-comment-face))) "Iswitchb face for single matching buffer name." :version iswitchb-current-match ((t (:inherit font-lock-function-name-face))) "Iswitchb face for current matching buffer name." iswitchb-virtual-matches ((t (:inherit font-lock-builtin-face))) "Iswitchb face for matching virtual buffer names.\nSee also `iswitchb-use-virtual-buffers'." iswitchb-invalid-regexp ((t (:inherit font-lock-warning-face))) "Iswitchb face for indicating invalid regexp. "] 9)
#@213 Stores the method for viewing the selected buffer.
Its value is one of `samewindow', `otherwindow', `display', `otherframe',
`maybe-frame' or `always-frame'. See `iswitchb-default-method' for
details of values.
(defvar iswitchb-method nil (#$ . 6344))
#@96 Point where minibuffer input ends and completion info begins.
Copied from `icomplete-eoinput'.
(defvar iswitchb-eoinput 1 (#$ . 6603))
(make-variable-buffer-local 'iswitchb-eoinput)
#@263 Stores the current list of buffers that will be searched through.
The list is ordered, so that the most recent buffers come first,
although by default, the buffers visible in the current frame are put
at the end of the list. Created by `iswitchb-make-buflist'.
(defvar iswitchb-buflist nil (#$ . 6792))
#@163 Non-nil means use `iswitchb-buffer' completion feedback.
Should only be set to t by iswitchb functions, so that it doesn't
interfere with other minibuffer usage.
(defvar iswitchb-use-mycompletion nil (#$ . 7103))
#@62 Private variable used by `iswitchb-word-matching-substring'.
(defvar iswitchb-change-word-sub nil (#$ . 7322))
#@59 Stores the string that is common to all matching buffers.
(defvar iswitchb-common-match-string nil (#$ . 7439))
#@67 Non-nil means we need to regenerate the list of matching buffers.
(defvar iswitchb-rescan nil (#$ . 7557))
#@44 Stores the users string as it is typed in.
(defvar iswitchb-text nil (#$ . 7670))
#@53 List of buffers currently matching `iswitchb-text'.
(defvar iswitchb-matches nil (#$ . 7758))
#@42 Minibuffer keymap for `iswitchb-buffer'.
(defvar iswitchb-mode-map (byte-code "\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\330#\210)\207" [map minibuffer-local-map make-sparse-keymap set-keymap-parent define-key "?" iswitchb-completion-help "" iswitchb-next-match "" iswitchb-prev-match " " iswitchb-complete "\n" iswitchb-select-buffer-text "" iswitchb-toggle-regexp "" iswitchb-find-file "" iswitchb-toggle-case " " iswitchb-kill-buffer "
" iswitchb-exit-minibuffer] 4) (#$ . 7858))
#@36 Global keymap for `iswitchb-mode'.
(defvar iswitchb-global-map (byte-code "\304 \305\306\211\2032 \n@\307\310!\203\" \311\312\313 @\" A#\210\202+ \314 @ A $\210\nA\211\204 *)\207" [map b --dolist-tail-- global-map make-sparse-keymap ((switch-to-buffer . iswitchb-buffer) (switch-to-buffer-other-window . iswitchb-buffer-other-window) (switch-to-buffer-other-frame . iswitchb-buffer-other-frame) (display-buffer . iswitchb-display-buffer)) nil fboundp command-remapping define-key vector remap substitute-key-definition] 6) (#$ . 8502))
#@54 History of buffers selected using `iswitchb-buffer'.
(defvar iswitchb-history nil (#$ . 9053))
#@125 Flag to monitor how `iswitchb-buffer' exits.
If equal to `takeprompt', we use the prompt as the buffer name to be
selected.
(defvar iswitchb-exit nil (#$ . 9155))
#@52 Stores original value of `iswitchb-buffer-ignore'.
(defvar iswitchb-buffer-ignore-orig nil (#$ . 9324))
#@30 Default buffer for iswitchb.
(defvar iswitchb-default nil (#$ . 9434))
#@46 Non-nil if matching buffer must be selected.
(defvar iswitchb-require-match nil (#$ . 9511))
#@62 Stores a temporary version of the buffer list being created.
(defvar iswitchb-temp-buflist nil (#$ . 9610))
#@51 List of the buffers visible in the current frame.
(defvar iswitchb-bufs-in-frame nil (#$ . 9724))
#@73 Value we expect to be returned by `minibuffer-depth' in the minibuffer.
(defvar iswitchb-minibuf-depth nil (#$ . 9828))
#@68 Non-nil if we have just inserted a common match in the minibuffer.
(defvar iswitchb-common-match-inserted nil (#$ . 9954))
#@1223 Switch to buffer matching a substring.
As you type in a string, all of the buffers matching the string are
displayed. When you have found the buffer you want, it can then be
selected. As you type, most keys have their normal keybindings,
except for the following:
\<iswitchb-mode-map>
RET Select the buffer at the front of the list of matches. If the
list is empty, possibly prompt to create new buffer.
\[iswitchb-select-buffer-text] Select the current prompt as the buffer.
If no buffer is found, prompt for a new one.
\[iswitchb-next-match] Put the first element at the end of the list.
\[iswitchb-prev-match] Put the last element at the start of the list.
\[iswitchb-complete] Complete a common suffix to the current string that
matches all buffers. If there is only one match, select that buffer.
If there is no common suffix, show a list of all matching buffers
in a separate window.
\[iswitchb-toggle-regexp] Toggle regexp searching.
\[iswitchb-toggle-case] Toggle case-sensitive searching of buffer names.
\[iswitchb-completion-help] Show list of matching buffers in separate window.
\[iswitchb-find-file] Exit iswitchb and drop into `find-file'.
\[iswitchb-kill-buffer] Kill buffer at head of buffer list.
(defalias 'iswitchb #[nil "\304\305\306! \307=\203 \310\311!\2021 \203 \312\313!\2021 \n\2051 \314\n!\203. \315\n!\2021 \316\n!+\207" [prompt iswitchb-invalid-regexp buf iswitchb-exit "iswitch " nil iswitchb-read-buffer findfile call-interactively find-file message "Won't make invalid regexp named buffer" get-buffer iswitchb-visit-buffer iswitchb-possible-new-buffer] 2 (#$ . 10085)])
#@472 Replacement for the built-in `read-buffer'.
Return the name of a buffer selected.
PROMPT is the prompt to give to the user.
DEFAULT if given is the default buffer to be selected, which will
go to the front of the list.
If REQUIRE-MATCH is non-nil, an existing buffer must be selected.
If START is a string, the selection process is started with that
string.
If MATCHES-SET is non-nil, the buflist is not updated before
the selection process begins. Used by isearchb.el.
(defalias 'iswitchb-read-buffer #[(prompt &optional default require-match start matches-set) "\306!\307\211\211\211 \310\n\311\312#\210\310\n\313\314#\210\310\n\315\316#\210\310\n\317\320#\210\310\n\321\322#\210\310\n\323\324#\210\310\n\325\326#\210\310\n\327\330#\210\310\n\331\332#\210\310\n\333\334#\210\310\n\335\336#\210\n\337\340!\210\3072\3413!\203e \3423!\202g 345\206o \34367\204\201 \3448\3454!\210\346 \210
\347 T9 : ; <\350=\351\307\2115\352&+2\353=\204\256 \354 !\203\256 C>\307??\203\321 \355 \204\321 ?@\307 @ A\342\356AA!!\211@C>\307?*9\203\337 \355 \204\337 \357\360!\2102\361=\204\353 >\204\360 \202\364 >@ \343\232\203\376 >@\f-\207" [minibuffer-local-map icomplete-mode map iswitchb-final-text buf-sel iswitchb-mode-map copy-keymap nil define-key "?" iswitchb-completion-help "" iswitchb-next-match "" iswitchb-prev-match " " iswitchb-complete "\n" iswitchb-select-buffer-text "" iswitchb-toggle-regexp "" iswitchb-find-file "" iswitchb-toggle-ignore "" iswitchb-toggle-case " " iswitchb-kill-buffer "
" iswitchb-exit-minibuffer run-hooks iswitchb-define-mode-map-hook bufferp buffer-name "" t iswitchb-make-buflist iswitchb-set-matches minibuffer-depth completing-read (("dummy" . 1)) iswitchb-history usefirst get-buffer iswitchb-existing-buffer-p find-file-noselect error "Must specify valid buffer" takeprompt iswitchb-exit default iswitchb-default start iswitchb-text matches-set iswitchb-rescan require-match iswitchb-require-match iswitchb-minibuf-depth minibuffer-local-completion-map prompt iswitchb-matches iswitchb-virtual-buffers new-buf virt] 8 (#$ . 11708)])
#@47 Return non-nil if there is a matching buffer.
(defalias 'iswitchb-existing-buffer-p #[nil "??\207" [iswitchb-matches] 1 (#$ . 13825)])
#@122 Find common completion of `iswitchb-text' in `iswitchb-matches'.
The result is stored in `iswitchb-common-match-string'.
(defalias 'iswitchb-set-common-completion #[nil "\305\211\n\203# \204# \f;\203# \fG\306V\203# \307\n\f\"\211\203# )\207" [val iswitchb-common-match-string iswitchb-matches iswitchb-regexp iswitchb-text nil 0 iswitchb-find-common-substring] 4 (#$ . 13968)])
#@64 Try and complete the current pattern amongst the buffer names.
(defalias 'iswitchb-complete #[nil "\306 \204\f \307\310!\202< \n\206< G\311U\203 \312 \202< \211\313>\2049 \f\232\2049 \306\314\315 `|\210c\202< \307\310!)\207" [res iswitchb-matches iswitchb-invalid-regexp iswitchb-common-match-string iswitchb-text iswitchb-rescan nil run-hooks iswitchb-cannot-complete-hook 1 exit-minibuffer (t nil) t minibuffer-prompt-end iswitchb-common-match-inserted] 3 (#$ . 14359) nil])
#@47 Toggle the value of variable `iswitchb-case'.
(defalias 'iswitchb-toggle-case #[nil "?\302\211\207" [iswitchb-case iswitchb-rescan t] 2 (#$ . 14852) nil])
#@40 Toggle the value of `iswitchb-regexp'.
(defalias 'iswitchb-toggle-regexp #[nil "?\302\211\207" [iswitchb-regexp iswitchb-rescan t] 2 (#$ . 15016) nil])
#@66 Toggle ignoring buffers specified with `iswitchb-buffer-ignore'.
(defalias 'iswitchb-toggle-ignore #[nil "\203 \304\202
\305\n!\210\306\211\207" [iswitchb-buffer-ignore iswitchb-buffer-ignore-orig iswitchb-default iswitchb-rescan nil iswitchb-make-buflist t] 2 (#$ . 15177) nil])
#@66 Exit minibuffer, but make sure we have a match if one is needed.
(defalias 'iswitchb-exit-minibuffer #[nil "\203 \302 \205 \303\304\305\306\"\207" [iswitchb-require-match iswitchb-exit iswitchb-existing-buffer-p usefirst throw exit nil] 3 (#$ . 15472) nil])
#@113 Select the buffer named by the prompt.
If no buffer exactly matching the prompt exists, maybe create a new one.
(defalias 'iswitchb-select-buffer-text #[nil "\301\302 \207" [iswitchb-exit takeprompt exit-minibuffer] 1 (#$ . 15741) nil])
#@46 Drop into `find-file' from buffer switching.
(defalias 'iswitchb-find-file #[nil "\301\302 \207" [iswitchb-exit findfile exit-minibuffer] 1 (#$ . 15985) nil])
#@65 Put first element of `iswitchb-matches' at the end of the list.
(defalias 'iswitchb-next-match #[nil "\211A@)\211\204 \203 \306\f \211A@)A\"\202\" \306
\n\"\307\211)\207" [iswitchb-matches x next iswitchb-virtual-buffers recentf-list iswitchb-buflist iswitchb-chop t iswitchb-rescan] 4 (#$ . 16151) nil])
#@66 Put last element of `iswitchb-matches' at the front of the list.
(defalias 'iswitchb-prev-match #[nil "\306!@\211\204 \n\203 \307 \306\n!@A\"\202 \307\f \"\310\211)\207" [iswitchb-matches prev iswitchb-virtual-buffers recentf-list iswitchb-buflist iswitchb-rescan last iswitchb-chop t] 5 (#$ . 16473) nil])
#@66 Remove all elements before ELEM and put them at the end of LIST.
(defalias 'iswitchb-chop #[(list elem) "\305\211\211\n\204' @\211\f\232\203 \306 \237\"\211\202 A B\202 \n+\207" [sofar next ret list elem nil append] 4 (#$ . 16794)])
#@370 Set `iswitchb-buflist' to the current list of buffers.
Currently visible buffers are put at the end of the list.
The hook `iswitchb-make-buflist-hook' is run after the list has been
created to allow the user to further modify the order of the buffer names
in this list. If DEFAULT is non-nil, and corresponds to an existing buffer,
it is put to the start of the list.
(defalias 'iswitchb-make-buflist #[(default) "\305 \306\307\310\311\312 \205 \313 !\"\"\211\244\314\315!\210 \203' \316 \n\" \nB\n*\211\207" [iswitchb-current-buffers iswitchb-use-frame-buffer-list iswitchb-temp-buflist default iswitchb-buflist iswitchb-get-buffers-in-frames delq nil mapcar #[(x) "\303!\304 !\206
\n>?\205 )\207" [x b-name iswitchb-current-buffers buffer-name iswitchb-ignore-buffername-p] 2] buffer-list selected-frame run-hooks iswitchb-make-buflist-hook delete] 7 (#$ . 17048)])
#@67 Move the elements from LST to the end of `iswitchb-temp-buflist'.
(defalias 'iswitchb-to-end #[(lst) "\304\211\203 \n@\305 \"\nA\211\204 * \244\211\207" [lst elem --dolist-tail-- iswitchb-temp-buflist nil delq] 4 (#$ . 17937)])
#@217 Return the list of buffers that are visible in the current frame.
If optional argument CURRENT is given, restrict searching to the
current frame, rather than all frames, regardless of value of
`iswitchb-all-frames'.
(defalias 'iswitchb-get-buffers-in-frames #[(&optional current) "\303\304\305\303 ?\205 \n#\210)\207" [iswitchb-bufs-in-frame current iswitchb-all-frames nil walk-windows iswitchb-get-bufname] 4 (#$ . 18183)])
#@71 Used by `iswitchb-get-buffers-in-frames' to walk through all windows.
(defalias 'iswitchb-get-bufname #[(win) "\303\304!!\211\n\235?\205 \nB\211)\207" [win buf iswitchb-bufs-in-frame buffer-name window-buffer] 4 (#$ . 18618)])
#@64 Set `iswitchb-matches' to the list of buffers matching prompt.
(defalias 'iswitchb-set-matches #[nil "\205 \306 \f\n#)\307\211\207" [iswitchb-rescan iswitchb-buflist buflist iswitchb-text iswitchb-regexp iswitchb-matches iswitchb-get-matched-buffers nil iswitchb-virtual-buffers] 4 (#$ . 18856)])
#@147 Return buffers matching REGEXP.
If STRING-FORMAT is nil, consider REGEXP as just a string.
BUFFER-LIST can be list of buffers or list of strings.
(defalias 'iswitchb-get-matched-buffers #[(regexp &optional string-format buffer-list) "\306 \307\211 \204 \310\f!\307\311\312\313\217+\207" [ret name case-fold-search string-format regexp iswitchb-invalid-regexp iswitchb-case nil regexp-quote error (byte-code "\306\211\2030 \n@\211;\203 \202 \307 !\310\f \"\203) \311 !\204)
B\nA\211\204 \306
\237*\207" [buffer-list x --dolist-tail-- name regexp ret nil buffer-name string-match iswitchb-ignore-buffername-p] 4) ((invalid-regexp (byte-code "\302 A\207" [iswitchb-invalid-regexp error t] 1)))] 3 (#$ . 19167)])
#@51 Return t if the buffer BUFNAME should be ignored.
(defalias 'iswitchb-ignore-buffername-p #[(bufname) "\306 \307\211 \203: @\211;\203# \310
\"\2033 \311\307\2023 \312 !\2033
!\2033 \311\307 A\211\204
\313\f!\210\n,\207" [iswitchb-buffer-ignore nextstr ignorep re-list data bufname match-data nil string-match t functionp set-match-data] 5 (#$ . 19903)])
#@136 Return part of WORD before 1st match to `iswitchb-change-word-sub'.
If `iswitchb-change-word-sub' cannot be found in WORD, return nil.
(defalias 'iswitchb-word-matching-substring #[(word) "\304 \305 \n\"\211\205 \n \306O*\207" [case-fold-search iswitchb-change-word-sub word m iswitchb-case string-match nil] 4 (#$ . 20280)])
#@61 Return common string following SUBS in each element of LIS.
(defalias 'iswitchb-find-common-substring #[(lis subs) "\306\211\211 \203 \f\202 \307\f!\310\311
\"\312\306\n\"\310\313\n\"\314 \315\f \",\207" [iswitchb-change-word-sub alist res iswitchb-regexp subs lis nil regexp-quote mapcar iswitchb-word-matching-substring delq iswitchb-makealist iswitchb-case try-completion completion-ignore-case] 3 (#$ . 20615)])
#@31 Return dotted pair (RES . 1).
(defalias 'iswitchb-makealist #[(res) "\301B\207" [res 1] 2 (#$ . 21048)])
#@113 Destructively remove the last element from LIS.
Return the modified list with the last element prepended to it.
(defalias 'iswitchb-rotate-list #[(lis) "G\303X\203 \207\211\211A:\203 \n\nA\211\202 \304\241\210\n@*B\207" [lis prev las 1 nil] 3 (#$ . 21161)])
#@54 Show possible completions in a *Completions* buffer.
(defalias 'iswitchb-completion-help #[nil "\306p\307\306\f
=\2031 \2041 \nq\210\310\n!\311d \"\203) \312 e\"\210\202, \313 \210 q\202s r\314\n!q\210p\315 \210\306\211\316\211\316 \317 \210\320\321!\210+\211 \322 \206g !\210\323 !\210+\306\211+\207" [iswitchb-rescan win temp-buf buf last-command this-command nil "*Completions*" get-buffer-window pos-visible-in-window-p set-window-start scroll-other-window get-buffer-create kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook display-completion-list internal-temp-output-buffer-show iswitchb-common-match-inserted default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output iswitchb-matches iswitchb-buflist] 4 (#$ . 21437) nil])
#@52 Kill the buffer at the head of `iswitchb-matches'.
(defalias 'iswitchb-kill-buffer #[nil "\306\307\n@\211\205* \310\311 \" \312!\210\313!\203 \306\211\202) \314\307\310\315\f\"\"\211)*\207" [buf enable-recursive-minibuffers iswitchb-matches iswitchb-buflist bufobjs iswitchb-rescan t nil mapcar #[(name) "\301!\206 \207" [name get-buffer] 2] kill-buffer get-buffer delq #[(b) "\301!\203\n \302!\207\207" [b bufferp buffer-name] 2]] 6 (#$ . 22324) nil])
#@59 Visit buffer named BUFFER according to `iswitchb-method'.
(defalias 'iswitchb-visit-buffer #[(buffer) "\304\211\n\305=\203 \306 !\202{ \n\307>\203O \310 !\211\203I \n\311=\204* \312\313!\203I \314 !\315\316!\203; \316!\210\202C \317!\210\320!\210\321 !\202{ \306 !\202{ \n\322=\203[ \323 !\202{ \n\324=\203g \325 !\202{ \n\326=\205{ \327 !\210\315\316!\205{ \316\330 !*\207" [newframe win iswitchb-method buffer nil samewindow switch-to-buffer (always-frame maybe-frame) iswitchb-window-buffer-p always-frame y-or-n-p "Jump to frame? " window-frame fboundp select-frame-set-input-focus raise-frame select-frame select-window otherwindow switch-to-buffer-other-window display display-buffer otherframe switch-to-buffer-other-frame selected-frame] 2 (#$ . 22797)])
#@52 Possibly create and visit a new buffer called BUF.
(defalias 'iswitchb-possible-new-buffer #[(buf) "\304 \203+ \n\203 \n\203+ \305\306\307 \"!\203+ \310 !\311\312!\203% \312!\210\313!\202/ \314\315 \")\207" [newbufcreated iswitchb-newbuffer iswitchb-prompt-newbuffer buf nil y-or-n-p format "No buffer matching `%s', create one? " get-buffer-create fboundp set-buffer-major-mode iswitchb-visit-buffer message "no buffer matching `%s'"] 4 (#$ . 23574)])
#@117 Return window pointer if BUFFER is visible in another frame.
If BUFFER is visible in the current frame, return nil.
(defalias 'iswitchb-window-buffer-p #[(buffer) "\302\303! \235?\205 \304 \305\")\207" [blist buffer iswitchb-get-buffers-in-frames current get-buffer-window 0] 3 (#$ . 24039) nil])
#@317 Switch to another buffer.
The buffer name is selected interactively by typing a substring. The
buffer is displayed according to `iswitchb-default-method' -- the
default is to show it in the same window, unless it is already visible
in another frame.
For details of keybindings, do `\[describe-function] iswitchb'.
(defalias 'iswitchb-buffer #[nil "\302 \207" [iswitchb-default-method iswitchb-method iswitchb] 1 (#$ . 24346) nil])
#@186 Switch to another buffer and show it in another window.
The buffer name is selected interactively by typing a substring.
For details of keybindings, do `\[describe-function] iswitchb'.
(defalias 'iswitchb-buffer-other-window #[nil "\301\302 \207" [iswitchb-method otherwindow iswitchb] 1 (#$ . 24788) nil])
#@186 Display a buffer in another window but don't select it.
The buffer name is selected interactively by typing a substring.
For details of keybindings, do `\[describe-function] iswitchb'.
(defalias 'iswitchb-display-buffer #[nil "\301\302 \207" [iswitchb-method display iswitchb] 1 (#$ . 25103) nil])
#@185 Switch to another buffer and show it in another frame.
The buffer name is selected interactively by typing a substring.
For details of keybindings, do `\[describe-function] iswitchb'.
(defalias 'iswitchb-buffer-other-frame #[nil "\301\302 \207" [iswitchb-method otherframe iswitchb] 1 (#$ . 25409) nil])
#@135 Display default buffer when first entering minibuffer.
This is a hack for XEmacs, and should really be handled by `iswitchb-exhibit'.
(defalias 'iswitchb-init-XEmacs-trick #[nil "\300 \205\n \301 \210eb\207" [iswitchb-entryfn-p iswitchb-exhibit] 1 (#$ . 25721)])
#@43 Bind backspace to `backward-delete-char'.
(defalias 'iswitchb-xemacs-backspacekey #[nil "\301\302\303#\210\301\304\305#\207" [iswitchb-mode-map define-key [backspace] backward-delete-char [(meta backspace)] backward-kill-word] 4 (#$ . 25990)])
#@252 Find matching buffers and display a list in the minibuffer.
Copied from `icomplete-exhibit' with two changes:
1. It prints a default buffer name when there is no text yet entered.
2. It calls my completion routine rather than the standard completion.
(defalias 'iswitchb-exhibit #[nil "\205* \306 d{\307\212db\210\310\303!\204 \311\303!\210`\n\312 \210\307\313 \210\314\n!c+\207" [iswitchb-use-mycompletion buffer-undo-list contents iswitchb-eoinput iswitchb-text iswitchb-rescan minibuffer-prompt-end t boundp make-local-variable iswitchb-set-matches iswitchb-set-common-completion iswitchb-completions] 2 (#$ . 26243)])
(defalias 'iswitchb-output-completion #[(com) "G U\203 \303\304\207 \303O\207" [com most-len most-is-exact nil t] 3])
#@99 Return the string that is displayed after the user's text.
Modified from `icomplete-completions'.
(defalias 'iswitchb-completions #[(name) "\306\307\310\311\312 )*\203E )\203E )@\313\314 \"\315\316 G\317)G\320U\203: \2036 \321\202; \322\202; \323 %\210 )AB)+\203\340 )\204\340 ,\203\340 \312-,\312 .\211 /\203\266 \324/@!\211.\203\255 \3250\203x 1\202| \3261!.\"\203\255 \327/@!\204\255 \330.-\"\204\255 \331.!\204\255 \332/@!\203\255 ./@B-B-/A\211/\204b -\237-\333\334-\"\211)\211 2\203\337 \315\3162@G\317\3352@%\2102A\2112\204\311 +)\204\355 \313\336
\f#\202\342\203\372 \337)@P\202\342)A\204:0\204.G)@GU\202\"\325.)@\"\210\340\316)@\")@\230\203)\341\202/
)@\fQ*?\2056\342P\202\3423\203\205)G3V\203\205\343\312)3\344\245 4 2 54S\2114\316Y\203q2@5B52A2\202V5\237+\345C)G3\344\245Z)\233#)\312\211 6G 7\312 8\3466\203\231\347\202\232\350)9# :;;\205\273;G.GV\205\273
;.G\312O\fQ7.GV\205\316
6.G\312O\fQ 8\203\3349:P\202\336:\n\260,.\207" [iswitchb-matches first close-bracket-prospects open-bracket-prospects close-bracket-determined open-bracket-determined "[" "]" "{" "}" nil format "%s" put-text-property 0 face 1 iswitchb-invalid-regexp iswitchb-single-match iswitchb-current-match file-name-nondirectory string-match regexp-quote get-file-buffer assoc iswitchb-ignore-buffername-p file-exists-p mapcar car iswitchb-virtual-matches " %sNo match%s" " " match-string "" " [Matched]" append 2 "..." mapconcat iswitchb-output-completion identity comps iswitchb-use-faces iswitchb-use-virtual-buffers recentf-list iswitchb-virtual-buffers name head iswitchb-regexp iswitchb-text comp iswitchb-max-to-show end res most most-len most-is-exact iswitchb-delim alternatives iswitchb-common-match-string] 7 (#$ . 27000)])
#@89 Set up minibuffer for `iswitchb-buffer'.
Copied from `icomplete-minibuffer-setup-hook'.
(defalias 'iswitchb-minibuffer-setup #[nil "\301 \205 \302\300!\210\303\304\305\306\307\303$\210\304\310\311\307\303$\210\312\313!\207" [iswitchb-use-mycompletion iswitchb-entryfn-p make-local-variable t add-hook pre-command-hook iswitchb-pre-command nil post-command-hook iswitchb-post-command run-hooks iswitchb-minibuffer-setup-hook] 5 (#$ . 28836)])
#@42 Run before command in `iswitchb-buffer'.
(defalias 'iswitchb-pre-command #[nil "\300 \207" [iswitchb-tidy] 1 (#$ . 29286)])
#@41 Run after command in `iswitchb-buffer'.
(defalias 'iswitchb-post-command #[nil "\300 \207" [iswitchb-exhibit] 1 (#$ . 29416)])
#@92 Remove completions display, if any, prior to new user input.
Copied from `icomplete-tidy'.
(defalias 'iswitchb-tidy #[nil "\302\300!\203 \203 dV\203 d\211\207 d|)\207\303\300!\210\304\211\207" [iswitchb-eoinput buffer-undo-list boundp make-local-variable 1] 2 (#$ . 29549)])
#@51 Return non-nil if we are using `iswitchb-buffer'.
(defalias 'iswitchb-entryfn-p #[nil "\301 =\207" [iswitchb-minibuf-depth minibuffer-depth] 2 (#$ . 29839)])
#@216 Move the summaries to the end of the list.
This is an example function which can be hooked on to
`iswitchb-make-buflist-hook'. Any buffer matching the regexps
`Summary' or `output*$'are put to the end of the list.
(defalias 'iswitchb-summaries-to-end #[nil "\302\303\304\305\"\"\306 !)\207" [iswitchb-temp-buflist summaries delq nil mapcar #[(x) "\301\302\"\205 \207" [x string-match "Summary\\|output\\*$"] 3] iswitchb-to-end] 5 (#$ . 30005)])
#@102 Return non-nil if we should ignore case when matching.
See the variable `iswitchb-case' for details.
(defalias 'iswitchb-case #[nil "\205 \302 \303\"\207" [iswitchb-case iswitchb-text isearch-no-upper-case-p t] 3 (#$ . 30463)])
#@260 Non-nil if Iswitchb mode is enabled.
See the command `iswitchb-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `iswitchb-mode'.
(custom-declare-variable 'iswitchb-mode nil '(#$ . 30700) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'iswitchb :type 'boolean)
#@306 Toggle Iswitchb mode.
With a prefix argument ARG, enable Iswitchb mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
Iswitchb mode is a global minor mode that enables switching
between buffers using substrings. See `iswitchb' for details.
(defalias 'iswitchb-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\211\203 \307\310\311\"\210\202% \312\310\311\"\210\313\314\n\203/ \315\2020 \316\"\210\317\320!\203U \321\302!\210\303 \203H \303 \232\203U \322\323\n\203R \324\202S \325\"\210)\326 \210\n\207" [#1=#:last-message arg iswitchb-mode current-message toggle prefix-numeric-value 0 add-hook minibuffer-setup-hook iswitchb-minibuffer-setup remove-hook run-hooks iswitchb-mode-hook iswitchb-mode-on-hook iswitchb-mode-off-hook called-interactively-p any customize-mark-as-set message "Iswitchb mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 31124) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\303\211%\210\304\305!\207" [iswitchb-global-map add-minor-mode iswitchb-mode nil provide iswitchb] 6)