annotate lisp/iswitchb.el @ 76241:e4d076f4d52c

* net/tramp.el (tramp-file-name-handler): Revert last change.
author Chong Yidong <cyd@stupidchicken.com>
date Wed, 28 Feb 2007 22:22:08 +0000
parents ff242396ed7e
children 9355f9b7bbff 95d0cdf160ea
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1 ;;; iswitchb.el --- switch between buffers using substrings
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
64762
41bb365f41c4 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64091
diff changeset
3 ;; Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004,
75067
ff242396ed7e (iswitchb-global-map): Use command-remapping if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69538
diff changeset
4 ;; 2005, 2006, 2007 Free Software Foundation, Inc.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
41161
e72cd74733bb Change maintainer email address.
Richard M. Stallman <rms@gnu.org>
parents: 35570
diff changeset
6 ;; Author: Stephen Eglen <stephen@gnu.org>
e72cd74733bb Change maintainer email address.
Richard M. Stallman <rms@gnu.org>
parents: 35570
diff changeset
7 ;; Maintainer: Stephen Eglen <stephen@gnu.org>
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
8 ;; Keywords: completion convenience
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
10 ;; This file is part of GNU Emacs.
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
11
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; any later version.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 ;; GNU General Public License for more details.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64091
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63436
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
6fb026ad601f Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63436
diff changeset
25 ;; Boston, MA 02110-1301, USA.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26
21058
f2c4ac206a48 (iswitchb-default-method): Remove :tag entries.
Stephen Eglen <stephen@gnu.org>
parents: 20470
diff changeset
27 ;;; Commentary:
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28
21058
f2c4ac206a48 (iswitchb-default-method): Remove :tag entries.
Stephen Eglen <stephen@gnu.org>
parents: 20470
diff changeset
29 ;; Installation:
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
30 ;; To get the functions in this package bound to keys, use
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
31 ;; M-x iswitchb-mode or customize the option `iswitchb-mode'.
52263
078527ad9cd8 Documentation update for installation.
Stephen Eglen <stephen@gnu.org>
parents: 51660
diff changeset
32 ;; Alternatively, add the following line to your .emacs:
078527ad9cd8 Documentation update for installation.
Stephen Eglen <stephen@gnu.org>
parents: 51660
diff changeset
33 ;; (iswitchb-mode 1)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 ;; As you type in a substring, the list of buffers currently matching
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
36 ;; the substring is displayed as you type. The list is ordered so
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37 ;; that the most recent buffers visited come at the start of the list.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 ;; The buffer at the start of the list will be the one visited when
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 ;; you press return. By typing more of the substring, the list is
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 ;; narrowed down so that gradually the buffer you want will be at the
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
41 ;; top of the list. Alternatively, you can use C-s and C-r to rotate
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 ;; buffer names in the list until the one you want is at the top of
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 ;; the list. Completion is also available so that you can see what is
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 ;; common to all of the matching buffers as you type.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 ;; This code is similar to a couple of other packages. Michael R Cook
28619
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
47 ;; <cook@sightpath.com> wrote a similar buffer switching package, but
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 ;; does exact matching rather than substring matching on buffer names.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 ;; I also modified a couple of functions from icomplete.el to provide
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 ;; the completion feedback in the minibuffer.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
52 ;;; Example
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53
41926
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
54 ;; If I have two buffers called "123456" and "123", with "123456" the
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
55 ;; most recent, when I use iswitchb, I first of all get presented with
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
56 ;; the list of all the buffers
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 ;;
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
58 ;; iswitch {123456,123}
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 ;;
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 ;; If I then press 2:
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 ;; iswitch 2[3]{123456,123}
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 ;;
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 ;; The list in {} are the matching buffers, most recent first (buffers
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64 ;; visible in the current frame are put at the end of the list by
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 ;; default). At any time I can select the item at the head of the
51660
a7765f7f8c9e (iswitchb-read-buffer): Remove redudant variable
Stephen Eglen <stephen@gnu.org>
parents: 51366
diff changeset
66 ;; list by pressing RET. I can also put the first element at the end
a7765f7f8c9e (iswitchb-read-buffer): Remove redudant variable
Stephen Eglen <stephen@gnu.org>
parents: 51366
diff changeset
67 ;; of the list by pressing C-s, or put the last element at the head of
a7765f7f8c9e (iswitchb-read-buffer): Remove redudant variable
Stephen Eglen <stephen@gnu.org>
parents: 51366
diff changeset
68 ;; the list by pressing C-r. The item in [] indicates what can be
a7765f7f8c9e (iswitchb-read-buffer): Remove redudant variable
Stephen Eglen <stephen@gnu.org>
parents: 51366
diff changeset
69 ;; added to my input by pressing TAB. In this case, I will get "3"
a7765f7f8c9e (iswitchb-read-buffer): Remove redudant variable
Stephen Eglen <stephen@gnu.org>
parents: 51366
diff changeset
70 ;; added to my input. So, press TAB:
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 ;; iswitch 23{123456,123}
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 ;;
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 ;; At this point, I still have two matching buffers.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 ;; If I want the first buffer in the list, I simply press RET. If I
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 ;; wanted the second in the list, I could press C-s to move it to the
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 ;; top of the list and then RET to select it.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 ;;
41926
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
78 ;; However, if I type 4, I only have one match left:
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 ;; iswitch 234[123456] [Matched]
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80 ;;
41926
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
81 ;; Since there is only one matching buffer left, it is given in [] and we
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
82 ;; see the text [Matched] afterwards. I can now press TAB or RET to go
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
83 ;; to that buffer.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 ;;
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 ;; If however, I now type "a":
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 ;; iswitch 234a [No match]
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 ;; There are no matching buffers. If I press RET or TAB, I can be
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 ;; prompted to create a new buffer called "234a".
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 ;;
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 ;; Of course, where this function comes in really useful is when you
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 ;; can specify the buffer using only a few keystrokes. In the above
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 ;; example, the quickest way to get to the "123456" buffer would be
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
93 ;; just to type 4 and then RET (assuming there isn't any newer buffer
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 ;; with 4 in its name).
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 ;; To see a full list of all matching buffers in a separate buffer,
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 ;; hit ? or press TAB when there are no further completions to the
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
98 ;; substring. Repeated TAB presses will scroll you through this
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
99 ;; separate buffer.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
101 ;; The buffer at the head of the list can be killed by pressing C-k.
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
102 ;; If the buffer needs saving, you will be queried before the buffer
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
103 ;; is killed.
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
104
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
105 ;; If you find that the file you are after is not in a buffer, you can
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
106 ;; press C-x C-f to immediately drop into find-file.
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
107
41926
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
108 ;; See the doc string of iswitchb for full keybindings and features.
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
109 ;; (describe-function 'iswitchb)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110
28619
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
111 ;; Case matching: The case of strings when matching can be ignored or
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
112 ;; used depending on the value of iswitchb-case (default is the same
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
113 ;; as case-fold-search, normally t). Imagine you have the following
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
114 ;; buffers:
28619
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
115 ;;
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
116 ;; INBOX *info* *scratch*
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
117 ;;
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
118 ;; Then these will be the matching buffers, depending on how you type
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
119 ;; the two letters `in' and the value of iswitchb-case:
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
120 ;;
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
121 ;; iswitchb-case user input | matching buffers
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
122 ;; ----------------------------------------------
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
123 ;; nil in | *info*
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
124 ;; t in | INBOX, *info*
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
125 ;; t IN | INBOX
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
126 ;; t In | [No match]
28619
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
127
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 ;;; Customisation
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 ;; See the User Variables section below for easy ways to change the
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
131 ;; functionality of the program. These are accessible using the
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
132 ;; custom package.
41287
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
133 ;; To modify the keybindings, use something like:
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 ;;
41287
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
135 ;;(add-hook 'iswitchb-mode-hook 'iswitchb-my-keys)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 ;;(defun iswitchb-my-keys ()
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
137 ;; "Add my keybindings for iswitchb."
41287
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
138 ;; (define-key iswitchb-mode-map " " 'iswitchb-next-match))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 ;;
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
140 ;; Seeing all the matching buffers
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
141 ;;
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 ;; If you have many matching buffers, they may not all fit onto one
34208
6059c5943d9f Update customization commentary.
Gerd Moellmann <gerd@gnu.org>
parents: 33818
diff changeset
143 ;; line of the minibuffer. In Emacs 21, the variable
6059c5943d9f Update customization commentary.
Gerd Moellmann <gerd@gnu.org>
parents: 33818
diff changeset
144 ;; `resize-mini-windows' controls how many lines of the minibuffer can
6059c5943d9f Update customization commentary.
Gerd Moellmann <gerd@gnu.org>
parents: 33818
diff changeset
145 ;; be seen. For older versions of emacs, you can use
6059c5943d9f Update customization commentary.
Gerd Moellmann <gerd@gnu.org>
parents: 33818
diff changeset
146 ;; `resize-minibuffer-mode'. You can also limit iswitchb so that it
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 ;; only shows a certain number of lines -- see the documentation for
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 ;; `iswitchb-minibuffer-setup-hook'.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
150 ;; Changing the list of buffers
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 ;; By default, the list of current buffers is most recent first,
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 ;; oldest last, with the exception that the buffers visible in the
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154 ;; current frame are put at the end of the list. A hook exists to
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 ;; allow other functions to order the list. For example, if you add:
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 ;;
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 ;; (add-hook 'iswitchb-make-buflist-hook 'iswitchb-summaries-to-end)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 ;;
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 ;; then all buffers matching "Summary" are moved to the end of the
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 ;; list. (I find this handy for keeping the INBOX Summary and so on
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 ;; out of the way.) It also moves buffers matching "output\*$" to the
56754
5ea587a67aae Update AUCTeX information.
David Kastrup <dak@gnu.org>
parents: 55580
diff changeset
162 ;; end of the list (these are created by AUCTeX when compiling.)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 ;; Other functions could be made available which alter the list of
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 ;; matching buffers (either deleting or rearranging elements.)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 ;; Font-Lock
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
168 ;; font-lock is used to highlight the first matching buffer. To
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
169 ;; switch this off, set (setq iswitchb-use-faces nil). Colouring of
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
170 ;; the matching buffer name was suggested by Carsten Dominik
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
171 ;; (dominik@strw.leidenuniv.nl)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
173 ;; Replacement for read-buffer
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
175 ;; iswitchb-read-buffer has been written to be a drop in replacement
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
176 ;; for the normal buffer selection routine `read-buffer'. To use
21058
f2c4ac206a48 (iswitchb-default-method): Remove :tag entries.
Stephen Eglen <stephen@gnu.org>
parents: 20470
diff changeset
177 ;; iswitch for all buffer selections in Emacs, add:
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
178 ;; (setq read-buffer-function 'iswitchb-read-buffer)
41926
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
179 ;; (This variable was introduced in Emacs 20.3.)
21058
f2c4ac206a48 (iswitchb-default-method): Remove :tag entries.
Stephen Eglen <stephen@gnu.org>
parents: 20470
diff changeset
180 ;; XEmacs users can get the same behaviour by doing:
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
181 ;; (defalias 'read-buffer 'iswitchb-read-buffer)
21058
f2c4ac206a48 (iswitchb-default-method): Remove :tag entries.
Stephen Eglen <stephen@gnu.org>
parents: 20470
diff changeset
182 ;; since `read-buffer' is defined in lisp.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183
41926
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
184 ;; Using iswitchb for other completion tasks.
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
185
44557
4b1e92d76a10 Update commentary to include new function iswitchb-exclude-nonmatching.
Pavel Janík <Pavel@Janik.cz>
parents: 41926
diff changeset
186 ;; Kin Cho (kin@neoscale.com) sent the following suggestion to use
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
187 ;; iswitchb for other completion tasks.
41926
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
188 ;;
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
189 ;; (defun my-icompleting-read (prompt choices)
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
190 ;; "Use iswitch as a completing-read replacement to choose from
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
191 ;; choices. PROMPT is a string to prompt with. CHOICES is a list of
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
192 ;; strings to choose from."
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
193 ;; (let ((iswitchb-make-buflist-hook
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
194 ;; (lambda ()
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
195 ;; (setq iswitchb-temp-buflist choices))))
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
196 ;; (iswitchb-read-buffer prompt)))
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
197 ;;
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
198 ;; example:
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
199 ;; (my-icompleting-read "Which fruit? " '
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
200 ;; ("apple" "pineapple" "pear" "bananas" "oranges") )
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
201
44557
4b1e92d76a10 Update commentary to include new function iswitchb-exclude-nonmatching.
Pavel Janík <Pavel@Janik.cz>
parents: 41926
diff changeset
202 ;; Kin Cho also suggested the following defun. Once you have a subset of
4b1e92d76a10 Update commentary to include new function iswitchb-exclude-nonmatching.
Pavel Janík <Pavel@Janik.cz>
parents: 41926
diff changeset
203 ;; matching buffers matching your current prompt, you can then press
4b1e92d76a10 Update commentary to include new function iswitchb-exclude-nonmatching.
Pavel Janík <Pavel@Janik.cz>
parents: 41926
diff changeset
204 ;; e.g. C-o to restrict matching to those buffers and clearing the prompt:
4b1e92d76a10 Update commentary to include new function iswitchb-exclude-nonmatching.
Pavel Janík <Pavel@Janik.cz>
parents: 41926
diff changeset
205 ;; (defun iswitchb-exclude-nonmatching()
4b1e92d76a10 Update commentary to include new function iswitchb-exclude-nonmatching.
Pavel Janík <Pavel@Janik.cz>
parents: 41926
diff changeset
206 ;; "Make iswitchb work on only the currently matching names."
4b1e92d76a10 Update commentary to include new function iswitchb-exclude-nonmatching.
Pavel Janík <Pavel@Janik.cz>
parents: 41926
diff changeset
207 ;; (interactive)
4b1e92d76a10 Update commentary to include new function iswitchb-exclude-nonmatching.
Pavel Janík <Pavel@Janik.cz>
parents: 41926
diff changeset
208 ;; (setq iswitchb-buflist iswitchb-matches)
4b1e92d76a10 Update commentary to include new function iswitchb-exclude-nonmatching.
Pavel Janík <Pavel@Janik.cz>
parents: 41926
diff changeset
209 ;; (setq iswitchb-rescan t)
4b1e92d76a10 Update commentary to include new function iswitchb-exclude-nonmatching.
Pavel Janík <Pavel@Janik.cz>
parents: 41926
diff changeset
210 ;; (delete-minibuffer-contents))
4b1e92d76a10 Update commentary to include new function iswitchb-exclude-nonmatching.
Pavel Janík <Pavel@Janik.cz>
parents: 41926
diff changeset
211 ;;
4b1e92d76a10 Update commentary to include new function iswitchb-exclude-nonmatching.
Pavel Janík <Pavel@Janik.cz>
parents: 41926
diff changeset
212 ;; (add-hook 'iswitchb-define-mode-map-hook
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
213 ;; '(lambda () (define-key
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
214 ;; iswitchb-mode-map "\C-o"
44557
4b1e92d76a10 Update commentary to include new function iswitchb-exclude-nonmatching.
Pavel Janík <Pavel@Janik.cz>
parents: 41926
diff changeset
215 ;; 'iswitchb-exclude-nonmatching)))
4b1e92d76a10 Update commentary to include new function iswitchb-exclude-nonmatching.
Pavel Janík <Pavel@Janik.cz>
parents: 41926
diff changeset
216
41926
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
217 ;; Other lisp packages extend iswitchb behaviour to other tasks. See
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
218 ;; ido.el (by Kim Storm) and mcomplete.el (Yuji Minejima).
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
219
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
220 ;; Window managers: Switching frames/focus follows mouse; Sawfish.
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
221
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
222 ;; If you switch to a buffer that is visible in another frame,
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
223 ;; iswitchb can switch focus to that frame. If your window manager
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
224 ;; uses "click to focus" policy for window selection, you should also
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
225 ;; set focus-follows-mouse to nil.
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
226
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
227 ;; iswitch functionality has also been implemented for switching
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
228 ;; between windows in the Sawfish window manager.
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
229
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
230 ;; Regexp matching
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
231
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
232 ;; There is provision for regexp matching within iswitchb, enabled
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
233 ;; through `iswitchb-regexp'. This allows you to type `c$' for
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
234 ;; example and see all buffer names ending in `c'. No completion
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
235 ;; mechanism is currently offered when regexp searching.
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
236
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
237 ;;; TODO
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
238
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239 ;;; Acknowledgements
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241 ;; Thanks to Jari Aalto <jari.aalto@poboxes.com> for help with the
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242 ;; first version of this package, iswitch-buffer. Thanks also to many
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243 ;; others for testing earlier versions.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
245 ;;; Code:
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246
21058
f2c4ac206a48 (iswitchb-default-method): Remove :tag entries.
Stephen Eglen <stephen@gnu.org>
parents: 20470
diff changeset
247 ;; CL needed for cadr and last
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
248 (if (not (and (fboundp 'cadr)
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
249 (fboundp 'last)))
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
250 (require 'cl))
21058
f2c4ac206a48 (iswitchb-default-method): Remove :tag entries.
Stephen Eglen <stephen@gnu.org>
parents: 20470
diff changeset
251
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
252 (require 'font-lock)
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
253
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
254 ;; Set up the custom library.
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
255 ;; taken from http://www.dina.kvl.dk/~abraham/custom/
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
256 (eval-and-compile
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
257 (condition-case ()
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
258 (require 'custom)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
259 (error nil))
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
260 (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
261 nil ;; We've got what we needed
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
262 ;; We have the old custom-library, hack around it!
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
263 (defmacro defgroup (&rest args)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
264 nil)
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
265 (defmacro defcustom (var value doc &rest args)
26455
03d8424273d3 Use new backquote syntax.
Gerd Moellmann <gerd@gnu.org>
parents: 26155
diff changeset
266 `(defvar ,var ,value ,doc))))
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
267
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268 ;;; User Variables
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 ;;
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 ;; These are some things you might want to change.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
272 (defgroup iswitchb nil
21058
f2c4ac206a48 (iswitchb-default-method): Remove :tag entries.
Stephen Eglen <stephen@gnu.org>
parents: 20470
diff changeset
273 "Switch between buffers using substrings."
22250
a77d473867b8 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21706
diff changeset
274 :group 'convenience
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
275 :group 'completion
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
276 :link '(emacs-commentary-link :tag "Commentary" "iswitchb.el")
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
277 :link '(url-link "http://www.anc.ed.ac.uk/~stephen/emacs/")
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
278 :link '(emacs-library-link :tag "Lisp File" "iswitchb.el"))
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
279
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
280 (defcustom iswitchb-case case-fold-search
28619
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
281 "*Non-nil if searching of buffer names should ignore case.
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
282 If this is non-nil but the user input has any upper case letters, matching
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
283 is temporarily case sensitive."
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
284 :type 'boolean
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
285 :group 'iswitchb)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
286
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
287 (defcustom iswitchb-buffer-ignore
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 '("^ ")
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
289 "*List of regexps or functions matching buffer names to ignore.
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
290 For example, traditional behavior is not to list buffers whose names begin
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
291 with a space, for which the regexp is `^ '. See the source file for
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
292 example functions that filter buffernames."
51366
4ca289edd9e3 (iswitchb-buffer-ignore): Update custom type to allow functions.
Stephen Eglen <stephen@gnu.org>
parents: 49597
diff changeset
293 :type '(repeat (choice regexp function))
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
294 :group 'iswitchb)
65833
fca34be2db31 (iswitchb-buffer-ignore): Label it risky.
Richard M. Stallman <rms@gnu.org>
parents: 65582
diff changeset
295 (put 'iswitchb-buffer-ignore 'risky-local-variable t)
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
296
54956
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
297 (defcustom iswitchb-max-to-show nil
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
298 "*If non-nil, limit the number of names shown in the minibuffer.
54985
b1572d70d407 (iswitchb-max-to-show): Update documentation and :type information.
Stephen Eglen <stephen@gnu.org>
parents: 54967
diff changeset
299 If this value is N, and N is greater than the number of matching
b1572d70d407 (iswitchb-max-to-show): Update documentation and :type information.
Stephen Eglen <stephen@gnu.org>
parents: 54967
diff changeset
300 buffers, the first N/2 and the last N/2 matching buffers are
b1572d70d407 (iswitchb-max-to-show): Update documentation and :type information.
Stephen Eglen <stephen@gnu.org>
parents: 54967
diff changeset
301 shown. This can greatly speed up iswitchb if you have a
b1572d70d407 (iswitchb-max-to-show): Update documentation and :type information.
Stephen Eglen <stephen@gnu.org>
parents: 54967
diff changeset
302 multitude of buffers open."
55038
ec9b32e16559 Update iswitchb-max-to-show.
Stephen Eglen <stephen@gnu.org>
parents: 55001
diff changeset
303 :type '(choice (const :tag "Show all" nil) integer)
54956
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
304 :group 'iswitchb)
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
305
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
306 (defcustom iswitchb-use-virtual-buffers nil
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
307 "*If non-nil, refer to past buffers when none match.
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
308 This feature relies upon the `recentf' package, which will be
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
309 enabled if this variable is configured to a non-nil value."
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
310 :type 'boolean
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
311 :require 'recentf
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
312 :set (function
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
313 (lambda (sym value)
55580
cd398d1e6ab3 2004-05-13 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55434
diff changeset
314 (if value (recentf-mode 1))
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
315 (set sym value)))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
316 :group 'iswitchb)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
317
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
318 (defvar iswitchb-virtual-buffers nil)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
319
41273
793fceb3e6de (iswitchb-cannot-complete-hook): New variable to
Richard M. Stallman <rms@gnu.org>
parents: 41161
diff changeset
320 (defcustom iswitchb-cannot-complete-hook 'iswitchb-completion-help
793fceb3e6de (iswitchb-cannot-complete-hook): New variable to
Richard M. Stallman <rms@gnu.org>
parents: 41161
diff changeset
321 "*Hook run when `iswitchb-complete' can't complete any more.
793fceb3e6de (iswitchb-cannot-complete-hook): New variable to
Richard M. Stallman <rms@gnu.org>
parents: 41161
diff changeset
322 The most useful values are `iswitchb-completion-help', which pops up a
793fceb3e6de (iswitchb-cannot-complete-hook): New variable to
Richard M. Stallman <rms@gnu.org>
parents: 41161
diff changeset
323 window with completion alternatives, or `iswitchb-next-match' or
793fceb3e6de (iswitchb-cannot-complete-hook): New variable to
Richard M. Stallman <rms@gnu.org>
parents: 41161
diff changeset
324 `iswitchb-prev-match', which cycle the buffer list."
793fceb3e6de (iswitchb-cannot-complete-hook): New variable to
Richard M. Stallman <rms@gnu.org>
parents: 41161
diff changeset
325 :type 'hook
793fceb3e6de (iswitchb-cannot-complete-hook): New variable to
Richard M. Stallman <rms@gnu.org>
parents: 41161
diff changeset
326 :group 'iswitchb)
793fceb3e6de (iswitchb-cannot-complete-hook): New variable to
Richard M. Stallman <rms@gnu.org>
parents: 41161
diff changeset
327
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328 ;;; Examples for setting the value of iswitchb-buffer-ignore
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
329 ;(defun iswitchb-ignore-c-mode (name)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330 ; "Ignore all c mode buffers -- example function for iswitchb."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 ; (save-excursion
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332 ; (set-buffer name)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
333 ; (string-match "^C$" mode-name)))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
335 ;(setq iswitchb-buffer-ignore '("^ " iswitchb-ignore-c-mode))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 ;(setq iswitchb-buffer-ignore '("^ " "\\.c$" "\\.h$"))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
338 (defcustom iswitchb-default-method 'always-frame
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
339 "*How to switch to new buffer when using `iswitchb-buffer'.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340 Possible values:
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
341 `samewindow' Show new buffer in same window
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
342 `otherwindow' Show new buffer in another window (same frame)
17618
8d33666b1152 (iswitchb-visit-buffer): Handle `display' alternative.
Richard M. Stallman <rms@gnu.org>
parents: 17617
diff changeset
343 `display' Display buffer in another window without switching to it
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344 `otherframe' Show new buffer in another frame
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
345 `maybe-frame' If a buffer is visible in another frame, prompt to ask if you
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346 you want to see the buffer in the same window of the current
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347 frame or in the other frame.
21058
f2c4ac206a48 (iswitchb-default-method): Remove :tag entries.
Stephen Eglen <stephen@gnu.org>
parents: 20470
diff changeset
348 `always-frame' If a buffer is visible in another frame, raise that
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
349 frame. Otherwise, visit the buffer in the same window."
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
350 :type '(choice (const samewindow)
21058
f2c4ac206a48 (iswitchb-default-method): Remove :tag entries.
Stephen Eglen <stephen@gnu.org>
parents: 20470
diff changeset
351 (const otherwindow)
f2c4ac206a48 (iswitchb-default-method): Remove :tag entries.
Stephen Eglen <stephen@gnu.org>
parents: 20470
diff changeset
352 (const display)
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
353 (const otherframe)
21058
f2c4ac206a48 (iswitchb-default-method): Remove :tag entries.
Stephen Eglen <stephen@gnu.org>
parents: 20470
diff changeset
354 (const maybe-frame)
f2c4ac206a48 (iswitchb-default-method): Remove :tag entries.
Stephen Eglen <stephen@gnu.org>
parents: 20470
diff changeset
355 (const always-frame))
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
356 :group 'iswitchb)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
358 (defcustom iswitchb-regexp nil
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
359 "*Non-nil means that `iswitchb' will do regexp matching.
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
360 Value can be toggled within `iswitchb' using `iswitchb-toggle-regexp'."
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
361 :type 'boolean
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
362 :group 'iswitchb)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
364 (defcustom iswitchb-newbuffer t
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
365 "*Non-nil means create new buffer if no buffer matches substring.
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
366 See also `iswitchb-prompt-newbuffer'."
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
367 :type 'boolean
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
368 :group 'iswitchb)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
369
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
370 (defcustom iswitchb-prompt-newbuffer t
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
371 "*Non-nil means prompt user to confirm before creating new buffer.
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
372 See also `iswitchb-newbuffer'."
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
373 :type 'boolean
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
374 :group 'iswitchb)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
375
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
376 (defcustom iswitchb-use-faces t
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
377 "*Non-nil means use font-lock fonts for showing first match."
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
378 :type 'boolean
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
379 :group 'iswitchb)
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
380 (define-obsolete-variable-alias 'iswitchb-use-fonts 'iswitchb-use-faces "22.1")
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
381
27497
7f8974c3b6f8 (iswitchb-use-frame-buffer-list): New configuration
Gerd Moellmann <gerd@gnu.org>
parents: 26455
diff changeset
382 (defcustom iswitchb-use-frame-buffer-list nil
7f8974c3b6f8 (iswitchb-use-frame-buffer-list): New configuration
Gerd Moellmann <gerd@gnu.org>
parents: 26455
diff changeset
383 "*Non-nil means use the currently selected frame's buffer list."
7f8974c3b6f8 (iswitchb-use-frame-buffer-list): New configuration
Gerd Moellmann <gerd@gnu.org>
parents: 26455
diff changeset
384 :type 'boolean
7f8974c3b6f8 (iswitchb-use-frame-buffer-list): New configuration
Gerd Moellmann <gerd@gnu.org>
parents: 26455
diff changeset
385 :group 'iswitchb)
7f8974c3b6f8 (iswitchb-use-frame-buffer-list): New configuration
Gerd Moellmann <gerd@gnu.org>
parents: 26455
diff changeset
386
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
387 (defcustom iswitchb-make-buflist-hook nil
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
388 "Hook to run when list of matching buffers is created."
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
389 :type 'hook
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
390 :group 'iswitchb)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
391
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
392 (defvar iswitchb-all-frames 'visible
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 "*Argument to pass to `walk-windows' when finding visible buffers.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 See documentation of `walk-windows' for useful values.")
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
396 (defcustom iswitchb-minibuffer-setup-hook nil
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
397 "Iswitchb-specific customization of minibuffer setup.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
399 This hook is run during minibuffer setup iff `iswitchb' will be active.
53805
dd6aac780c4b (iswitchb-minibuffer-setup-hook): Update doc string
Stephen Eglen <stephen@gnu.org>
parents: 53161
diff changeset
400 For instance:
dd6aac780c4b (iswitchb-minibuffer-setup-hook): Update doc string
Stephen Eglen <stephen@gnu.org>
parents: 53161
diff changeset
401 \(add-hook 'iswitchb-minibuffer-setup-hook
dd6aac780c4b (iswitchb-minibuffer-setup-hook): Update doc string
Stephen Eglen <stephen@gnu.org>
parents: 53161
diff changeset
402 '\(lambda () (set (make-local-variable 'max-mini-window-height) 3)))
dd6aac780c4b (iswitchb-minibuffer-setup-hook): Update doc string
Stephen Eglen <stephen@gnu.org>
parents: 53161
diff changeset
403 will constrain the minibuffer to a maximum height of 3 lines when
dd6aac780c4b (iswitchb-minibuffer-setup-hook): Update doc string
Stephen Eglen <stephen@gnu.org>
parents: 53161
diff changeset
404 iswitchb is running."
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
405 :type 'hook
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
406 :group 'iswitchb)
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
407
63075
7e902750d940 2005-06-06 Matt Hodges <MPHodges@member.fsf.org>
Kim F. Storm <storm@cua.dk>
parents: 63012
diff changeset
408 (defface iswitchb-single-match
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
409 '((t
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
410 (:inherit font-lock-comment-face)))
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
411 "Iswitchb face for single matching buffer name."
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
412 :version "22.1"
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
413 :group 'iswitchb)
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
414
63075
7e902750d940 2005-06-06 Matt Hodges <MPHodges@member.fsf.org>
Kim F. Storm <storm@cua.dk>
parents: 63012
diff changeset
415 (defface iswitchb-current-match
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
416 '((t
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
417 (:inherit font-lock-function-name-face)))
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
418 "Iswitchb face for current matching buffer name."
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
419 :version "22.1"
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
420 :group 'iswitchb)
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
421
63075
7e902750d940 2005-06-06 Matt Hodges <MPHodges@member.fsf.org>
Kim F. Storm <storm@cua.dk>
parents: 63012
diff changeset
422 (defface iswitchb-virtual-matches
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
423 '((t
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
424 (:inherit font-lock-builtin-face)))
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
425 "Iswitchb face for matching virtual buffer names.
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
426 See also `iswitchb-use-virtual-buffers'."
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
427 :version "22.1"
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
428 :group 'iswitchb)
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
429
63075
7e902750d940 2005-06-06 Matt Hodges <MPHodges@member.fsf.org>
Kim F. Storm <storm@cua.dk>
parents: 63012
diff changeset
430 (defface iswitchb-invalid-regexp
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
431 '((t
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
432 (:inherit font-lock-warning-face)))
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
433 "Iswitchb face for indicating invalid regexp. "
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
434 :version "22.1"
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
435 :group 'iswitchb)
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
436
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
437 ;; Do we need the variable iswitchb-use-mycompletion?
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
438
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
439 ;;; Internal Variables
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
440
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
441 (defvar iswitchb-method nil
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
442 "Stores the method for viewing the selected buffer.
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
443 Its value is one of `samewindow', `otherwindow', `display', `otherframe',
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
444 `maybe-frame' or `always-frame'. See `iswitchb-default-method' for
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
445 details of values.")
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447 (defvar iswitchb-eoinput 1
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
448 "Point where minibuffer input ends and completion info begins.
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
449 Copied from `icomplete-eoinput'.")
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
450 (make-variable-buffer-local 'iswitchb-eoinput)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
451
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
452 (defvar iswitchb-buflist nil
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
453 "Stores the current list of buffers that will be searched through.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
454 The list is ordered, so that the most recent buffers come first,
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
455 although by default, the buffers visible in the current frame are put
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
456 at the end of the list. Created by `iswitchb-make-buflist'.")
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
457
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
458 ;; todo -- is this necessary?
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
459
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
460 (defvar iswitchb-use-mycompletion nil
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
461 "Non-nil means use `iswitchb-buffer' completion feedback.
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
462 Should only be set to t by iswitchb functions, so that it doesn't
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
463 interfere with other minibuffer usage.")
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
465 (defvar iswitchb-change-word-sub nil
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466 "Private variable used by `iswitchb-word-matching-substring'.")
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468 (defvar iswitchb-common-match-string nil
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 "Stores the string that is common to all matching buffers.")
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 (defvar iswitchb-rescan nil
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 "Non-nil means we need to regenerate the list of matching buffers.")
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 (defvar iswitchb-text nil
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 "Stores the users string as it is typed in.")
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 (defvar iswitchb-matches nil
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
478 "List of buffers currently matching `iswitchb-text'.")
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
480 (defvar iswitchb-mode-map
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
481 (let ((map (make-sparse-keymap)))
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
482 (set-keymap-parent map minibuffer-local-map)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
483 (define-key map "?" 'iswitchb-completion-help)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
484 (define-key map "\C-s" 'iswitchb-next-match)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
485 (define-key map "\C-r" 'iswitchb-prev-match)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
486 (define-key map "\t" 'iswitchb-complete)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
487 (define-key map "\C-j" 'iswitchb-select-buffer-text)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
488 (define-key map "\C-t" 'iswitchb-toggle-regexp)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
489 (define-key map "\C-x\C-f" 'iswitchb-find-file)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
490 (define-key map "\C-c" 'iswitchb-toggle-case)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
491 (define-key map "\C-k" 'iswitchb-kill-buffer)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
492 (define-key map "\C-m" 'iswitchb-exit-minibuffer)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
493 map)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
494 "Minibuffer keymap for `iswitchb-buffer'.")
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
496 (defvar iswitchb-global-map
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
497 (let ((map (make-sparse-keymap)))
75067
ff242396ed7e (iswitchb-global-map): Use command-remapping if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69538
diff changeset
498 (dolist (b '((switch-to-buffer . iswitchb-buffer)
ff242396ed7e (iswitchb-global-map): Use command-remapping if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69538
diff changeset
499 (switch-to-buffer-other-window . iswitchb-buffer-other-window)
ff242396ed7e (iswitchb-global-map): Use command-remapping if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69538
diff changeset
500 (switch-to-buffer-other-frame . iswitchb-buffer-other-frame)
ff242396ed7e (iswitchb-global-map): Use command-remapping if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69538
diff changeset
501 (display-buffer . iswitchb-display-buffer)))
ff242396ed7e (iswitchb-global-map): Use command-remapping if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69538
diff changeset
502 (if (fboundp 'command-remapping)
ff242396ed7e (iswitchb-global-map): Use command-remapping if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69538
diff changeset
503 (define-key map (vector 'remap (car b)) (cdr b))
ff242396ed7e (iswitchb-global-map): Use command-remapping if available.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69538
diff changeset
504 (substitute-key-definition (car b) (cdr b) map global-map)))
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
505 map)
55373
e1be47d1e62e (iswitchb-global-map): Fix typo. Removed unwanted ###autoloads from
Stephen Eglen <stephen@gnu.org>
parents: 55038
diff changeset
506 "Global keymap for `iswitchb-mode'.")
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
507
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
508 (defvar iswitchb-history nil
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
509 "History of buffers selected using `iswitchb-buffer'.")
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
511 (defvar iswitchb-exit nil
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
512 "Flag to monitor how `iswitchb-buffer' exits.
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
513 If equal to `takeprompt', we use the prompt as the buffer name to be
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
514 selected.")
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516 (defvar iswitchb-buffer-ignore-orig nil
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 "Stores original value of `iswitchb-buffer-ignore'.")
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
519 (defvar iswitchb-default nil
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
520 "Default buffer for iswitchb.")
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
521
22380
2645c2c3829f (iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame):
Stephen Eglen <stephen@gnu.org>
parents: 22354
diff changeset
522 ;; The following variables are needed to keep the byte compiler quiet.
2645c2c3829f (iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame):
Stephen Eglen <stephen@gnu.org>
parents: 22354
diff changeset
523 (defvar iswitchb-require-match nil
2645c2c3829f (iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame):
Stephen Eglen <stephen@gnu.org>
parents: 22354
diff changeset
524 "Non-nil if matching buffer must be selected.")
2645c2c3829f (iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame):
Stephen Eglen <stephen@gnu.org>
parents: 22354
diff changeset
525
2645c2c3829f (iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame):
Stephen Eglen <stephen@gnu.org>
parents: 22354
diff changeset
526 (defvar iswitchb-temp-buflist nil
2645c2c3829f (iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame):
Stephen Eglen <stephen@gnu.org>
parents: 22354
diff changeset
527 "Stores a temporary version of the buffer list being created.")
2645c2c3829f (iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame):
Stephen Eglen <stephen@gnu.org>
parents: 22354
diff changeset
528
2645c2c3829f (iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame):
Stephen Eglen <stephen@gnu.org>
parents: 22354
diff changeset
529 (defvar iswitchb-bufs-in-frame nil
2645c2c3829f (iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame):
Stephen Eglen <stephen@gnu.org>
parents: 22354
diff changeset
530 "List of the buffers visible in the current frame.")
2645c2c3829f (iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame):
Stephen Eglen <stephen@gnu.org>
parents: 22354
diff changeset
531
33818
42ed3c6a1d89 (iswitchb-minibuf-depth): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 32288
diff changeset
532 (defvar iswitchb-minibuf-depth nil
42ed3c6a1d89 (iswitchb-minibuf-depth): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 32288
diff changeset
533 "Value we expect to be returned by `minibuffer-depth' in the minibuffer.")
42ed3c6a1d89 (iswitchb-minibuf-depth): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 32288
diff changeset
534
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
535 (defvar iswitchb-common-match-inserted nil
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
536 "Non-nil if we have just inserted a common match in the minibuffer.")
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
537
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
538 (defvar iswitchb-invalid-regexp)
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
539
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
540 ;;; FUNCTIONS
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
541
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
542 ;;; ISWITCHB KEYMAP
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543 (defun iswitchb-define-mode-map ()
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
544 "Set up the keymap for `iswitchb-buffer'.
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
545 This is obsolete. Use \\[iswitchb-mode] or customize the
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
546 variable `iswitchb-mode'."
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547 (interactive)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548 (let (map)
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
549 ;; generated every time so that it can inherit new functions.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550 ;;(or iswitchb-mode-map
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
551
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 (setq map (copy-keymap minibuffer-local-map))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
553 (define-key map "?" 'iswitchb-completion-help)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
554 (define-key map "\C-s" 'iswitchb-next-match)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
555 (define-key map "\C-r" 'iswitchb-prev-match)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
556 (define-key map "\t" 'iswitchb-complete)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
557 (define-key map "\C-j" 'iswitchb-select-buffer-text)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
558 (define-key map "\C-t" 'iswitchb-toggle-regexp)
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
559 (define-key map "\C-x\C-f" 'iswitchb-find-file)
68204
59d4f36d7a5c (iswitchb-define-mode-map): Use C-n for iswitchb-toggle-ignore. (This
Stephen Eglen <stephen@gnu.org>
parents: 66594
diff changeset
560 (define-key map "\C-n" 'iswitchb-toggle-ignore)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561 (define-key map "\C-c" 'iswitchb-toggle-case)
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
562 (define-key map "\C-k" 'iswitchb-kill-buffer)
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
563 (define-key map "\C-m" 'iswitchb-exit-minibuffer)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
564 (setq iswitchb-mode-map map)
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
565 (run-hooks 'iswitchb-define-mode-map-hook)))
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
566
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567 ;;; MAIN FUNCTION
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 (defun iswitchb ()
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569 "Switch to buffer matching a substring.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570 As you type in a string, all of the buffers matching the string are
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571 displayed. When you have found the buffer you want, it can then be
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572 selected. As you type, most keys have their normal keybindings,
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
573 except for the following:
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
574 \\<iswitchb-mode-map>
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576 RET Select the buffer at the front of the list of matches. If the
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
577 list is empty, possibly prompt to create new buffer.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
579 \\[iswitchb-select-buffer-text] Select the current prompt as the buffer.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580 If no buffer is found, prompt for a new one.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 \\[iswitchb-next-match] Put the first element at the end of the list.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 \\[iswitchb-prev-match] Put the last element at the start of the list.
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
584 \\[iswitchb-complete] Complete a common suffix to the current string that
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 matches all buffers. If there is only one match, select that buffer.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 If there is no common suffix, show a list of all matching buffers
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587 in a separate window.
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
588 \\[iswitchb-toggle-regexp] Toggle regexp searching.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589 \\[iswitchb-toggle-case] Toggle case-sensitive searching of buffer names.
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
590 \\[iswitchb-completion-help] Show list of matching buffers in separate window.
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
591 \\[iswitchb-find-file] Exit iswitchb and drop into `find-file'.
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
592 \\[iswitchb-kill-buffer] Kill buffer at head of buffer list."
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593 ;;\\[iswitchb-toggle-ignore] Toggle ignoring certain buffers (see \
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594 ;;`iswitchb-buffer-ignore')
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
595
41287
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
596 (let* ((prompt "iswitch ")
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
597 iswitchb-invalid-regexp
41287
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
598 (buf (iswitchb-read-buffer prompt)))
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
599
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 ;;(message "chosen text %s" iswitchb-final-text)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
601 ;; Choose the buffer name: either the text typed in, or the head
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602 ;; of the list of matches
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
603
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
604 (cond ( (eq iswitchb-exit 'findfile)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
605 (call-interactively 'find-file))
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
606 (iswitchb-invalid-regexp
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
607 (message "Won't make invalid regexp named buffer"))
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
608 (t
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
609 ;; View the buffer
21058
f2c4ac206a48 (iswitchb-default-method): Remove :tag entries.
Stephen Eglen <stephen@gnu.org>
parents: 20470
diff changeset
610 ;;(message "go to buf %s" buf)
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
611 ;; Check buf is non-nil.
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
612 (if buf
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
613 (if (get-buffer buf)
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
614 ;; buffer exists, so view it and then exit
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
615 (iswitchb-visit-buffer buf)
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
616 ;; else buffer doesn't exist
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
617 (iswitchb-possible-new-buffer buf)))
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
618 ))))
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
619
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
620 (defun iswitchb-read-buffer (prompt &optional default require-match
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
621 start matches-set)
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
622 "Replacement for the built-in `read-buffer'.
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
623 Return the name of a buffer selected.
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
624 PROMPT is the prompt to give to the user.
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
625 DEFAULT if given is the default buffer to be selected, which will
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
626 go to the front of the list.
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
627 If REQUIRE-MATCH is non-nil, an existing-buffer must be selected.
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
628 If START is a string, the selection process is started with that
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
629 string.
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
630 If MATCHES-SET is non-nil, the buflist is not updated before
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
631 the selection process begins. Used by isearchb.el."
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
632 (let
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
633 (
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
634 buf-sel
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
635 iswitchb-final-text
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
636 (icomplete-mode nil) ;; prevent icomplete starting up
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
637 )
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
638
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
639 (iswitchb-define-mode-map)
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
640 (setq iswitchb-exit nil)
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
641 (setq iswitchb-default
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
642 (if (bufferp default)
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
643 (buffer-name default)
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
644 default))
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
645 (setq iswitchb-text (or start ""))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
646 (unless matches-set
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
647 (setq iswitchb-rescan t)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
648 (iswitchb-make-buflist iswitchb-default)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
649 (iswitchb-set-matches))
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
650 (let
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
651 ((minibuffer-local-completion-map iswitchb-mode-map)
33818
42ed3c6a1d89 (iswitchb-minibuf-depth): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 32288
diff changeset
652 ;; Record the minibuffer depth that we expect to find once
42ed3c6a1d89 (iswitchb-minibuf-depth): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 32288
diff changeset
653 ;; the minibuffer is set up and iswitchb-entryfn-p is called.
42ed3c6a1d89 (iswitchb-minibuf-depth): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 32288
diff changeset
654 (iswitchb-minibuf-depth (1+ (minibuffer-depth)))
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
655 (iswitchb-require-match require-match))
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
656 ;; prompt the user for the buffer name
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
657 (setq iswitchb-final-text (completing-read
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
658 prompt ;the prompt
32288
47476840057c (iswitchb-mode): Add :require.
Dave Love <fx@gnu.org>
parents: 31797
diff changeset
659 '(("dummy" . 1)) ;table
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
660 nil ;predicate
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
661 nil ;require-match [handled elsewhere]
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
662 start ;initial-contents
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
663 'iswitchb-history)))
53161
779a274d72ed iswitchb-read-buffer: check that iswitchb-exit is not 'usefirst (set
Stephen Eglen <stephen@gnu.org>
parents: 52401
diff changeset
664 (if (and (not (eq iswitchb-exit 'usefirst))
779a274d72ed iswitchb-read-buffer: check that iswitchb-exit is not 'usefirst (set
Stephen Eglen <stephen@gnu.org>
parents: 52401
diff changeset
665 (get-buffer iswitchb-final-text))
41287
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
666 ;; This happens for example if the buffer was chosen with the mouse.
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
667 (setq iswitchb-matches (list iswitchb-final-text)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
668 iswitchb-virtual-buffers nil))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
669
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
670 ;; If no buffer matched, but a virtual buffer was selected, visit
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
671 ;; that file now and act as though that buffer had been selected.
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
672 (if (and iswitchb-virtual-buffers
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
673 (not (iswitchb-existing-buffer-p)))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
674 (let ((virt (car iswitchb-virtual-buffers)))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
675 (find-file-noselect (cdr virt))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
676 (setq iswitchb-matches (list (car virt))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
677 iswitchb-virtual-buffers nil)))
41287
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
678
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
679 ;; Handling the require-match must be done in a better way.
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
680 (if (and require-match
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
681 (not (iswitchb-existing-buffer-p)))
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
682 (error "Must specify valid buffer"))
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
683
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
684 (if (or (eq iswitchb-exit 'takeprompt)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
685 (null iswitchb-matches))
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
686 (setq buf-sel iswitchb-final-text)
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
687 ;; else take head of list
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
688 (setq buf-sel (car iswitchb-matches)))
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
689
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
690 ;; Or possibly choose the default buffer
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
691 (if (equal iswitchb-final-text "")
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
692 (setq buf-sel (car iswitchb-matches)))
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
693
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
694 buf-sel))
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
695
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
696 (defun iswitchb-existing-buffer-p ()
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
697 "Return non-nil if there is a matching buffer."
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
698 (not (null iswitchb-matches)))
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
699
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
700 ;;; COMPLETION CODE
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
701
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
702 (defun iswitchb-set-common-completion ()
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
703 "Find common completion of `iswitchb-text' in `iswitchb-matches'.
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
704 The result is stored in `iswitchb-common-match-string'."
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
705
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
706 (let* (val)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707 (setq iswitchb-common-match-string nil)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
708 (if (and iswitchb-matches
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
709 (not iswitchb-regexp) ;; testing
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
710 (stringp iswitchb-text)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
711 (> (length iswitchb-text) 0))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
712 (if (setq val (iswitchb-find-common-substring
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
713 iswitchb-matches iswitchb-text))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
714 (setq iswitchb-common-match-string val)))
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
715 val))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
716
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
717 (defun iswitchb-complete ()
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
718 "Try and complete the current pattern amongst the buffer names."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
719 (interactive)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
720 (let (res)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
721 (cond ((not iswitchb-matches)
41273
793fceb3e6de (iswitchb-cannot-complete-hook): New variable to
Richard M. Stallman <rms@gnu.org>
parents: 41161
diff changeset
722 (run-hooks 'iswitchb-cannot-complete-hook))
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
723 (iswitchb-invalid-regexp
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
724 ;; Do nothing
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
725 )
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
726 ((= 1 (length iswitchb-matches))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
727 ;; only one choice, so select it.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
728 (exit-minibuffer))
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
729
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
730 (t
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
731 ;; else there could be some completions
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
732 (setq res iswitchb-common-match-string)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
733 (if (and (not (memq res '(t nil)))
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
734 (not (equal res iswitchb-text)))
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
735 ;; found something to complete, so put it in the minibuffer.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
736 (progn
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
737 (setq iswitchb-rescan nil
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
738 iswitchb-common-match-inserted t)
25791
6413bcf4ea32 (iswitchb-complete): Use minibuffer-prompt-end
Gerd Moellmann <gerd@gnu.org>
parents: 25652
diff changeset
739 (delete-region (minibuffer-prompt-end) (point))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
740 (insert res))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
741 ;; else nothing to complete
41273
793fceb3e6de (iswitchb-cannot-complete-hook): New variable to
Richard M. Stallman <rms@gnu.org>
parents: 41161
diff changeset
742 (run-hooks 'iswitchb-cannot-complete-hook)
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
743 )))))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
744
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
745 ;;; TOGGLE FUNCTIONS
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
746
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
747 (defun iswitchb-toggle-case ()
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
748 "Toggle the value of variable `iswitchb-case'."
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
749 (interactive)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
750 (setq iswitchb-case (not iswitchb-case))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
751 ;; ask for list to be regenerated.
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
752 (setq iswitchb-rescan t))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
753
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
754 (defun iswitchb-toggle-regexp ()
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
755 "Toggle the value of `iswitchb-regexp'."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
756 (interactive)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
757 (setq iswitchb-regexp (not iswitchb-regexp))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
758 ;; ask for list to be regenerated.
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
759 (setq iswitchb-rescan t))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
760
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
761 (defun iswitchb-toggle-ignore ()
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
762 "Toggle ignoring buffers specified with `iswitchb-buffer-ignore'."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
763 (interactive)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
764 (if iswitchb-buffer-ignore
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
765 (progn
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
766 (setq iswitchb-buffer-ignore-orig iswitchb-buffer-ignore)
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
767 (setq iswitchb-buffer-ignore nil))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 ;; else
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
769 (setq iswitchb-buffer-ignore iswitchb-buffer-ignore-orig))
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
770 (iswitchb-make-buflist iswitchb-default)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
771 ;; ask for list to be regenerated.
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
772 (setq iswitchb-rescan t))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
773
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
774 (defun iswitchb-exit-minibuffer ()
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
775 "Exit minibuffer, but make sure we have a match if one is needed."
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
776 (interactive)
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
777 (if (or (not iswitchb-require-match)
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
778 (iswitchb-existing-buffer-p))
53161
779a274d72ed iswitchb-read-buffer: check that iswitchb-exit is not 'usefirst (set
Stephen Eglen <stephen@gnu.org>
parents: 52401
diff changeset
779 (progn
779a274d72ed iswitchb-read-buffer: check that iswitchb-exit is not 'usefirst (set
Stephen Eglen <stephen@gnu.org>
parents: 52401
diff changeset
780 (setq iswitchb-exit 'usefirst)
779a274d72ed iswitchb-read-buffer: check that iswitchb-exit is not 'usefirst (set
Stephen Eglen <stephen@gnu.org>
parents: 52401
diff changeset
781 (throw 'exit nil))))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
782
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
783 (defun iswitchb-select-buffer-text ()
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
784 "Select the buffer named by the prompt.
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
785 If no buffer exactly matching the prompt exists, maybe create a new one."
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
786 (interactive)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
787 (setq iswitchb-exit 'takeprompt)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
788 (exit-minibuffer))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
789
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
790 (defun iswitchb-find-file ()
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
791 "Drop into `find-file' from buffer switching."
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
792 (interactive)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
793 (setq iswitchb-exit 'findfile)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
794 (exit-minibuffer))
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
795
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
796 (eval-when-compile
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
797 (defvar recentf-list))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
798
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
799 (defun iswitchb-next-match ()
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
800 "Put first element of `iswitchb-matches' at the end of the list."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
801 (interactive)
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
802 (let ((next (cadr iswitchb-matches)))
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
803 (if (and (null next) iswitchb-virtual-buffers)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
804 (setq recentf-list
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
805 (iswitchb-chop recentf-list
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
806 (cdr (cadr iswitchb-virtual-buffers))))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
807 (setq iswitchb-buflist (iswitchb-chop iswitchb-buflist next)))
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
808 (setq iswitchb-rescan t)))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
809
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
810 (defun iswitchb-prev-match ()
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
811 "Put last element of `iswitchb-matches' at the front of the list."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
812 (interactive)
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
813 (let ((prev (car (last iswitchb-matches))))
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
814 (if (and (null prev) iswitchb-virtual-buffers)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
815 (setq recentf-list
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
816 (iswitchb-chop recentf-list
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
817 (cdr (car (last iswitchb-virtual-buffers)))))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
818 (setq iswitchb-buflist (iswitchb-chop iswitchb-buflist prev)))
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
819 (setq iswitchb-rescan t)))
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
820
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
821 (defun iswitchb-chop (list elem)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
822 "Remove all elements before ELEM and put them at the end of LIST."
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
823 (let ((ret nil)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
824 (next nil)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
825 (sofar nil))
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
826 (while (not ret)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
827 (setq next (car list))
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
828 (if (equal next elem)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
829 (setq ret (append list (nreverse sofar)))
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
830 ;; else
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
831 (progn
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
832 (setq list (cdr list))
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
833 (setq sofar (cons next sofar)))))
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
834 ret))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
835
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
836 ;;; CREATE LIST OF ALL CURRENT BUFFERS
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
837
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
838 (defun iswitchb-make-buflist (default)
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
839 "Set `iswitchb-buflist' to the current list of buffers.
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
840 Currently visible buffers are put at the end of the list.
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
841 The hook `iswitchb-make-buflist-hook' is run after the list has been
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
842 created to allow the user to further modify the order of the buffer names
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
843 in this list. If DEFAULT is non-nil, and corresponds to an existing buffer,
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
844 it is put to the start of the list."
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
845 (setq iswitchb-buflist
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
846 (let* ((iswitchb-current-buffers (iswitchb-get-buffers-in-frames))
35570
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
847 (iswitchb-temp-buflist
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
848 (delq nil
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
849 (mapcar
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
850 (lambda (x)
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
851 (let ((b-name (buffer-name x)))
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
852 (if (not
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
853 (or
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
854 (iswitchb-ignore-buffername-p b-name)
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
855 (memq b-name iswitchb-current-buffers)))
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
856 b-name)))
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
857 (buffer-list (and iswitchb-use-frame-buffer-list
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
858 (selected-frame)))))))
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
859 (setq iswitchb-temp-buflist
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
860 (nconc iswitchb-temp-buflist iswitchb-current-buffers))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
861 (run-hooks 'iswitchb-make-buflist-hook)
35570
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
862 ;; Should this be after the hooks, or should the hooks be the
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
863 ;; final thing to be run?
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
864 (if default
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
865 (progn
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
866 (setq iswitchb-temp-buflist
22380
2645c2c3829f (iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame):
Stephen Eglen <stephen@gnu.org>
parents: 22354
diff changeset
867 (delete default iswitchb-temp-buflist))
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
868 (setq iswitchb-temp-buflist
22380
2645c2c3829f (iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame):
Stephen Eglen <stephen@gnu.org>
parents: 22354
diff changeset
869 (cons default iswitchb-temp-buflist))))
2645c2c3829f (iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame):
Stephen Eglen <stephen@gnu.org>
parents: 22354
diff changeset
870 iswitchb-temp-buflist)))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
871
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
872 (defun iswitchb-to-end (lst)
22380
2645c2c3829f (iswitchb-require-match, iswitchb-temp-buflist, iswitchb-bufs-in-frame):
Stephen Eglen <stephen@gnu.org>
parents: 22354
diff changeset
873 "Move the elements from LST to the end of `iswitchb-temp-buflist'."
63436
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
874 (dolist (elem lst)
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
875 (setq iswitchb-temp-buflist (delq elem iswitchb-temp-buflist)))
35570
4308e62b25c8 (iswitchb-make-buflist): When nconc'ing lists, don't
Gerd Moellmann <gerd@gnu.org>
parents: 34208
diff changeset
876 (setq iswitchb-temp-buflist (nconc iswitchb-temp-buflist lst)))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
877
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
878 (defun iswitchb-get-buffers-in-frames (&optional current)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
879 "Return the list of buffers that are visible in the current frame.
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
880 If optional argument CURRENT is given, restrict searching to the
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
881 current frame, rather than all frames, regardless of value of
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
882 `iswitchb-all-frames'."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
883 (let ((iswitchb-bufs-in-frame nil))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
884 (walk-windows 'iswitchb-get-bufname nil
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
885 (if current
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886 nil
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
887 iswitchb-all-frames))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
888 iswitchb-bufs-in-frame))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
889
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
890 (defun iswitchb-get-bufname (win)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
891 "Used by `iswitchb-get-buffers-in-frames' to walk through all windows."
18928
fff55212f6a7 (iswitchb-get-bufname): Only add buffer of current
Richard M. Stallman <rms@gnu.org>
parents: 18776
diff changeset
892 (let ((buf (buffer-name (window-buffer win))))
fff55212f6a7 (iswitchb-get-bufname): Only add buffer of current
Richard M. Stallman <rms@gnu.org>
parents: 18776
diff changeset
893 (if (not (member buf iswitchb-bufs-in-frame))
fff55212f6a7 (iswitchb-get-bufname): Only add buffer of current
Richard M. Stallman <rms@gnu.org>
parents: 18776
diff changeset
894 ;; Only add buf if it is not already in list.
fff55212f6a7 (iswitchb-get-bufname): Only add buffer of current
Richard M. Stallman <rms@gnu.org>
parents: 18776
diff changeset
895 ;; This prevents same buf in two different windows being
fff55212f6a7 (iswitchb-get-bufname): Only add buffer of current
Richard M. Stallman <rms@gnu.org>
parents: 18776
diff changeset
896 ;; put into the list twice.
fff55212f6a7 (iswitchb-get-bufname): Only add buffer of current
Richard M. Stallman <rms@gnu.org>
parents: 18776
diff changeset
897 (setq iswitchb-bufs-in-frame
fff55212f6a7 (iswitchb-get-bufname): Only add buffer of current
Richard M. Stallman <rms@gnu.org>
parents: 18776
diff changeset
898 (cons buf iswitchb-bufs-in-frame)))))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
899
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
900 ;;; FIND MATCHING BUFFERS
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
901
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
902 (defun iswitchb-set-matches ()
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
903 "Set `iswitchb-matches' to the list of buffers matching prompt."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
904 (if iswitchb-rescan
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
905 (setq iswitchb-matches
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
906 (let* ((buflist iswitchb-buflist))
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
907 (iswitchb-get-matched-buffers iswitchb-text iswitchb-regexp
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
908 buflist))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
909 iswitchb-virtual-buffers nil)))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
910
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
911 (defun iswitchb-get-matched-buffers (regexp
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
912 &optional string-format buffer-list)
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
913 "Return buffers matching REGEXP.
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
914 If STRING-FORMAT is nil, consider REGEXP as just a string.
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
915 BUFFER-LIST can be list of buffers or list of strings."
63436
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
916 (let* ((case-fold-search (iswitchb-case))
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
917 name ret)
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
918 (if (null string-format) (setq regexp (regexp-quote regexp)))
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
919 (setq iswitchb-invalid-regexp nil)
63436
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
920 (condition-case error
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
921 (dolist (x buffer-list (nreverse ret))
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
922 (setq name (if (stringp x) x (buffer-name x)))
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
923 (when (and (string-match regexp name)
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
924 (not (iswitchb-ignore-buffername-p name)))
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
925 (push name ret)))
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
926 (invalid-regexp
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
927 (setq iswitchb-invalid-regexp t)
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
928 (cdr error)))))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
929
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
930 (defun iswitchb-ignore-buffername-p (bufname)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
931 "Return t if the buffer BUFNAME should be ignored."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
932 (let ((data (match-data))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
933 (re-list iswitchb-buffer-ignore)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
934 ignorep
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
935 nextstr)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
936 (while re-list
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
937 (setq nextstr (car re-list))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
938 (cond
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
939 ((stringp nextstr)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
940 (if (string-match nextstr bufname)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
941 (progn
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
942 (setq ignorep t)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
943 (setq re-list nil))))
65833
fca34be2db31 (iswitchb-buffer-ignore): Label it risky.
Richard M. Stallman <rms@gnu.org>
parents: 65582
diff changeset
944 ((functionp nextstr)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
945 (if (funcall nextstr bufname)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
946 (progn
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
947 (setq ignorep t)
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
948 (setq re-list nil)))))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
949 (setq re-list (cdr re-list)))
21156
cbdbd307fdb7 (iswitchb-ignore-buffername-p): store-match-data => set-match-data.
Richard M. Stallman <rms@gnu.org>
parents: 21058
diff changeset
950 (set-match-data data)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
951
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
952 ;; return the result
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
953 ignorep))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
954
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
955 (defun iswitchb-word-matching-substring (word)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
956 "Return part of WORD before 1st match to `iswitchb-change-word-sub'.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
957 If `iswitchb-change-word-sub' cannot be found in WORD, return nil."
28619
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
958 (let ((case-fold-search (iswitchb-case)))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
959 (let ((m (string-match iswitchb-change-word-sub word)))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
960 (if m
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
961 (substring word m)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
962 ;; else no match
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
963 nil))))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
964
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
965 (defun iswitchb-find-common-substring (lis subs)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
966 "Return common string following SUBS in each element of LIS."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
967 (let (res
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
968 alist
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
969 iswitchb-change-word-sub)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
970 (setq iswitchb-change-word-sub
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
971 (if iswitchb-regexp
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
972 subs
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
973 (regexp-quote subs)))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
974 (setq res (mapcar 'iswitchb-word-matching-substring lis))
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
975 (setq res (delq nil res)) ;; remove any nil elements (shouldn't happen)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
976 (setq alist (mapcar 'iswitchb-makealist res)) ;; could use an OBARRAY
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
977
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
978 ;; try-completion returns t if there is an exact match.
28619
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
979 (let ((completion-ignore-case (iswitchb-case)))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
980
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
981 (try-completion subs alist))))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
982
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
983 (defun iswitchb-makealist (res)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
984 "Return dotted pair (RES . 1)."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
985 (cons res 1))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
986
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
987 ;; from Wayne Mesard <wmesard@esd.sgi.com>
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
988 (defun iswitchb-rotate-list (lis)
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
989 "Destructively remove the last element from LIS.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
990 Return the modified list with the last element prepended to it."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
991 (if (<= (length lis) 1)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
992 lis
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
993 (let ((las lis)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
994 (prev lis))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
995 (while (consp (cdr las))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
996 (setq prev las
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
997 las (cdr las)))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
998 (setcdr prev nil)
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
999 (cons (car las) lis))))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1000
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1001 (defun iswitchb-completion-help ()
41287
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
1002 "Show possible completions in a *Completions* buffer."
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1003 ;; we could allow this buffer to be used to select match, but I think
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1004 ;; choose-completion-string will need redefining, so it just inserts
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1005 ;; choice with out any previous input.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1006 (interactive)
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1007 (setq iswitchb-rescan nil)
41287
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
1008 (let ((buf (current-buffer))
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
1009 (temp-buf "*Completions*")
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
1010 (win))
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1011
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1012 (if (and (eq last-command this-command)
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1013 (not iswitchb-common-match-inserted))
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1014 ;; scroll buffer
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1015 (progn
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1016 (set-buffer temp-buf)
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1017 (setq win (get-buffer-window temp-buf))
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1018 (if (pos-visible-in-window-p (point-max) win)
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1019 (set-window-start win (point-min))
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1020 (scroll-other-window))
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
1021 (set-buffer buf))
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
1022
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1023 (with-output-to-temp-buffer temp-buf
51660
a7765f7f8c9e (iswitchb-read-buffer): Remove redudant variable
Stephen Eglen <stephen@gnu.org>
parents: 51366
diff changeset
1024 (if (featurep 'xemacs)
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
1025
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1026 ;; XEmacs extents are put on by default, doesn't seem to be
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1027 ;; any way of switching them off.
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1028 (display-completion-list (if iswitchb-matches
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1029 iswitchb-matches
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1030 iswitchb-buflist)
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1031 :help-string "iswitchb "
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1032 :activate-callback
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1033 (lambda (x y z)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1034 (message "doesn't work yet, sorry!")))
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1035 ;; else running Emacs
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1036 (with-current-buffer standard-output
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1037 (fundamental-mode))
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1038 (display-completion-list (if iswitchb-matches
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1039 iswitchb-matches
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1040 iswitchb-buflist))))
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1041 (setq iswitchb-common-match-inserted nil))))
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1042
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1043 ;;; KILL CURRENT BUFFER
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1044
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1045 (defun iswitchb-kill-buffer ()
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1046 "Kill the buffer at the head of `iswitchb-matches'."
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1047 (interactive)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1048 (let ( (enable-recursive-minibuffers t)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1049 buf)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1050
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1051 (setq buf (car iswitchb-matches))
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1052 ;; check to see if buf is non-nil.
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1053 (if buf
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1054 (progn
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1055 (kill-buffer buf)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1056
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1057 ;; Check if buffer exists. XEmacs gnuserv.el makes alias
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1058 ;; for kill-buffer which does not return t if buffer is
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1059 ;; killed, so we can't rely on kill-buffer return value.
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1060 (if (get-buffer buf)
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1061 ;; buffer couldn't be killed.
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1062 (setq iswitchb-rescan t)
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1063 ;; else buffer was killed so remove name from list.
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1064 (setq iswitchb-buflist (delq buf iswitchb-buflist)))))))
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1065
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1066 ;;; VISIT CHOSEN BUFFER
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1067 (defun iswitchb-visit-buffer (buffer)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1068 "Visit buffer named BUFFER according to `iswitchb-method'."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1069 (let* (win newframe)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1070 (cond
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1071 ((eq iswitchb-method 'samewindow)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1072 (switch-to-buffer buffer))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1073
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1074 ((memq iswitchb-method '(always-frame maybe-frame))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1075 (cond
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1076 ((and (setq win (iswitchb-window-buffer-p buffer))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1077 (or (eq iswitchb-method 'always-frame)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1078 (y-or-n-p "Jump to frame? ")))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1079 (setq newframe (window-frame win))
51660
a7765f7f8c9e (iswitchb-read-buffer): Remove redudant variable
Stephen Eglen <stephen@gnu.org>
parents: 51366
diff changeset
1080 (if (fboundp 'select-frame-set-input-focus)
41926
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
1081 (select-frame-set-input-focus newframe)
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
1082 (raise-frame newframe)
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
1083 (select-frame newframe)
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
1084 )
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
1085 (select-window win))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1086 (t
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1087 ;; No buffer in other frames...
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1088 (switch-to-buffer buffer)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1089 )))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1090
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1091 ((eq iswitchb-method 'otherwindow)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1092 (switch-to-buffer-other-window buffer))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1093
17618
8d33666b1152 (iswitchb-visit-buffer): Handle `display' alternative.
Richard M. Stallman <rms@gnu.org>
parents: 17617
diff changeset
1094 ((eq iswitchb-method 'display)
8d33666b1152 (iswitchb-visit-buffer): Handle `display' alternative.
Richard M. Stallman <rms@gnu.org>
parents: 17617
diff changeset
1095 (display-buffer buffer))
8d33666b1152 (iswitchb-visit-buffer): Handle `display' alternative.
Richard M. Stallman <rms@gnu.org>
parents: 17617
diff changeset
1096
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1097 ((eq iswitchb-method 'otherframe)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1098 (progn
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1099 (switch-to-buffer-other-frame buffer)
51660
a7765f7f8c9e (iswitchb-read-buffer): Remove redudant variable
Stephen Eglen <stephen@gnu.org>
parents: 51366
diff changeset
1100 (if (fboundp 'select-frame-set-input-focus)
41926
8748b5403232 (iswitchb-visit-buffer): Use `select-frame-set-input-focus'.
Richard M. Stallman <rms@gnu.org>
parents: 41534
diff changeset
1101 (select-frame-set-input-focus (selected-frame)))
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
1102 )))))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1103
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1104 (defun iswitchb-possible-new-buffer (buf)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1105 "Possibly create and visit a new buffer called BUF."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1106
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1107 (let ((newbufcreated))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1108 (if (and iswitchb-newbuffer
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1109 (or
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1110 (not iswitchb-prompt-newbuffer)
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
1111
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1112 (and iswitchb-prompt-newbuffer
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1113 (y-or-n-p
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1114 (format
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1115 "No buffer matching `%s', create one? "
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1116 buf)))))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1117 ;; then create a new buffer
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1118 (progn
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1119 (setq newbufcreated (get-buffer-create buf))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1120 (if (fboundp 'set-buffer-major-mode)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1121 (set-buffer-major-mode newbufcreated))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1122 (iswitchb-visit-buffer newbufcreated))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1123 ;; else wont create new buffer
65582
4d1085b02d64 Message format spec fixes (1)
Deepak Goel <deego@gnufans.org>
parents: 64762
diff changeset
1124 (message "no buffer matching `%s'" buf))))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1125
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1126 (defun iswitchb-window-buffer-p (buffer)
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1127 "Return window pointer if BUFFER is visible in another frame.
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1128 If BUFFER is visible in the current frame, return nil."
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1129 (interactive)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1130 (let ((blist (iswitchb-get-buffers-in-frames 'current)))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1131 ;;If the buffer is visible in current frame, return nil
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1132 (if (memq buffer blist)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1133 nil
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1134 ;; maybe in other frame or icon
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1135 (get-buffer-window buffer 0) ; better than 'visible
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1136 )))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1137
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1138 (defun iswitchb-default-keybindings ()
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1139 "Set up default keybindings for `iswitchb-buffer'.
24820
788dc6ff04da Add iswitchb-minibuffer-setup to minibuffer-setup-hook in
Stephen Eglen <stephen@gnu.org>
parents: 23785
diff changeset
1140 Call this function to override the normal bindings. This function also
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1141 adds a hook to the minibuffer.
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1142
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1143 Obsolescent. Use `iswitchb-mode'."
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1144 (interactive)
24820
788dc6ff04da Add iswitchb-minibuffer-setup to minibuffer-setup-hook in
Stephen Eglen <stephen@gnu.org>
parents: 23785
diff changeset
1145 (add-hook 'minibuffer-setup-hook 'iswitchb-minibuffer-setup)
26155
6f7db3f3698d iswitchb-default-keybindings: no-need for read-kbd-macro.
Stephen Eglen <stephen@gnu.org>
parents: 26065
diff changeset
1146 (global-set-key "\C-xb" 'iswitchb-buffer)
6f7db3f3698d iswitchb-default-keybindings: no-need for read-kbd-macro.
Stephen Eglen <stephen@gnu.org>
parents: 26065
diff changeset
1147 (global-set-key "\C-x4b" 'iswitchb-buffer-other-window)
6f7db3f3698d iswitchb-default-keybindings: no-need for read-kbd-macro.
Stephen Eglen <stephen@gnu.org>
parents: 26065
diff changeset
1148 (global-set-key "\C-x4\C-o" 'iswitchb-display-buffer)
6f7db3f3698d iswitchb-default-keybindings: no-need for read-kbd-macro.
Stephen Eglen <stephen@gnu.org>
parents: 26065
diff changeset
1149 (global-set-key "\C-x5b" 'iswitchb-buffer-other-frame))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1150
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1151 (defun iswitchb-buffer ()
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1152 "Switch to another buffer.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1153
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1154 The buffer name is selected interactively by typing a substring. The
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1155 buffer is displayed according to `iswitchb-default-method' -- the
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1156 default is to show it in the same window, unless it is already visible
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1157 in another frame.
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1158 For details of keybindings, do `\\[describe-function] iswitchb'."
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1159 (interactive)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1160 (setq iswitchb-method iswitchb-default-method)
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1161 (iswitchb))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1162
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1163 (defun iswitchb-buffer-other-window ()
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1164 "Switch to another buffer and show it in another window.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1165 The buffer name is selected interactively by typing a substring.
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1166 For details of keybindings, do `\\[describe-function] iswitchb'."
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1167 (interactive)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1168 (setq iswitchb-method 'otherwindow)
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1169 (iswitchb))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1170
17618
8d33666b1152 (iswitchb-visit-buffer): Handle `display' alternative.
Richard M. Stallman <rms@gnu.org>
parents: 17617
diff changeset
1171 (defun iswitchb-display-buffer ()
8d33666b1152 (iswitchb-visit-buffer): Handle `display' alternative.
Richard M. Stallman <rms@gnu.org>
parents: 17617
diff changeset
1172 "Display a buffer in another window but don't select it.
8d33666b1152 (iswitchb-visit-buffer): Handle `display' alternative.
Richard M. Stallman <rms@gnu.org>
parents: 17617
diff changeset
1173 The buffer name is selected interactively by typing a substring.
8d33666b1152 (iswitchb-visit-buffer): Handle `display' alternative.
Richard M. Stallman <rms@gnu.org>
parents: 17617
diff changeset
1174 For details of keybindings, do `\\[describe-function] iswitchb'."
8d33666b1152 (iswitchb-visit-buffer): Handle `display' alternative.
Richard M. Stallman <rms@gnu.org>
parents: 17617
diff changeset
1175 (interactive)
8d33666b1152 (iswitchb-visit-buffer): Handle `display' alternative.
Richard M. Stallman <rms@gnu.org>
parents: 17617
diff changeset
1176 (setq iswitchb-method 'display)
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1177 (iswitchb))
17618
8d33666b1152 (iswitchb-visit-buffer): Handle `display' alternative.
Richard M. Stallman <rms@gnu.org>
parents: 17617
diff changeset
1178
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1179 (defun iswitchb-buffer-other-frame ()
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1180 "Switch to another buffer and show it in another frame.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1181 The buffer name is selected interactively by typing a substring.
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1182 For details of keybindings, do `\\[describe-function] iswitchb'."
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1183 (interactive)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1184 (setq iswitchb-method 'otherframe)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1185 (iswitchb))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1186
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1187 ;;; XEmacs hack for showing default buffer
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1188
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1189 ;; The first time we enter the minibuffer, Emacs puts up the default
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1190 ;; buffer to switch to, but XEmacs doesn't -- presumably there is a
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1191 ;; subtle difference in the two versions of post-command-hook. The
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1192 ;; default is shown for both whenever we delete all of our text
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1193 ;; though, indicating its just a problem the first time we enter the
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1194 ;; function. To solve this, we use another entry hook for emacs to
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1195 ;; show the default the first time we enter the minibuffer.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1196
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
1197 (defun iswitchb-init-XEmacs-trick ()
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1198 "Display default buffer when first entering minibuffer.
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1199 This is a hack for XEmacs, and should really be handled by `iswitchb-exhibit'."
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1200 (if (iswitchb-entryfn-p)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1201 (progn
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1202 (iswitchb-exhibit)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1203 (goto-char (point-min)))))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1204
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1205 ;; add this hook for XEmacs only.
51660
a7765f7f8c9e (iswitchb-read-buffer): Remove redudant variable
Stephen Eglen <stephen@gnu.org>
parents: 51366
diff changeset
1206 (if (featurep 'xemacs)
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1207 (add-hook 'iswitchb-minibuffer-setup-hook
21326
8150549598cc Many doc fixes.
Stephen Eglen <stephen@gnu.org>
parents: 21156
diff changeset
1208 'iswitchb-init-XEmacs-trick))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1209
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1210 ;;; XEmacs / backspace key
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1211 ;; For some reason, if the backspace key is pressed in XEmacs, the
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1212 ;; line gets confused, so I've added a simple key definition to make
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1213 ;; backspace act like the normal delete key.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1214
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1215 (defun iswitchb-xemacs-backspacekey ()
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1216 "Bind backspace to `backward-delete-char'."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1217 (define-key iswitchb-mode-map '[backspace] 'backward-delete-char)
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
1218 (define-key iswitchb-mode-map '[(meta backspace)] 'backward-kill-word))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1219
51660
a7765f7f8c9e (iswitchb-read-buffer): Remove redudant variable
Stephen Eglen <stephen@gnu.org>
parents: 51366
diff changeset
1220 (if (featurep 'xemacs)
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1221 (add-hook 'iswitchb-define-mode-map-hook
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1222 'iswitchb-xemacs-backspacekey))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1223
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1224 ;;; ICOMPLETE TYPE CODE
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1225
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1226 (defun iswitchb-exhibit ()
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1227 "Find matching buffers and display a list in the minibuffer.
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1228 Copied from `icomplete-exhibit' with two changes:
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1229 1. It prints a default buffer name when there is no text yet entered.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1230 2. It calls my completion routine rather than the standard completion."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1231 (if iswitchb-use-mycompletion
26065
852cd4f88b37 (iswitchb-exhibit): Extract user-input only
Gerd Moellmann <gerd@gnu.org>
parents: 25855
diff changeset
1232 (let ((contents (buffer-substring (minibuffer-prompt-end) (point-max)))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1233 (buffer-undo-list t))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1234 (save-excursion
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1235 (goto-char (point-max))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1236 ; Register the end of input, so we
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1237 ; know where the extra stuff
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1238 ; (match-status info) begins:
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1239 (if (not (boundp 'iswitchb-eoinput))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1240 ;; In case it got wiped out by major mode business:
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1241 (make-local-variable 'iswitchb-eoinput))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1242 (setq iswitchb-eoinput (point))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1243 ;; Update the list of matches
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1244 (setq iswitchb-text contents)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1245 (iswitchb-set-matches)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1246 (setq iswitchb-rescan t)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1247 (iswitchb-set-common-completion)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1248
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1249 ;; Insert the match-status information:
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
1250 (insert (iswitchb-completions
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1251 contents))))))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1252
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1253 (eval-when-compile
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1254 (defvar most-len)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1255 (defvar most-is-exact))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1256
54956
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
1257 (defun iswitchb-output-completion (com)
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
1258 (if (= (length com) most-len)
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
1259 ;; Most is one exact match,
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
1260 ;; note that and leave out
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
1261 ;; for later indication:
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
1262 (ignore
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
1263 (setq most-is-exact t))
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
1264 (substring com most-len)))
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
1265
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1266 (defun iswitchb-completions (name)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1267 "Return the string that is displayed after the user's text.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1268 Modified from `icomplete-completions'."
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
1269
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1270 (let ((comps iswitchb-matches)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1271 ; "-determined" - only one candidate
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1272 (open-bracket-determined "[")
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1273 (close-bracket-determined "]")
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1274 ;"-prospects" - more than one candidate
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1275 (open-bracket-prospects "{")
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1276 (close-bracket-prospects "}")
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
1277 first)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1278
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1279 (if (and iswitchb-use-faces comps)
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1280 (progn
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1281 (setq first (car comps))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1282 (setq first (format "%s" first))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1283 (put-text-property 0 (length first) 'face
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1284 (if (= (length comps) 1)
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1285 (if iswitchb-invalid-regexp
63075
7e902750d940 2005-06-06 Matt Hodges <MPHodges@member.fsf.org>
Kim F. Storm <storm@cua.dk>
parents: 63012
diff changeset
1286 'iswitchb-invalid-regexp
7e902750d940 2005-06-06 Matt Hodges <MPHodges@member.fsf.org>
Kim F. Storm <storm@cua.dk>
parents: 63012
diff changeset
1287 'iswitchb-single-match)
7e902750d940 2005-06-06 Matt Hodges <MPHodges@member.fsf.org>
Kim F. Storm <storm@cua.dk>
parents: 63012
diff changeset
1288 'iswitchb-current-match)
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1289 first)
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
1290 (setq comps (cons first (cdr comps)))))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1291
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1292 ;; If no buffers matched, and virtual buffers are being used, then
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1293 ;; consult the list of past visited files, to see if we can find
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1294 ;; the file which the user might thought was still open.
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1295 (when (and iswitchb-use-virtual-buffers (null comps)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1296 recentf-list)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1297 (setq iswitchb-virtual-buffers nil)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1298 (let ((head recentf-list) name)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1299 (while head
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1300 (if (and (setq name (file-name-nondirectory (car head)))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1301 (string-match (if iswitchb-regexp
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1302 iswitchb-text
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1303 (regexp-quote iswitchb-text)) name)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1304 (null (get-file-buffer (car head)))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1305 (not (assoc name iswitchb-virtual-buffers))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1306 (not (iswitchb-ignore-buffername-p name))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1307 (file-exists-p (car head)))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1308 (setq iswitchb-virtual-buffers
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1309 (cons (cons name (car head))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1310 iswitchb-virtual-buffers)))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1311 (setq head (cdr head)))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1312 (setq iswitchb-virtual-buffers (nreverse iswitchb-virtual-buffers)
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1313 comps (mapcar 'car iswitchb-virtual-buffers))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1314 (let ((comp comps))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1315 (while comp
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1316 (put-text-property 0 (length (car comp))
63075
7e902750d940 2005-06-06 Matt Hodges <MPHodges@member.fsf.org>
Kim F. Storm <storm@cua.dk>
parents: 63012
diff changeset
1317 'face 'iswitchb-virtual-matches
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1318 (car comp))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1319 (setq comp (cdr comp))))))
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1320
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1321 (cond ((null comps) (format " %sNo match%s"
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1322 open-bracket-determined
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1323 close-bracket-determined))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1324
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1325 (iswitchb-invalid-regexp
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1326 (concat " " (car comps)))
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1327 ((null (cdr comps)) ;one match
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1328 (concat
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1329 (if (if (not iswitchb-regexp)
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1330 (= (length name)
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1331 (length (car comps)))
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1332 (string-match name (car comps))
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1333 (string-equal (match-string 0 (car comps))
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1334 (car comps)))
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1335 ""
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1336 (concat open-bracket-determined
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1337 ;; when there is one match, show the
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1338 ;; matching buffer name in full
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1339 (car comps)
63012
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1340 close-bracket-determined))
3ae2519a0cfd (iswitchb-single-match-face)
Eli Zaretskii <eliz@gnu.org>
parents: 63002
diff changeset
1341 (if (not iswitchb-use-faces) " [Matched]")))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1342 (t ;multiple matches
54956
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
1343 (if (and iswitchb-max-to-show
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
1344 (> (length comps) iswitchb-max-to-show))
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
1345 (setq comps
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
1346 (append
54967
8456893f6790 2004-04-18 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 54956
diff changeset
1347 (let ((res nil)
8456893f6790 2004-04-18 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 54956
diff changeset
1348 (comp comps)
8456893f6790 2004-04-18 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 54956
diff changeset
1349 (end (/ iswitchb-max-to-show 2)))
8456893f6790 2004-04-18 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 54956
diff changeset
1350 (while (>= (setq end (1- end)) 0)
8456893f6790 2004-04-18 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 54956
diff changeset
1351 (setq res (cons (car comp) res)
8456893f6790 2004-04-18 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 54956
diff changeset
1352 comp (cdr comp)))
8456893f6790 2004-04-18 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 54956
diff changeset
1353 (nreverse res))
54956
d0e2ba105b5a 2004-04-17 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 53805
diff changeset
1354 (list "...")
54967
8456893f6790 2004-04-18 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 54956
diff changeset
1355 (nthcdr (- (length comps)
8456893f6790 2004-04-18 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 54956
diff changeset
1356 (/ iswitchb-max-to-show 2)) comps))))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1357 (let* (
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1358 ;;(most (try-completion name candidates predicate))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1359 (most nil)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1360 (most-len (length most))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1361 most-is-exact
55434
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1362 (alternatives
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1363 (mapconcat (if most 'iswitchb-output-completion
f88632e54afb 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 55373
diff changeset
1364 'identity) comps ",")))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1365
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1366 (concat
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1367
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1368 ;; put in common completion item -- what you get by
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1369 ;; pressing tab
47622
b604605851ea (iswitchb-completions): Test that iswitchb-common-match-string is a
Stephen Eglen <stephen@gnu.org>
parents: 44557
diff changeset
1370 (if (and (stringp iswitchb-common-match-string)
b604605851ea (iswitchb-completions): Test that iswitchb-common-match-string is a
Stephen Eglen <stephen@gnu.org>
parents: 44557
diff changeset
1371 (> (length iswitchb-common-match-string) (length name)))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1372 (concat open-bracket-determined
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1373 (substring iswitchb-common-match-string
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1374 (length name))
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
1375 close-bracket-determined))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1376 ;; end of partial matches...
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1377
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1378 ;; think this bit can be ignored.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1379 (and (> most-len (length name))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1380 (concat open-bracket-determined
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1381 (substring most (length name))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1382 close-bracket-determined))
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
1383
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1384 ;; list all alternatives
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1385 open-bracket-prospects
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1386 (if most-is-exact
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1387 (concat "," alternatives)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1388 alternatives)
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
1389 close-bracket-prospects))))))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1390
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1391 (defun iswitchb-minibuffer-setup ()
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1392 "Set up minibuffer for `iswitchb-buffer'.
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1393 Copied from `icomplete-minibuffer-setup-hook'."
41287
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
1394 (when (iswitchb-entryfn-p)
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
1395 (set (make-local-variable 'iswitchb-use-mycompletion) t)
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
1396 (add-hook 'pre-command-hook 'iswitchb-pre-command nil t)
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
1397 (add-hook 'post-command-hook 'iswitchb-post-command nil t)
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
1398 (run-hooks 'iswitchb-minibuffer-setup-hook)))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1399
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1400 (defun iswitchb-pre-command ()
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1401 "Run before command in `iswitchb-buffer'."
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1402 (iswitchb-tidy))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1403
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1404 (defun iswitchb-post-command ()
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1405 "Run after command in `iswitchb-buffer'."
21706
a0c3ee34362d Only require cl if cadr and last are not defined (thanks to Dave Love.)
Stephen Eglen <stephen@gnu.org>
parents: 21326
diff changeset
1406 (iswitchb-exhibit))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1407
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1408 (defun iswitchb-tidy ()
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1409 "Remove completions display, if any, prior to new user input.
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1410 Copied from `icomplete-tidy'."
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1411
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1412 (if (and (boundp 'iswitchb-eoinput)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1413 iswitchb-eoinput)
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
1414
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1415 (if (> iswitchb-eoinput (point-max))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1416 ;; Oops, got rug pulled out from under us - reinit:
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1417 (setq iswitchb-eoinput (point-max))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1418 (let ((buffer-undo-list buffer-undo-list )) ; prevent entry
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1419 (delete-region iswitchb-eoinput (point-max))))
49597
e88404e8f2cf Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47622
diff changeset
1420
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1421 ;; Reestablish the local variable 'cause minibuffer-setup is weird:
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1422 (make-local-variable 'iswitchb-eoinput)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1423 (setq iswitchb-eoinput 1)))
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1424
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1425 (defun iswitchb-entryfn-p ()
30527
876c0335dead (iswitchb-entryfn-p): Test this-command instead
Gerd Moellmann <gerd@gnu.org>
parents: 28859
diff changeset
1426 "Return non-nil if we are using `iswitchb-buffer'."
33818
42ed3c6a1d89 (iswitchb-minibuf-depth): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 32288
diff changeset
1427 (eq iswitchb-minibuf-depth (minibuffer-depth)))
20470
4d8e07123564 (iswitchb-completion-help): Multiple TAB presses
Karl Heuer <kwzh@gnu.org>
parents: 18929
diff changeset
1428
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1429 (defun iswitchb-summaries-to-end ()
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1430 "Move the summaries to the end of the list.
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1431 This is an example function which can be hooked on to
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1432 `iswitchb-make-buflist-hook'. Any buffer matching the regexps
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1433 `Summary' or `output\*$'are put to the end of the list."
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1434 (let ((summaries (delq nil
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1435 (mapcar
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1436 (lambda (x)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1437 (if (string-match "Summary\\|output\\*$" x)
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1438 x))
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1439 iswitchb-temp-buflist))))
18776
61751ba33c8f All user variables now converted to custom.
Richard M. Stallman <rms@gnu.org>
parents: 17619
diff changeset
1440 (iswitchb-to-end summaries)))
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1441
28619
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
1442 (defun iswitchb-case ()
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
1443 "Return non-nil iff we should ignore case when matching.
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
1444 See the variable `iswitchb-case' for details."
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
1445 (if iswitchb-case
51660
a7765f7f8c9e (iswitchb-read-buffer): Remove redudant variable
Stephen Eglen <stephen@gnu.org>
parents: 51366
diff changeset
1446 (if (featurep 'xemacs)
28619
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
1447 (isearch-no-upper-case-p iswitchb-text)
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
1448 (isearch-no-upper-case-p iswitchb-text t))))
79fd94833204 (iswitchb-case): New function. If the user input
Gerd Moellmann <gerd@gnu.org>
parents: 27497
diff changeset
1449
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1450 ;;;###autoload
41287
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
1451 (define-minor-mode iswitchb-mode
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1452 "Toggle Iswitchb global minor mode.
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1453 With arg, turn Iswitchb mode on if and only iff ARG is positive.
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1454 This mode enables switching between buffers using substrings. See
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1455 `iswitchb' for details."
41287
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
1456 nil nil iswitchb-global-map :global t :group 'iswitchb
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1457 (if iswitchb-mode
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1458 (add-hook 'minibuffer-setup-hook 'iswitchb-minibuffer-setup)
41287
eeb1c0923d4f (iswitchb-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41273
diff changeset
1459 (remove-hook 'minibuffer-setup-hook 'iswitchb-minibuffer-setup)))
31797
b9e108c1c1bf Some doc fixes.
Dave Love <fx@gnu.org>
parents: 30527
diff changeset
1460
17616
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1461 (provide 'iswitchb)
a64126a1f870 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1462
63436
eca4e949db45 (iswitchb-to-end): Replace mapcar with dolist.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 63075
diff changeset
1463 ;; arch-tag: d74198ae-753f-44f2-b34f-0c515398d90a
17617
4851316697c1 Many doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 17616
diff changeset
1464 ;;; iswitchb.el ends here