1 ;;; iswitchb.el --- switch between buffers using substrings
3 ;; Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004,
4 ;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
6 ;; Author: Stephen Eglen <stephen@gnu.org>
7 ;; Maintainer: Stephen Eglen <stephen@gnu.org>
8 ;; Keywords: completion convenience
10 ;; This file is part of GNU Emacs.
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation, either version 3 of the License, or
15 ;; (at your option) any later version.
17 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
28 ;; To get the functions in this package bound to keys, use
29 ;; M-x iswitchb-mode or customize the option `iswitchb-mode'.
30 ;; Alternatively, add the following line to your .emacs:
33 ;; As you type in a substring, the list of buffers currently matching
34 ;; the substring is displayed as you type. The list is ordered so
35 ;; that the most recent buffers visited come at the start of the list.
36 ;; The buffer at the start of the list will be the one visited when
37 ;; you press return. By typing more of the substring, the list is
38 ;; narrowed down so that gradually the buffer you want will be at the
39 ;; top of the list. Alternatively, you can use C-s and C-r to rotate
40 ;; buffer names in the list until the one you want is at the top of
41 ;; the list. Completion is also available so that you can see what is
42 ;; common to all of the matching buffers as you type.
44 ;; This code is similar to a couple of other packages. Michael R Cook
45 ;; <cook@sightpath.com> wrote a similar buffer switching package, but
46 ;; does exact matching rather than substring matching on buffer names.
47 ;; I also modified a couple of functions from icomplete.el to provide
48 ;; the completion feedback in the minibuffer.
52 ;; If I have two buffers called "123456" and "123", with "123456" the
53 ;; most recent, when I use iswitchb, I first of all get presented with
54 ;; the list of all the buffers
56 ;; iswitch {123456,123}
59 ;; iswitch 2[3]{123456,123}
61 ;; The list in {} are the matching buffers, most recent first (buffers
62 ;; visible in the current frame are put at the end of the list by
63 ;; default). At any time I can select the item at the head of the
64 ;; list by pressing RET. I can also put the first element at the end
65 ;; of the list by pressing C-s, or put the last element at the head of
66 ;; the list by pressing C-r. The item in [] indicates what can be
67 ;; added to my input by pressing TAB. In this case, I will get "3"
68 ;; added to my input. So, press TAB:
69 ;; iswitch 23{123456,123}
71 ;; At this point, I still have two matching buffers.
72 ;; If I want the first buffer in the list, I simply press RET. If I
73 ;; wanted the second in the list, I could press C-s to move it to the
74 ;; top of the list and then RET to select it.
76 ;; However, if I type 4, I only have one match left:
77 ;; iswitch 234[123456] [Matched]
79 ;; Since there is only one matching buffer left, it is given in [] and we
80 ;; see the text [Matched] afterwards. I can now press TAB or RET to go
83 ;; If however, I now type "a":
84 ;; iswitch 234a [No match]
85 ;; There are no matching buffers. If I press RET or TAB, I can be
86 ;; prompted to create a new buffer called "234a".
88 ;; Of course, where this function comes in really useful is when you
89 ;; can specify the buffer using only a few keystrokes. In the above
90 ;; example, the quickest way to get to the "123456" buffer would be
91 ;; just to type 4 and then RET (assuming there isn't any newer buffer
92 ;; with 4 in its name).
94 ;; To see a full list of all matching buffers in a separate buffer,
95 ;; hit ? or press TAB when there are no further completions to the
96 ;; substring. Repeated TAB presses will scroll you through this
99 ;; The buffer at the head of the list can be killed by pressing C-k.
100 ;; If the buffer needs saving, you will be queried before the buffer
103 ;; If you find that the file you are after is not in a buffer, you can
104 ;; press C-x C-f to immediately drop into find-file.
106 ;; See the doc string of iswitchb for full keybindings and features.
107 ;; (describe-function 'iswitchb)
109 ;; Case matching: The case of strings when matching can be ignored or
110 ;; used depending on the value of iswitchb-case (default is the same
111 ;; as case-fold-search, normally t). Imagine you have the following
114 ;; INBOX *info* *scratch*
116 ;; Then these will be the matching buffers, depending on how you type
117 ;; the two letters `in' and the value of iswitchb-case:
119 ;; iswitchb-case user input | matching buffers
120 ;; ----------------------------------------------
122 ;; t in | INBOX, *info*
128 ;; See the User Variables section below for easy ways to change the
129 ;; functionality of the program. These are accessible using the
131 ;; To modify the keybindings, use something like:
133 ;;(add-hook 'iswitchb-mode-hook 'iswitchb-my-keys)
134 ;;(defun iswitchb-my-keys ()
135 ;; "Add my keybindings for iswitchb."
136 ;; (define-key iswitchb-mode-map " " 'iswitchb-next-match))
138 ;; Seeing all the matching buffers
140 ;; If you have many matching buffers, they may not all fit onto one
141 ;; line of the minibuffer. In Emacs 21, the variable
142 ;; `resize-mini-windows' controls how many lines of the minibuffer can
143 ;; be seen. For older versions of emacs, you can use
144 ;; `resize-minibuffer-mode'. You can also limit iswitchb so that it
145 ;; only shows a certain number of lines -- see the documentation for
146 ;; `iswitchb-minibuffer-setup-hook'.
148 ;; Changing the list of buffers
150 ;; By default, the list of current buffers is most recent first,
151 ;; oldest last, with the exception that the buffers visible in the
152 ;; current frame are put at the end of the list. A hook exists to
153 ;; allow other functions to order the list. For example, if you add:
155 ;; (add-hook 'iswitchb-make-buflist-hook 'iswitchb-summaries-to-end)
157 ;; then all buffers matching "Summary" are moved to the end of the
158 ;; list. (I find this handy for keeping the INBOX Summary and so on
159 ;; out of the way.) It also moves buffers matching "output\*$" to the
160 ;; end of the list (these are created by AUCTeX when compiling.)
161 ;; Other functions could be made available which alter the list of
162 ;; matching buffers (either deleting or rearranging elements.)
166 ;; font-lock is used to highlight the first matching buffer. To
167 ;; switch this off, set (setq iswitchb-use-faces nil). Colouring of
168 ;; the matching buffer name was suggested by Carsten Dominik
169 ;; (dominik@strw.leidenuniv.nl)
171 ;; Replacement for read-buffer
173 ;; iswitchb-read-buffer has been written to be a drop in replacement
174 ;; for the normal buffer selection routine `read-buffer'. To use
175 ;; iswitch for all buffer selections in Emacs, add:
176 ;; (setq read-buffer-function 'iswitchb-read-buffer)
177 ;; (This variable was introduced in Emacs 20.3.)
178 ;; XEmacs users can get the same behavior by doing:
179 ;; (defalias 'read-buffer 'iswitchb-read-buffer)
180 ;; since `read-buffer' is defined in lisp.
182 ;; Using iswitchb for other completion tasks.
184 ;; Kin Cho (kin@neoscale.com) sent the following suggestion to use
185 ;; iswitchb for other completion tasks.
187 ;; (defun my-icompleting-read (prompt choices)
188 ;; "Use iswitch as a completing-read replacement to choose from
189 ;; choices. PROMPT is a string to prompt with. CHOICES is a list of
190 ;; strings to choose from."
191 ;; (let ((iswitchb-make-buflist-hook
193 ;; (setq iswitchb-temp-buflist choices))))
194 ;; (iswitchb-read-buffer prompt)))
197 ;; (my-icompleting-read "Which fruit? " '
198 ;; ("apple" "pineapple" "pear" "bananas" "oranges") )
200 ;; Kin Cho also suggested the following defun. Once you have a subset of
201 ;; matching buffers matching your current prompt, you can then press
202 ;; e.g. C-o to restrict matching to those buffers and clearing the prompt:
203 ;; (defun iswitchb-exclude-nonmatching()
204 ;; "Make iswitchb work on only the currently matching names."
206 ;; (setq iswitchb-buflist iswitchb-matches)
207 ;; (setq iswitchb-rescan t)
208 ;; (delete-minibuffer-contents))
210 ;; (add-hook 'iswitchb-define-mode-map-hook
211 ;; '(lambda () (define-key
212 ;; iswitchb-mode-map "\C-o"
213 ;; 'iswitchb-exclude-nonmatching)))
215 ;; Other lisp packages extend iswitchb behavior to other tasks. See
216 ;; ido.el (by Kim Storm) and mcomplete.el (Yuji Minejima).
218 ;; Window managers: Switching frames/focus follows mouse; Sawfish.
220 ;; If you switch to a buffer that is visible in another frame,
221 ;; iswitchb can switch focus to that frame. If your window manager
222 ;; uses "click to focus" policy for window selection, you should also
223 ;; set focus-follows-mouse to nil.
225 ;; iswitch functionality has also been implemented for switching
226 ;; between windows in the Sawfish window manager.
230 ;; There is provision for regexp matching within iswitchb, enabled
231 ;; through `iswitchb-regexp'. This allows you to type `c$' for
232 ;; example and see all buffer names ending in `c'. No completion
233 ;; mechanism is currently offered when regexp searching.
239 ;; Thanks to Jari Aalto <jari.aalto@poboxes.com> for help with the
240 ;; first version of this package, iswitch-buffer. Thanks also to many
241 ;; others for testing earlier versions.
249 ;; These are some things you might want to change.
251 (defgroup iswitchb nil
252 "Switch between buffers using substrings."
255 :link
'(emacs-commentary-link :tag
"Commentary" "iswitchb.el")
256 :link
'(url-link "http://www.anc.ed.ac.uk/~stephen/emacs/")
257 :link
'(emacs-library-link :tag
"Lisp File" "iswitchb.el"))
259 (defcustom iswitchb-case case-fold-search
260 "Non-nil if searching of buffer names should ignore case.
261 If this is non-nil but the user input has any upper case letters, matching
262 is temporarily case sensitive."
266 (defcustom iswitchb-buffer-ignore
268 "List of regexps or functions matching buffer names to ignore.
269 For example, traditional behavior is not to list buffers whose names begin
270 with a space, for which the regexp is `^ '. See the source file for
271 example functions that filter buffer names."
272 :type
'(repeat (choice regexp function
))
274 (put 'iswitchb-buffer-ignore
'risky-local-variable t
)
276 (defcustom iswitchb-max-to-show nil
277 "If non-nil, limit the number of names shown in the minibuffer.
278 If this value is N, and N is greater than the number of matching
279 buffers, the first N/2 and the last N/2 matching buffers are
280 shown. This can greatly speed up iswitchb if you have a
281 multitude of buffers open."
282 :type
'(choice (const :tag
"Show all" nil
) integer
)
285 (defcustom iswitchb-use-virtual-buffers nil
286 "If non-nil, refer to past buffers when none match.
287 This feature relies upon the `recentf' package, which will be
288 enabled if this variable is configured to a non-nil value."
293 (if value
(recentf-mode 1))
297 (defvar iswitchb-virtual-buffers nil
)
299 (defcustom iswitchb-cannot-complete-hook
'iswitchb-completion-help
300 "Hook run when `iswitchb-complete' can't complete any more.
301 The most useful values are `iswitchb-completion-help', which pops up a
302 window with completion alternatives, or `iswitchb-next-match' or
303 `iswitchb-prev-match', which cycle the buffer list."
307 ;; Examples for setting the value of iswitchb-buffer-ignore
308 ;;(defun iswitchb-ignore-c-mode (name)
309 ;; "Ignore all c mode buffers -- example function for iswitchb."
310 ;; (with-current-buffer name
311 ;; (derived-mode-p 'c-mode)))
313 ;;(setq iswitchb-buffer-ignore '("^ " iswitchb-ignore-c-mode))
314 ;;(setq iswitchb-buffer-ignore '("^ " "\\.c\\'" "\\.h\\'"))
316 (defcustom iswitchb-default-method
'always-frame
317 "How to switch to new buffer when using `iswitchb-buffer'.
319 `samewindow' Show new buffer in same window
320 `otherwindow' Show new buffer in another window (same frame)
321 `display' Display buffer in another window without switching to it
322 `otherframe' Show new buffer in another frame
323 `maybe-frame' If a buffer is visible in another frame, prompt to ask if you
324 you want to see the buffer in the same window of the current
325 frame or in the other frame.
326 `always-frame' If a buffer is visible in another frame, raise that
327 frame. Otherwise, visit the buffer in the same window."
328 :type
'(choice (const samewindow
)
333 (const always-frame
))
336 (defcustom iswitchb-regexp nil
337 "Non-nil means that `iswitchb' will do regexp matching.
338 Value can be toggled within `iswitchb' using `iswitchb-toggle-regexp'."
342 (defcustom iswitchb-newbuffer t
343 "Non-nil means create new buffer if no buffer matches substring.
344 See also `iswitchb-prompt-newbuffer'."
348 (defcustom iswitchb-prompt-newbuffer t
349 "Non-nil means prompt user to confirm before creating new buffer.
350 See also `iswitchb-newbuffer'."
354 (define-obsolete-variable-alias 'iswitchb-use-fonts
'iswitchb-use-faces
"22.1")
356 (defcustom iswitchb-use-faces t
357 "Non-nil means use font-lock faces for showing first match."
361 (defcustom iswitchb-use-frame-buffer-list nil
362 "Non-nil means use the currently selected frame's buffer list."
366 (defcustom iswitchb-make-buflist-hook nil
367 "Hook to run when list of matching buffers is created."
371 (defcustom iswitchb-delim
","
372 "Delimiter to put between buffer names when displaying results."
376 (defvar iswitchb-all-frames
'visible
377 "*Argument to pass to `walk-windows' when finding visible buffers.
378 See documentation of `walk-windows' for useful values.")
380 (defcustom iswitchb-minibuffer-setup-hook nil
381 "Iswitchb-specific customization of minibuffer setup.
383 This hook is run during minibuffer setup if `iswitchb' is active.
385 \(add-hook 'iswitchb-minibuffer-setup-hook
386 '\(lambda () (set (make-local-variable 'max-mini-window-height) 3)))
387 will constrain the minibuffer to a maximum height of 3 lines when
388 iswitchb is running."
392 (defface iswitchb-single-match
394 (:inherit font-lock-comment-face
)))
395 "Iswitchb face for single matching buffer name."
399 (defface iswitchb-current-match
401 (:inherit font-lock-function-name-face
)))
402 "Iswitchb face for current matching buffer name."
406 (defface iswitchb-virtual-matches
408 (:inherit font-lock-builtin-face
)))
409 "Iswitchb face for matching virtual buffer names.
410 See also `iswitchb-use-virtual-buffers'."
414 (defface iswitchb-invalid-regexp
416 (:inherit font-lock-warning-face
)))
417 "Iswitchb face for indicating invalid regexp. "
421 ;; Do we need the variable iswitchb-use-mycompletion?
423 ;;; Internal Variables
425 (defvar iswitchb-method nil
426 "Stores the method for viewing the selected buffer.
427 Its value is one of `samewindow', `otherwindow', `display', `otherframe',
428 `maybe-frame' or `always-frame'. See `iswitchb-default-method' for
431 (defvar iswitchb-eoinput
1
432 "Point where minibuffer input ends and completion info begins.
433 Copied from `icomplete-eoinput'.")
434 (make-variable-buffer-local 'iswitchb-eoinput
)
436 (defvar iswitchb-buflist nil
437 "Stores the current list of buffers that will be searched through.
438 The list is ordered, so that the most recent buffers come first,
439 although by default, the buffers visible in the current frame are put
440 at the end of the list. Created by `iswitchb-make-buflist'.")
442 ;; todo -- is this necessary?
444 (defvar iswitchb-use-mycompletion nil
445 "Non-nil means use `iswitchb-buffer' completion feedback.
446 Should only be set to t by iswitchb functions, so that it doesn't
447 interfere with other minibuffer usage.")
449 (defvar iswitchb-change-word-sub nil
450 "Private variable used by `iswitchb-word-matching-substring'.")
452 (defvar iswitchb-common-match-string nil
453 "Stores the string that is common to all matching buffers.")
455 (defvar iswitchb-rescan nil
456 "Non-nil means we need to regenerate the list of matching buffers.")
458 (defvar iswitchb-text nil
459 "Stores the users string as it is typed in.")
461 (defvar iswitchb-matches nil
462 "List of buffers currently matching `iswitchb-text'.")
464 (defvar iswitchb-mode-map
465 (let ((map (make-sparse-keymap)))
466 (set-keymap-parent map minibuffer-local-map
)
467 (define-key map
"?" 'iswitchb-completion-help
)
468 (define-key map
"\C-s" 'iswitchb-next-match
)
469 (define-key map
"\C-r" 'iswitchb-prev-match
)
470 (define-key map
"\t" 'iswitchb-complete
)
471 (define-key map
"\C-j" 'iswitchb-select-buffer-text
)
472 (define-key map
"\C-t" 'iswitchb-toggle-regexp
)
473 (define-key map
"\C-x\C-f" 'iswitchb-find-file
)
474 (define-key map
"\C-c" 'iswitchb-toggle-case
)
475 (define-key map
"\C-k" 'iswitchb-kill-buffer
)
476 (define-key map
"\C-m" 'iswitchb-exit-minibuffer
)
478 "Minibuffer keymap for `iswitchb-buffer'.")
480 (defvar iswitchb-global-map
481 (let ((map (make-sparse-keymap)))
482 (dolist (b '((switch-to-buffer . iswitchb-buffer
)
483 (switch-to-buffer-other-window . iswitchb-buffer-other-window
)
484 (switch-to-buffer-other-frame . iswitchb-buffer-other-frame
)
485 (display-buffer . iswitchb-display-buffer
)))
486 (if (fboundp 'command-remapping
)
487 (define-key map
(vector 'remap
(car b
)) (cdr b
))
488 (substitute-key-definition (car b
) (cdr b
) map global-map
)))
490 "Global keymap for `iswitchb-mode'.")
492 (defvar iswitchb-history nil
493 "History of buffers selected using `iswitchb-buffer'.")
495 (defvar iswitchb-exit nil
496 "Flag to monitor how `iswitchb-buffer' exits.
497 If equal to `takeprompt', we use the prompt as the buffer name to be
500 (defvar iswitchb-buffer-ignore-orig nil
501 "Stores original value of `iswitchb-buffer-ignore'.")
503 (defvar iswitchb-default nil
504 "Default buffer for iswitchb.")
506 ;; The following variables are needed to keep the byte compiler quiet.
507 (defvar iswitchb-require-match nil
508 "Non-nil if matching buffer must be selected.")
510 (defvar iswitchb-temp-buflist nil
511 "Stores a temporary version of the buffer list being created.")
513 (defvar iswitchb-bufs-in-frame nil
514 "List of the buffers visible in the current frame.")
516 (defvar iswitchb-minibuf-depth nil
517 "Value we expect to be returned by `minibuffer-depth' in the minibuffer.")
519 (defvar iswitchb-common-match-inserted nil
520 "Non-nil if we have just inserted a common match in the minibuffer.")
522 (defvar iswitchb-invalid-regexp
)
527 (defun iswitchb-define-mode-map ()
528 "Set up the keymap for `iswitchb-buffer'."
531 ;; generated every time so that it can inherit new functions.
532 ;;(or iswitchb-mode-map
534 (setq map
(copy-keymap minibuffer-local-map
))
535 (define-key map
"?" 'iswitchb-completion-help
)
536 (define-key map
"\C-s" 'iswitchb-next-match
)
537 (define-key map
"\C-r" 'iswitchb-prev-match
)
538 (define-key map
"\t" 'iswitchb-complete
)
539 (define-key map
"\C-j" 'iswitchb-select-buffer-text
)
540 (define-key map
"\C-t" 'iswitchb-toggle-regexp
)
541 (define-key map
"\C-x\C-f" 'iswitchb-find-file
)
542 (define-key map
"\C-n" 'iswitchb-toggle-ignore
)
543 (define-key map
"\C-c" 'iswitchb-toggle-case
)
544 (define-key map
"\C-k" 'iswitchb-kill-buffer
)
545 (define-key map
"\C-m" 'iswitchb-exit-minibuffer
)
546 (setq iswitchb-mode-map map
)
547 (run-hooks 'iswitchb-define-mode-map-hook
)))
549 (make-obsolete 'iswitchb-define-mode-map
550 "use M-x iswitchb-mode or customize the variable `iswitchb-mode'."
555 "Switch to buffer matching a substring.
556 As you type in a string, all of the buffers matching the string are
557 displayed. When you have found the buffer you want, it can then be
558 selected. As you type, most keys have their normal keybindings,
559 except for the following:
560 \\<iswitchb-mode-map>
562 RET Select the buffer at the front of the list of matches. If the
563 list is empty, possibly prompt to create new buffer.
565 \\[iswitchb-select-buffer-text] Select the current prompt as the buffer.
566 If no buffer is found, prompt for a new one.
568 \\[iswitchb-next-match] Put the first element at the end of the list.
569 \\[iswitchb-prev-match] Put the last element at the start of the list.
570 \\[iswitchb-complete] Complete a common suffix to the current string that
571 matches all buffers. If there is only one match, select that buffer.
572 If there is no common suffix, show a list of all matching buffers
573 in a separate window.
574 \\[iswitchb-toggle-regexp] Toggle regexp searching.
575 \\[iswitchb-toggle-case] Toggle case-sensitive searching of buffer names.
576 \\[iswitchb-completion-help] Show list of matching buffers in separate window.
577 \\[iswitchb-find-file] Exit iswitchb and drop into `find-file'.
578 \\[iswitchb-kill-buffer] Kill buffer at head of buffer list."
579 ;;\\[iswitchb-toggle-ignore] Toggle ignoring certain buffers (see \
580 ;;`iswitchb-buffer-ignore')
582 (let* ((prompt "iswitch ")
583 iswitchb-invalid-regexp
584 (buf (iswitchb-read-buffer prompt
)))
586 ;;(message "chosen text %s" iswitchb-final-text)
587 ;; Choose the buffer name: either the text typed in, or the head
588 ;; of the list of matches
590 (cond ( (eq iswitchb-exit
'findfile
)
591 (call-interactively 'find-file
))
592 (iswitchb-invalid-regexp
593 (message "Won't make invalid regexp named buffer"))
596 ;;(message "go to buf %s" buf)
597 ;; Check buf is non-nil.
600 ;; buffer exists, so view it and then exit
601 (iswitchb-visit-buffer buf
)
602 ;; else buffer doesn't exist
603 (iswitchb-possible-new-buffer buf
)))
606 (defun iswitchb-read-buffer (prompt &optional default require-match
608 "Replacement for the built-in `read-buffer'.
609 Return the name of a buffer selected.
610 PROMPT is the prompt to give to the user.
611 DEFAULT if given is the default buffer to be selected, which will
612 go to the front of the list.
613 If REQUIRE-MATCH is non-nil, an existing buffer must be selected.
614 If START is a string, the selection process is started with that
616 If MATCHES-SET is non-nil, the buflist is not updated before
617 the selection process begins. Used by isearchb.el."
622 (icomplete-mode nil
) ;; prevent icomplete starting up
625 (iswitchb-define-mode-map)
626 (setq iswitchb-exit nil
)
627 (setq iswitchb-default
628 (if (bufferp default
)
629 (buffer-name default
)
631 (setq iswitchb-text
(or start
""))
633 (setq iswitchb-rescan t
)
634 (iswitchb-make-buflist iswitchb-default
)
635 (iswitchb-set-matches))
637 ((minibuffer-local-completion-map iswitchb-mode-map
)
638 ;; Record the minibuffer depth that we expect to find once
639 ;; the minibuffer is set up and iswitchb-entryfn-p is called.
640 (iswitchb-minibuf-depth (1+ (minibuffer-depth)))
641 (iswitchb-require-match require-match
))
642 ;; prompt the user for the buffer name
643 (setq iswitchb-final-text
(completing-read
645 '(("dummy" .
1)) ;table
647 nil
;require-match [handled elsewhere]
648 start
;initial-contents
650 (if (and (not (eq iswitchb-exit
'usefirst
))
651 (get-buffer iswitchb-final-text
))
652 ;; This happens for example if the buffer was chosen with the mouse.
653 (setq iswitchb-matches
(list iswitchb-final-text
)
654 iswitchb-virtual-buffers nil
))
656 ;; If no buffer matched, but a virtual buffer was selected, visit
657 ;; that file now and act as though that buffer had been selected.
658 (if (and iswitchb-virtual-buffers
659 (not (iswitchb-existing-buffer-p)))
660 (let ((virt (car iswitchb-virtual-buffers
))
662 ;; Keep the name of the buffer returned by find-file-noselect, as
663 ;; the buffer 'virt' could be a symlink to a file of a different name.
664 (setq new-buf
(buffer-name (find-file-noselect (cdr virt
))))
665 (setq iswitchb-matches
(list new-buf
)
666 iswitchb-virtual-buffers nil
)))
668 ;; Handling the require-match must be done in a better way.
669 (if (and require-match
670 (not (iswitchb-existing-buffer-p)))
671 (error "Must specify valid buffer"))
673 (if (or (eq iswitchb-exit
'takeprompt
)
674 (null iswitchb-matches
))
675 (setq buf-sel iswitchb-final-text
)
676 ;; else take head of list
677 (setq buf-sel
(car iswitchb-matches
)))
679 ;; Or possibly choose the default buffer
680 (if (equal iswitchb-final-text
"")
681 (setq buf-sel
(car iswitchb-matches
)))
685 (defun iswitchb-existing-buffer-p ()
686 "Return non-nil if there is a matching buffer."
687 (not (null iswitchb-matches
)))
691 (defun iswitchb-set-common-completion ()
692 "Find common completion of `iswitchb-text' in `iswitchb-matches'.
693 The result is stored in `iswitchb-common-match-string'."
696 (setq iswitchb-common-match-string nil
)
697 (if (and iswitchb-matches
698 (not iswitchb-regexp
) ;; testing
699 (stringp iswitchb-text
)
700 (> (length iswitchb-text
) 0))
701 (if (setq val
(iswitchb-find-common-substring
702 iswitchb-matches iswitchb-text
))
703 (setq iswitchb-common-match-string val
)))
706 (defun iswitchb-complete ()
707 "Try and complete the current pattern amongst the buffer names."
710 (cond ((not iswitchb-matches
)
711 (run-hooks 'iswitchb-cannot-complete-hook
))
712 (iswitchb-invalid-regexp
715 ((= 1 (length iswitchb-matches
))
716 ;; only one choice, so select it.
720 ;; else there could be some completions
721 (setq res iswitchb-common-match-string
)
722 (if (and (not (memq res
'(t nil
)))
723 (not (equal res iswitchb-text
)))
724 ;; found something to complete, so put it in the minibuffer.
726 (setq iswitchb-rescan nil
727 iswitchb-common-match-inserted t
)
728 (delete-region (minibuffer-prompt-end) (point))
730 ;; else nothing to complete
731 (run-hooks 'iswitchb-cannot-complete-hook
)
736 (defun iswitchb-toggle-case ()
737 "Toggle the value of variable `iswitchb-case'."
739 (setq iswitchb-case
(not iswitchb-case
))
740 ;; ask for list to be regenerated.
741 (setq iswitchb-rescan t
))
743 (defun iswitchb-toggle-regexp ()
744 "Toggle the value of `iswitchb-regexp'."
746 (setq iswitchb-regexp
(not iswitchb-regexp
))
747 ;; ask for list to be regenerated.
748 (setq iswitchb-rescan t
))
750 (defun iswitchb-toggle-ignore ()
751 "Toggle ignoring buffers specified with `iswitchb-buffer-ignore'."
753 (if iswitchb-buffer-ignore
755 (setq iswitchb-buffer-ignore-orig iswitchb-buffer-ignore
)
756 (setq iswitchb-buffer-ignore nil
))
758 (setq iswitchb-buffer-ignore iswitchb-buffer-ignore-orig
))
759 (iswitchb-make-buflist iswitchb-default
)
760 ;; ask for list to be regenerated.
761 (setq iswitchb-rescan t
))
763 (defun iswitchb-exit-minibuffer ()
764 "Exit minibuffer, but make sure we have a match if one is needed."
766 (if (or (not iswitchb-require-match
)
767 (iswitchb-existing-buffer-p))
769 (setq iswitchb-exit
'usefirst
)
772 (defun iswitchb-select-buffer-text ()
773 "Select the buffer named by the prompt.
774 If no buffer exactly matching the prompt exists, maybe create a new one."
776 (setq iswitchb-exit
'takeprompt
)
779 (defun iswitchb-find-file ()
780 "Drop into `find-file' from buffer switching."
782 (setq iswitchb-exit
'findfile
)
785 (defvar recentf-list
)
787 (defun iswitchb-next-match ()
788 "Put first element of `iswitchb-matches' at the end of the list."
790 (let ((next (cadr iswitchb-matches
)))
791 (if (and (null next
) iswitchb-virtual-buffers
)
793 (iswitchb-chop recentf-list
794 (cdr (cadr iswitchb-virtual-buffers
))))
795 (setq iswitchb-buflist
(iswitchb-chop iswitchb-buflist next
)))
796 (setq iswitchb-rescan t
)))
798 (defun iswitchb-prev-match ()
799 "Put last element of `iswitchb-matches' at the front of the list."
801 (let ((prev (car (last iswitchb-matches
))))
802 (if (and (null prev
) iswitchb-virtual-buffers
)
804 (iswitchb-chop recentf-list
805 (cdr (car (last iswitchb-virtual-buffers
)))))
806 (setq iswitchb-buflist
(iswitchb-chop iswitchb-buflist prev
)))
807 (setq iswitchb-rescan t
)))
809 (defun iswitchb-chop (list elem
)
810 "Remove all elements before ELEM and put them at the end of LIST."
815 (setq next
(car list
))
816 (if (equal next elem
)
817 (setq ret
(append list
(nreverse sofar
)))
820 (setq list
(cdr list
))
821 (setq sofar
(cons next sofar
)))))
824 ;;; CREATE LIST OF ALL CURRENT BUFFERS
826 (defun iswitchb-make-buflist (default)
827 "Set `iswitchb-buflist' to the current list of buffers.
828 Currently visible buffers are put at the end of the list.
829 The hook `iswitchb-make-buflist-hook' is run after the list has been
830 created to allow the user to further modify the order of the buffer names
831 in this list. If DEFAULT is non-nil, and corresponds to an existing buffer,
832 it is put to the start of the list."
833 (setq iswitchb-buflist
834 (let* ((iswitchb-current-buffers (iswitchb-get-buffers-in-frames))
835 (iswitchb-temp-buflist
839 (let ((b-name (buffer-name x
)))
842 (iswitchb-ignore-buffername-p b-name
)
843 (memq b-name iswitchb-current-buffers
)))
845 (buffer-list (and iswitchb-use-frame-buffer-list
846 (selected-frame)))))))
847 (setq iswitchb-temp-buflist
848 (nconc iswitchb-temp-buflist iswitchb-current-buffers
))
849 (run-hooks 'iswitchb-make-buflist-hook
)
850 ;; Should this be after the hooks, or should the hooks be the
851 ;; final thing to be run?
854 (setq iswitchb-temp-buflist
855 (delete default iswitchb-temp-buflist
))
856 (setq iswitchb-temp-buflist
857 (cons default iswitchb-temp-buflist
))))
858 iswitchb-temp-buflist
)))
860 (defun iswitchb-to-end (lst)
861 "Move the elements from LST to the end of `iswitchb-temp-buflist'."
863 (setq iswitchb-temp-buflist
(delq elem iswitchb-temp-buflist
)))
864 (setq iswitchb-temp-buflist
(nconc iswitchb-temp-buflist lst
)))
866 (defun iswitchb-get-buffers-in-frames (&optional current
)
867 "Return the list of buffers that are visible in the current frame.
868 If optional argument CURRENT is given, restrict searching to the
869 current frame, rather than all frames, regardless of value of
870 `iswitchb-all-frames'."
871 (let ((iswitchb-bufs-in-frame nil
))
872 (walk-windows 'iswitchb-get-bufname nil
875 iswitchb-all-frames
))
876 iswitchb-bufs-in-frame
))
878 (defun iswitchb-get-bufname (win)
879 "Used by `iswitchb-get-buffers-in-frames' to walk through all windows."
880 (let ((buf (buffer-name (window-buffer win
))))
881 (if (not (member buf iswitchb-bufs-in-frame
))
882 ;; Only add buf if it is not already in list.
883 ;; This prevents same buf in two different windows being
884 ;; put into the list twice.
885 (setq iswitchb-bufs-in-frame
886 (cons buf iswitchb-bufs-in-frame
)))))
888 ;;; FIND MATCHING BUFFERS
890 (defun iswitchb-set-matches ()
891 "Set `iswitchb-matches' to the list of buffers matching prompt."
893 (setq iswitchb-matches
894 (let ((buflist iswitchb-buflist
))
895 (iswitchb-get-matched-buffers iswitchb-text iswitchb-regexp
897 iswitchb-virtual-buffers nil
)))
899 (defun iswitchb-get-matched-buffers (regexp
900 &optional string-format buffer-list
)
901 "Return buffers matching REGEXP.
902 If STRING-FORMAT is nil, consider REGEXP as just a string.
903 BUFFER-LIST can be list of buffers or list of strings."
904 (let ((case-fold-search (iswitchb-case))
906 (if (null string-format
) (setq regexp
(regexp-quote regexp
)))
907 (setq iswitchb-invalid-regexp nil
)
908 (condition-case error
909 (dolist (x buffer-list
(nreverse ret
))
910 (setq name
(if (stringp x
) x
(buffer-name x
)))
911 (when (and (string-match regexp name
)
912 (not (iswitchb-ignore-buffername-p name
)))
915 (setq iswitchb-invalid-regexp t
)
918 (defun iswitchb-ignore-buffername-p (bufname)
919 "Return t if the buffer BUFNAME should be ignored."
920 (let ((data (match-data))
921 (re-list iswitchb-buffer-ignore
)
925 (setq nextstr
(car re-list
))
928 (if (string-match nextstr bufname
)
931 (setq re-list nil
))))
933 (if (funcall nextstr bufname
)
936 (setq re-list nil
)))))
937 (setq re-list
(cdr re-list
)))
938 (set-match-data data
)
943 (defun iswitchb-word-matching-substring (word)
944 "Return part of WORD before 1st match to `iswitchb-change-word-sub'.
945 If `iswitchb-change-word-sub' cannot be found in WORD, return nil."
946 (let ((case-fold-search (iswitchb-case)))
947 (let ((m (string-match iswitchb-change-word-sub word
)))
953 (defun iswitchb-find-common-substring (lis subs
)
954 "Return common string following SUBS in each element of LIS."
957 iswitchb-change-word-sub
)
958 (setq iswitchb-change-word-sub
961 (regexp-quote subs
)))
962 (setq res
(mapcar 'iswitchb-word-matching-substring lis
))
963 (setq res
(delq nil res
)) ;; remove any nil elements (shouldn't happen)
964 (setq alist
(mapcar 'iswitchb-makealist res
)) ;; could use an OBARRAY
966 ;; try-completion returns t if there is an exact match.
967 (let ((completion-ignore-case (iswitchb-case)))
969 (try-completion subs alist
))))
971 (defun iswitchb-makealist (res)
972 "Return dotted pair (RES . 1)."
975 ;; from Wayne Mesard <wmesard@esd.sgi.com>
976 (defun iswitchb-rotate-list (lis)
977 "Destructively remove the last element from LIS.
978 Return the modified list with the last element prepended to it."
979 (if (<= (length lis
) 1)
983 (while (consp (cdr las
))
987 (cons (car las
) lis
))))
989 (defun iswitchb-completion-help ()
990 "Show possible completions in a *Completions* buffer."
991 ;; we could allow this buffer to be used to select match, but I think
992 ;; choose-completion-string will need redefining, so it just inserts
993 ;; choice with out any previous input.
995 (setq iswitchb-rescan nil
)
996 (let ((buf (current-buffer))
997 (temp-buf "*Completions*")
1000 (if (and (eq last-command this-command
)
1001 (not iswitchb-common-match-inserted
))
1004 (set-buffer temp-buf
)
1005 (setq win
(get-buffer-window temp-buf
))
1006 (if (pos-visible-in-window-p (point-max) win
)
1007 (set-window-start win
(point-min))
1008 (scroll-other-window))
1011 (with-output-to-temp-buffer temp-buf
1012 (if (featurep 'xemacs
)
1014 ;; XEmacs extents are put on by default, doesn't seem to be
1015 ;; any way of switching them off.
1016 (display-completion-list (if iswitchb-matches
1019 :help-string
"iswitchb "
1022 (message "doesn't work yet, sorry!")))
1023 ;; else running Emacs
1024 (with-current-buffer standard-output
1026 (display-completion-list (if iswitchb-matches
1028 iswitchb-buflist
))))
1029 (setq iswitchb-common-match-inserted nil
))))
1031 ;;; KILL CURRENT BUFFER
1033 (defun iswitchb-kill-buffer ()
1034 "Kill the buffer at the head of `iswitchb-matches'."
1036 (let ( (enable-recursive-minibuffers t
)
1039 (setq buf
(car iswitchb-matches
))
1040 ;; check to see if buf is non-nil.
1045 ;; Check if buffer exists. XEmacs gnuserv.el makes alias
1046 ;; for kill-buffer which does not return t if buffer is
1047 ;; killed, so we can't rely on kill-buffer return value.
1048 (if (get-buffer buf
)
1049 ;; buffer couldn't be killed.
1050 (setq iswitchb-rescan t
)
1051 ;; else buffer was killed so remove name from list.
1052 (setq iswitchb-buflist
(delq buf iswitchb-buflist
)))))))
1054 ;;; VISIT CHOSEN BUFFER
1055 (defun iswitchb-visit-buffer (buffer)
1056 "Visit buffer named BUFFER according to `iswitchb-method'."
1059 ((eq iswitchb-method
'samewindow
)
1060 (switch-to-buffer buffer
))
1062 ((memq iswitchb-method
'(always-frame maybe-frame
))
1064 ((and (setq win
(iswitchb-window-buffer-p buffer
))
1065 (or (eq iswitchb-method
'always-frame
)
1066 (y-or-n-p "Jump to frame? ")))
1067 (setq newframe
(window-frame win
))
1068 (if (fboundp 'select-frame-set-input-focus
)
1069 (select-frame-set-input-focus newframe
)
1070 (raise-frame newframe
)
1071 (select-frame newframe
)
1073 (select-window win
))
1075 ;; No buffer in other frames...
1076 (switch-to-buffer buffer
)
1079 ((eq iswitchb-method
'otherwindow
)
1080 (switch-to-buffer-other-window buffer
))
1082 ((eq iswitchb-method
'display
)
1083 (display-buffer buffer
))
1085 ((eq iswitchb-method
'otherframe
)
1087 (switch-to-buffer-other-frame buffer
)
1088 (if (fboundp 'select-frame-set-input-focus
)
1089 (select-frame-set-input-focus (selected-frame)))
1092 (defun iswitchb-possible-new-buffer (buf)
1093 "Possibly create and visit a new buffer called BUF."
1095 (let ((newbufcreated))
1096 (if (and iswitchb-newbuffer
1098 (not iswitchb-prompt-newbuffer
)
1100 (and iswitchb-prompt-newbuffer
1103 "No buffer matching `%s', create one? "
1105 ;; then create a new buffer
1107 (setq newbufcreated
(get-buffer-create buf
))
1108 (if (fboundp 'set-buffer-major-mode
)
1109 (set-buffer-major-mode newbufcreated
))
1110 (iswitchb-visit-buffer newbufcreated
))
1111 ;; else wont create new buffer
1112 (message "no buffer matching `%s'" buf
))))
1114 (defun iswitchb-window-buffer-p (buffer)
1115 "Return window pointer if BUFFER is visible in another frame.
1116 If BUFFER is visible in the current frame, return nil."
1118 (let ((blist (iswitchb-get-buffers-in-frames 'current
)))
1119 ;;If the buffer is visible in current frame, return nil
1120 (if (memq buffer blist
)
1122 ;; maybe in other frame or icon
1123 (get-buffer-window buffer
0) ; better than 'visible
1126 (defun iswitchb-default-keybindings ()
1127 "Set up default keybindings for `iswitchb-buffer'.
1128 Call this function to override the normal bindings. This function also
1129 adds a hook to the minibuffer."
1131 (add-hook 'minibuffer-setup-hook
'iswitchb-minibuffer-setup
)
1132 (global-set-key "\C-xb" 'iswitchb-buffer
)
1133 (global-set-key "\C-x4b" 'iswitchb-buffer-other-window
)
1134 (global-set-key "\C-x4\C-o" 'iswitchb-display-buffer
)
1135 (global-set-key "\C-x5b" 'iswitchb-buffer-other-frame
))
1137 (make-obsolete 'iswitchb-default-keybindings
'iswitchb-mode
"21.1")
1139 (defun iswitchb-buffer ()
1140 "Switch to another buffer.
1142 The buffer name is selected interactively by typing a substring. The
1143 buffer is displayed according to `iswitchb-default-method' -- the
1144 default is to show it in the same window, unless it is already visible
1146 For details of keybindings, do `\\[describe-function] iswitchb'."
1148 (setq iswitchb-method iswitchb-default-method
)
1151 (defun iswitchb-buffer-other-window ()
1152 "Switch to another buffer and show it in another window.
1153 The buffer name is selected interactively by typing a substring.
1154 For details of keybindings, do `\\[describe-function] iswitchb'."
1156 (setq iswitchb-method
'otherwindow
)
1159 (defun iswitchb-display-buffer ()
1160 "Display a buffer in another window but don't select it.
1161 The buffer name is selected interactively by typing a substring.
1162 For details of keybindings, do `\\[describe-function] iswitchb'."
1164 (setq iswitchb-method
'display
)
1167 (defun iswitchb-buffer-other-frame ()
1168 "Switch to another buffer and show it in another frame.
1169 The buffer name is selected interactively by typing a substring.
1170 For details of keybindings, do `\\[describe-function] iswitchb'."
1172 (setq iswitchb-method
'otherframe
)
1175 ;;; XEmacs hack for showing default buffer
1177 ;; The first time we enter the minibuffer, Emacs puts up the default
1178 ;; buffer to switch to, but XEmacs doesn't -- presumably there is a
1179 ;; subtle difference in the two versions of post-command-hook. The
1180 ;; default is shown for both whenever we delete all of our text
1181 ;; though, indicating its just a problem the first time we enter the
1182 ;; function. To solve this, we use another entry hook for emacs to
1183 ;; show the default the first time we enter the minibuffer.
1185 (defun iswitchb-init-XEmacs-trick ()
1186 "Display default buffer when first entering minibuffer.
1187 This is a hack for XEmacs, and should really be handled by `iswitchb-exhibit'."
1188 (if (iswitchb-entryfn-p)
1191 (goto-char (point-min)))))
1193 ;; add this hook for XEmacs only.
1194 (if (featurep 'xemacs
)
1195 (add-hook 'iswitchb-minibuffer-setup-hook
1196 'iswitchb-init-XEmacs-trick
))
1198 ;;; XEmacs / backspace key
1199 ;; For some reason, if the backspace key is pressed in XEmacs, the
1200 ;; line gets confused, so I've added a simple key definition to make
1201 ;; backspace act like the normal delete key.
1203 (defun iswitchb-xemacs-backspacekey ()
1204 "Bind backspace to `backward-delete-char'."
1205 (define-key iswitchb-mode-map
'[backspace] 'backward-delete-char)
1206 (define-key iswitchb-mode-map '[(meta backspace)] 'backward-kill-word))
1208 (if (featurep 'xemacs)
1209 (add-hook 'iswitchb-define-mode-map-hook
1210 'iswitchb-xemacs-backspacekey))
1212 ;;; ICOMPLETE TYPE CODE
1214 (defun iswitchb-exhibit ()
1215 "Find matching buffers and display a list in the minibuffer.
1216 Copied from `icomplete-exhibit' with two changes:
1217 1. It prints a default buffer name when there is no text yet entered.
1218 2. It calls my completion routine rather than the standard completion."
1219 (if iswitchb-use-mycompletion
1220 (let ((contents (buffer-substring (minibuffer-prompt-end) (point-max)))
1221 (buffer-undo-list t))
1223 (goto-char (point-max))
1224 ; Register the end of input, so we
1225 ; know where the extra stuff
1226 ; (match-status info) begins:
1227 (if (not (boundp 'iswitchb-eoinput))
1228 ;; In case it got wiped out by major mode business:
1229 (make-local-variable 'iswitchb-eoinput))
1230 (setq iswitchb-eoinput (point))
1231 ;; Update the list of matches
1232 (setq iswitchb-text contents)
1233 (iswitchb-set-matches)
1234 (setq iswitchb-rescan t)
1235 (iswitchb-set-common-completion)
1237 ;; Insert the match-status information:
1238 (insert (iswitchb-completions
1242 (defvar most-is-exact)
1244 (defun iswitchb-output-completion (com)
1245 (if (= (length com) most-len)
1246 ;; Most is one exact match,
1247 ;; note that and leave out
1248 ;; for later indication:
1250 (setq most-is-exact t))
1251 (substring com most-len)))
1253 (defun iswitchb-completions (name)
1254 "Return the string that is displayed after the user's text.
1255 Modified from `icomplete-completions'."
1257 (let ((comps iswitchb-matches)
1258 ; "-determined" - only one candidate
1259 (open-bracket-determined "[")
1260 (close-bracket-determined "]")
1261 ;"-prospects" - more than one candidate
1262 (open-bracket-prospects "{")
1263 (close-bracket-prospects "}")
1266 (if (and iswitchb-use-faces comps)
1268 (setq first (car comps))
1269 (setq first (format "%s" first))
1270 (put-text-property 0 (length first) 'face
1271 (if (= (length comps) 1)
1272 (if iswitchb-invalid-regexp
1273 'iswitchb-invalid-regexp
1274 'iswitchb-single-match)
1275 'iswitchb-current-match)
1277 (setq comps (cons first (cdr comps)))))
1279 ;; If no buffers matched, and virtual buffers are being used, then
1280 ;; consult the list of past visited files, to see if we can find
1281 ;; the file which the user might thought was still open.
1282 (when (and iswitchb-use-virtual-buffers (null comps)
1284 (setq iswitchb-virtual-buffers nil)
1285 (let ((head recentf-list) name)
1287 (if (and (setq name (file-name-nondirectory (car head)))
1288 (string-match (if iswitchb-regexp
1290 (regexp-quote iswitchb-text)) name)
1291 (null (get-file-buffer (car head)))
1292 (not (assoc name iswitchb-virtual-buffers))
1293 (not (iswitchb-ignore-buffername-p name))
1294 (file-exists-p (car head)))
1295 (setq iswitchb-virtual-buffers
1296 (cons (cons name (car head))
1297 iswitchb-virtual-buffers)))
1298 (setq head (cdr head)))
1299 (setq iswitchb-virtual-buffers (nreverse iswitchb-virtual-buffers)
1300 comps (mapcar 'car iswitchb-virtual-buffers))
1303 (put-text-property 0 (length (car comp))
1304 'face 'iswitchb-virtual-matches
1306 (setq comp (cdr comp))))))
1308 (cond ((null comps) (format " %sNo match%s"
1309 open-bracket-determined
1310 close-bracket-determined))
1312 (iswitchb-invalid-regexp
1313 (concat " " (car comps)))
1314 ((null (cdr comps)) ;one match
1316 (if (if (not iswitchb-regexp)
1318 (length (car comps)))
1319 (string-match name (car comps))
1320 (string-equal (match-string 0 (car comps))
1323 (concat open-bracket-determined
1324 ;; when there is one match, show the
1325 ;; matching buffer name in full
1327 close-bracket-determined))
1328 (if (not iswitchb-use-faces) " [Matched]")))
1329 (t ;multiple matches
1330 (if (and iswitchb-max-to-show
1331 (> (length comps) iswitchb-max-to-show))
1336 (end (/ iswitchb-max-to-show 2)))
1337 (while (>= (setq end (1- end)) 0)
1338 (setq res (cons (car comp) res)
1342 (nthcdr (- (length comps)
1343 (/ iswitchb-max-to-show 2)) comps))))
1345 ;;(most (try-completion name candidates predicate))
1347 (most-len (length most))
1350 (mapconcat (if most 'iswitchb-output-completion
1351 'identity) comps iswitchb-delim)))
1355 ;; put in common completion item -- what you get by
1357 (if (and (stringp iswitchb-common-match-string)
1358 (> (length iswitchb-common-match-string) (length name)))
1359 (concat open-bracket-determined
1360 (substring iswitchb-common-match-string
1362 close-bracket-determined))
1363 ;; end of partial matches...
1365 ;; think this bit can be ignored.
1366 (and (> most-len (length name))
1367 (concat open-bracket-determined
1368 (substring most (length name))
1369 close-bracket-determined))
1371 ;; list all alternatives
1372 open-bracket-prospects
1374 (concat iswitchb-delim alternatives)
1376 close-bracket-prospects))))))
1378 (defun iswitchb-minibuffer-setup ()
1379 "Set up minibuffer for `iswitchb-buffer'.
1380 Copied from `icomplete-minibuffer-setup-hook'."
1381 (when (iswitchb-entryfn-p)
1382 (set (make-local-variable 'iswitchb-use-mycompletion) t)
1383 (add-hook 'pre-command-hook 'iswitchb-pre-command nil t)
1384 (add-hook 'post-command-hook 'iswitchb-post-command nil t)
1385 (run-hooks 'iswitchb-minibuffer-setup-hook)))
1387 (defun iswitchb-pre-command ()
1388 "Run before command in `iswitchb-buffer'."
1391 (defun iswitchb-post-command ()
1392 "Run after command in `iswitchb-buffer'."
1395 (defun iswitchb-tidy ()
1396 "Remove completions display, if any, prior to new user input.
1397 Copied from `icomplete-tidy'."
1399 (if (and (boundp 'iswitchb-eoinput)
1402 (if (> iswitchb-eoinput (point-max))
1403 ;; Oops, got rug pulled out from under us - reinit:
1404 (setq iswitchb-eoinput (point-max))
1405 (let ((buffer-undo-list buffer-undo-list )) ; prevent entry
1406 (delete-region iswitchb-eoinput (point-max))))
1408 ;; Reestablish the local variable 'cause minibuffer-setup is weird:
1409 (make-local-variable 'iswitchb-eoinput)
1410 (setq iswitchb-eoinput 1)))
1412 (defun iswitchb-entryfn-p ()
1413 "Return non-nil if we are using `iswitchb-buffer'."
1414 (eq iswitchb-minibuf-depth (minibuffer-depth)))
1416 (defun iswitchb-summaries-to-end ()
1417 "Move the summaries to the end of the list.
1418 This is an example function which can be hooked on to
1419 `iswitchb-make-buflist-hook'. Any buffer matching the regexps
1420 `Summary' or `output\*$'are put to the end of the list."
1421 (let ((summaries (delq nil
1424 (if (string-match "Summary\\|output\\*$" x)
1426 iswitchb-temp-buflist))))
1427 (iswitchb-to-end summaries)))
1429 (defun iswitchb-case ()
1430 "Return non-nil if we should ignore case when matching.
1431 See the variable `iswitchb-case' for details."
1433 (if (featurep 'xemacs)
1434 (isearch-no-upper-case-p iswitchb-text)
1435 (isearch-no-upper-case-p iswitchb-text t))))
1438 (define-minor-mode iswitchb-mode
1439 "Toggle Iswitchb global minor mode.
1440 With arg, turn Iswitchb mode on if ARG is positive, otherwise turn it off.
1441 This mode enables switching between buffers using substrings. See
1442 `iswitchb' for details."
1443 nil nil iswitchb-global-map :global t :group 'iswitchb
1445 (add-hook 'minibuffer-setup-hook 'iswitchb-minibuffer-setup)
1446 (remove-hook 'minibuffer-setup-hook 'iswitchb-minibuffer-setup)))
1450 ;; arch-tag: d74198ae-753f-44f2-b34f-0c515398d90a
1451 ;;; iswitchb.el ends here