Mercurial > emacs
annotate lisp/icomplete.el @ 50975:bf7c2783b20d
*** empty log message ***
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 13 May 2003 20:15:13 +0000 |
parents | 37645a051842 |
children | 695cf19ef79e d7ddb3e565de |
rev | line source |
---|---|
29154 | 1 ;;; icomplete.el --- minibuffer completion incremental feedback |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
2 |
37171
b2411ccdbf22
(icomplete-mode): Treat an argument like other
Gerd Moellmann <gerd@gnu.org>
parents:
35467
diff
changeset
|
3 ;; Copyright (C) 1992, 1993, 1994, 1997, 1999, 2001 |
b2411ccdbf22
(icomplete-mode): Treat an argument like other
Gerd Moellmann <gerd@gnu.org>
parents:
35467
diff
changeset
|
4 ;;; Free Software Foundation, Inc. |
5147 | 5 |
26516
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
6 ;; Author: Ken Manheimer <klm@i.am> |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
7 ;; Maintainer: Ken Manheimer <klm@i.am> |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
8 ;; Created: Mar 1993 Ken Manheimer, klm@nist.gov - first release to usenet |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
9 ;; Last update: Ken Manheimer <klm@i.am>, 11/18/1999. |
13337 | 10 ;; Keywords: help, abbrev |
5147 | 11 |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
12 ;; This file is part of GNU Emacs. |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
13 |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
14 ;; GNU Emacs is free software; you can redistribute it and/or modify |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
15 ;; it under the terms of the GNU General Public License as published by |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
16 ;; the Free Software Foundation; either version 2, or (at your option) |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
17 ;; any later version. |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
18 |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
19 ;; GNU Emacs is distributed in the hope that it will be useful, |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
22 ;; GNU General Public License for more details. |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
23 |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
24 ;; You should have received a copy of the GNU General Public License |
14169 | 25 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
26 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
27 ;; Boston, MA 02111-1307, USA. | |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
28 |
5147 | 29 ;;; Commentary: |
30 | |
14169 | 31 ;; Loading this package implements a more fine-grained minibuffer |
32 ;; completion feedback scheme. Prospective completions are concisely | |
33 ;; indicated within the minibuffer itself, with each successive | |
34 ;; keystroke. | |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
35 |
20764 | 36 ;; See `icomplete-completions' docstring for a description of the |
14169 | 37 ;; icomplete display format. |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
38 |
14169 | 39 ;; See the `icomplete-minibuffer-setup-hook' docstring for a means to |
40 ;; customize icomplete setup for interoperation with other | |
41 ;; minibuffer-oriented packages. | |
5147 | 42 |
26516
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
43 ;; To activate icomplete mode, load the package and use the |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
44 ;; `icomplete-mode' function. You can subsequently deactivate it by |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
45 ;; invoking the function icomplete-mode with a negative prefix-arg |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
46 ;; (C-U -1 ESC-x icomplete-mode). Also, you can prevent activation of |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
47 ;; the mode during package load by first setting the variable |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
48 ;; `icomplete-mode' to nil. Icompletion can be enabled any time after |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
49 ;; the package is loaded by invoking icomplete-mode without a prefix |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
50 ;; arg. |
18029
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
51 |
14169 | 52 ;; Thanks to everyone for their suggestions for refinements of this |
53 ;; package. I particularly have to credit Michael Cook, who | |
54 ;; implemented an incremental completion style in his 'iswitch' | |
55 ;; functions that served as a model for icomplete. Some other | |
20764 | 56 ;; contributors: Noah Friedman (restructuring as minor mode), Colin |
18251
e0327e90d706
Don't call icomplete-mode; let the user do that.
Richard M. Stallman <rms@gnu.org>
parents:
18060
diff
changeset
|
57 ;; Rafferty (lemacs reconciliation), Lars Lindberg, RMS, and others. |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
58 |
14169 | 59 ;; klm. |
5147 | 60 |
61 ;;; Code: | |
62 | |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
63 ;;;_* Provide |
5147 | 64 (provide 'icomplete) |
65 | |
20764 | 66 |
67 (defgroup icomplete nil | |
68 "Show completions dynamically in minibuffer." | |
69 :prefix "icomplete-" | |
70 :group 'minibuffer) | |
71 | |
72 (defcustom icomplete-mode nil | |
26516
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
73 "*Toggle incremental minibuffer completion. |
49588
37645a051842
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
43554
diff
changeset
|
74 As text is typed into the minibuffer, prospective completions are indicated |
20764 | 75 in the minibuffer. |
24644 | 76 Setting this variable directly does not take effect; |
77 use either \\[customize] or the function `icomplete-mode'." | |
20764 | 78 :set (lambda (symbol value) |
79 (icomplete-mode (if value 1 -1))) | |
80 :initialize 'custom-initialize-default | |
81 :type 'boolean | |
82 :group 'icomplete | |
83 :require 'icomplete) | |
84 | |
26516
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
85 ;;;_* User Customization variables |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
86 (defcustom icomplete-prospects-length 80 |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
87 "*Length of string displaying the prospects." |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
88 :type 'integer |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
89 :group 'icomplete) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
90 |
20764 | 91 (defcustom icomplete-compute-delay .3 |
18029
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
92 "*Completions-computation stall, used only with large-number |
20764 | 93 completions - see `icomplete-delay-completions-threshold'." |
94 :type 'number | |
95 :group 'icomplete) | |
96 | |
97 (defcustom icomplete-delay-completions-threshold 400 | |
98 "*Pending-completions number over which to apply icomplete-compute-delay." | |
99 :type 'integer | |
100 :group 'icomplete) | |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
101 |
20764 | 102 (defcustom icomplete-max-delay-chars 3 |
103 "*Maximum number of initial chars to apply icomplete compute delay." | |
104 :type 'integer | |
105 :group 'icomplete) | |
106 | |
107 (defcustom icomplete-show-key-bindings t | |
108 "*If non-nil, show key bindings as well as completion for sole matches." | |
109 :type 'boolean | |
110 :group 'icomplete) | |
111 | |
112 (defcustom icomplete-minibuffer-setup-hook nil | |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
113 "*Icomplete-specific customization of minibuffer setup. |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
114 |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
115 This hook is run during minibuffer setup iff icomplete will be active. |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
116 It is intended for use in customizing icomplete for interoperation |
35467
d9a298a82b9a
(icomplete-minibuffer-setup-hook): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
29154
diff
changeset
|
117 with other features and packages. For instance: |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
118 |
18029
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
119 \(add-hook 'icomplete-minibuffer-setup-hook |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
120 \(function |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
121 \(lambda () |
35467
d9a298a82b9a
(icomplete-minibuffer-setup-hook): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
29154
diff
changeset
|
122 \(make-local-variable 'max-mini-window-height) |
d9a298a82b9a
(icomplete-minibuffer-setup-hook): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
29154
diff
changeset
|
123 \(setq max-mini-window-height 3)))) |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
124 |
35467
d9a298a82b9a
(icomplete-minibuffer-setup-hook): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
29154
diff
changeset
|
125 will constrain Emacs to a maximum minibuffer height of 3 lines when |
20764 | 126 icompletion is occurring." |
127 :type 'hook | |
128 :group 'icomplete) | |
129 | |
130 | |
131 ;;;_* Initialization | |
5147 | 132 |
5375
0e30cf7aa525
(icomplete-pre-command-hook): Reconciled with keyboard macro operation.
Richard M. Stallman <rms@gnu.org>
parents:
5147
diff
changeset
|
133 ;;;_ + Internal Variables |
0e30cf7aa525
(icomplete-pre-command-hook): Reconciled with keyboard macro operation.
Richard M. Stallman <rms@gnu.org>
parents:
5147
diff
changeset
|
134 ;;;_ = icomplete-eoinput 1 |
5147 | 135 (defvar icomplete-eoinput 1 |
136 "Point where minibuffer input ends and completion info begins.") | |
137 (make-variable-buffer-local 'icomplete-eoinput) | |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
138 ;;;_ = icomplete-pre-command-hook |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
139 (defvar icomplete-pre-command-hook nil |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
140 "Incremental-minibuffer-completion pre-command-hook. |
5375
0e30cf7aa525
(icomplete-pre-command-hook): Reconciled with keyboard macro operation.
Richard M. Stallman <rms@gnu.org>
parents:
5147
diff
changeset
|
141 |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
142 Is run in minibuffer before user input when `icomplete-mode' is non-nil. |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
143 Use `icomplete-mode' function to set it up properly for incremental |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
144 minibuffer completion.") |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
145 (add-hook 'icomplete-pre-command-hook 'icomplete-tidy) |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
146 ;;;_ = icomplete-post-command-hook |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
147 (defvar icomplete-post-command-hook nil |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
148 "Incremental-minibuffer-completion post-command-hook. |
5147 | 149 |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
150 Is run in minibuffer after user input when `icomplete-mode' is non-nil. |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
151 Use `icomplete-mode' function to set it up properly for incremental |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
152 minibuffer completion.") |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
153 (add-hook 'icomplete-post-command-hook 'icomplete-exhibit) |
5375
0e30cf7aa525
(icomplete-pre-command-hook): Reconciled with keyboard macro operation.
Richard M. Stallman <rms@gnu.org>
parents:
5147
diff
changeset
|
154 |
18029
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
155 (defun icomplete-get-keys (func-name) |
18251
e0327e90d706
Don't call icomplete-mode; let the user do that.
Richard M. Stallman <rms@gnu.org>
parents:
18060
diff
changeset
|
156 "Return strings naming keys bound to `func-name', or nil if none. |
e0327e90d706
Don't call icomplete-mode; let the user do that.
Richard M. Stallman <rms@gnu.org>
parents:
18060
diff
changeset
|
157 Examines the prior, not current, buffer, presuming that current buffer |
e0327e90d706
Don't call icomplete-mode; let the user do that.
Richard M. Stallman <rms@gnu.org>
parents:
18060
diff
changeset
|
158 is minibuffer." |
e0327e90d706
Don't call icomplete-mode; let the user do that.
Richard M. Stallman <rms@gnu.org>
parents:
18060
diff
changeset
|
159 (if (commandp func-name) |
18029
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
160 (save-excursion |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
161 (let* ((sym (intern func-name)) |
18251
e0327e90d706
Don't call icomplete-mode; let the user do that.
Richard M. Stallman <rms@gnu.org>
parents:
18060
diff
changeset
|
162 (buf (other-buffer)) |
e0327e90d706
Don't call icomplete-mode; let the user do that.
Richard M. Stallman <rms@gnu.org>
parents:
18060
diff
changeset
|
163 (map (save-excursion (set-buffer buf) (current-local-map))) |
e0327e90d706
Don't call icomplete-mode; let the user do that.
Richard M. Stallman <rms@gnu.org>
parents:
18060
diff
changeset
|
164 (keys (where-is-internal sym map))) |
18029
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
165 (if keys |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
166 (concat "<" |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
167 (mapconcat 'key-description |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
168 (sort keys |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
169 #'(lambda (x y) |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
170 (< (length x) (length y)))) |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
171 ", ") |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
172 ">")))))) |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
173 |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
174 ;;;_ > icomplete-mode (&optional prefix) |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
175 ;;;###autoload |
37171
b2411ccdbf22
(icomplete-mode): Treat an argument like other
Gerd Moellmann <gerd@gnu.org>
parents:
35467
diff
changeset
|
176 (defun icomplete-mode (&optional arg) |
b2411ccdbf22
(icomplete-mode): Treat an argument like other
Gerd Moellmann <gerd@gnu.org>
parents:
35467
diff
changeset
|
177 "Toggle incremental minibuffer completion for this Emacs session. |
b2411ccdbf22
(icomplete-mode): Treat an argument like other
Gerd Moellmann <gerd@gnu.org>
parents:
35467
diff
changeset
|
178 With a numeric argument, turn Icomplete mode on iff ARG is positive." |
b2411ccdbf22
(icomplete-mode): Treat an argument like other
Gerd Moellmann <gerd@gnu.org>
parents:
35467
diff
changeset
|
179 (interactive "P") |
b2411ccdbf22
(icomplete-mode): Treat an argument like other
Gerd Moellmann <gerd@gnu.org>
parents:
35467
diff
changeset
|
180 (let ((on-p (if (null arg) |
b2411ccdbf22
(icomplete-mode): Treat an argument like other
Gerd Moellmann <gerd@gnu.org>
parents:
35467
diff
changeset
|
181 (not icomplete-mode) |
b2411ccdbf22
(icomplete-mode): Treat an argument like other
Gerd Moellmann <gerd@gnu.org>
parents:
35467
diff
changeset
|
182 (> (prefix-numeric-value arg) 0)))) |
b2411ccdbf22
(icomplete-mode): Treat an argument like other
Gerd Moellmann <gerd@gnu.org>
parents:
35467
diff
changeset
|
183 (setq icomplete-mode on-p) |
b2411ccdbf22
(icomplete-mode): Treat an argument like other
Gerd Moellmann <gerd@gnu.org>
parents:
35467
diff
changeset
|
184 (when on-p |
b2411ccdbf22
(icomplete-mode): Treat an argument like other
Gerd Moellmann <gerd@gnu.org>
parents:
35467
diff
changeset
|
185 ;; The following is not really necessary after first time - |
b2411ccdbf22
(icomplete-mode): Treat an argument like other
Gerd Moellmann <gerd@gnu.org>
parents:
35467
diff
changeset
|
186 ;; no great loss. |
b2411ccdbf22
(icomplete-mode): Treat an argument like other
Gerd Moellmann <gerd@gnu.org>
parents:
35467
diff
changeset
|
187 (add-hook 'minibuffer-setup-hook 'icomplete-minibuffer-setup)))) |
5147 | 188 |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
189 ;;;_ > icomplete-simple-completing-p () |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
190 (defun icomplete-simple-completing-p () |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
191 "Non-nil if current window is minibuffer that's doing simple completion. |
8434
36da3d480ccd
(icomplete-prime-minibuffer): Copy the hook lists after making them local.
Richard M. Stallman <rms@gnu.org>
parents:
5375
diff
changeset
|
192 |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
193 Conditions are: |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
194 the selected window is a minibuffer, |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
195 and not in the middle of macro execution, |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
196 and minibuffer-completion-table is not a symbol (which would |
13989
d60fffb9acd1
(icomplete-simple-completing-p, icomplete-completions):
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
197 indicate some non-standard, non-simple completion mechanism, |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
198 like file-name and other custom-func completions)." |
5375
0e30cf7aa525
(icomplete-pre-command-hook): Reconciled with keyboard macro operation.
Richard M. Stallman <rms@gnu.org>
parents:
5147
diff
changeset
|
199 |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
200 (and (window-minibuffer-p (selected-window)) |
15302
c23c9712ef5c
Use executing-kbd-macro, not executing-macro.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
201 (not executing-kbd-macro) |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
202 (not (symbolp minibuffer-completion-table)))) |
12933
61f11030ecc9
(icomplete-minibuffer-setup): Use make-local-hook
Richard M. Stallman <rms@gnu.org>
parents:
11035
diff
changeset
|
203 |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
204 ;;;_ > icomplete-minibuffer-setup () |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
205 ;;;###autoload |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
206 (defun icomplete-minibuffer-setup () |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
207 "Run in minibuffer on activation to establish incremental completion. |
12933
61f11030ecc9
(icomplete-minibuffer-setup): Use make-local-hook
Richard M. Stallman <rms@gnu.org>
parents:
11035
diff
changeset
|
208 Usually run by inclusion in `minibuffer-setup-hook'." |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
209 (cond ((and icomplete-mode (icomplete-simple-completing-p)) |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
210 (add-hook 'pre-command-hook |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
211 (function (lambda () |
12933
61f11030ecc9
(icomplete-minibuffer-setup): Use make-local-hook
Richard M. Stallman <rms@gnu.org>
parents:
11035
diff
changeset
|
212 (run-hooks 'icomplete-pre-command-hook))) |
61f11030ecc9
(icomplete-minibuffer-setup): Use make-local-hook
Richard M. Stallman <rms@gnu.org>
parents:
11035
diff
changeset
|
213 nil t) |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
214 (add-hook 'post-command-hook |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
215 (function (lambda () |
12933
61f11030ecc9
(icomplete-minibuffer-setup): Use make-local-hook
Richard M. Stallman <rms@gnu.org>
parents:
11035
diff
changeset
|
216 (run-hooks 'icomplete-post-command-hook))) |
61f11030ecc9
(icomplete-minibuffer-setup): Use make-local-hook
Richard M. Stallman <rms@gnu.org>
parents:
11035
diff
changeset
|
217 nil t) |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
218 (run-hooks 'icomplete-minibuffer-setup-hook)))) |
26516
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
219 ; |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
220 |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
221 |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
222 ;;;_* Completion |
5375
0e30cf7aa525
(icomplete-pre-command-hook): Reconciled with keyboard macro operation.
Richard M. Stallman <rms@gnu.org>
parents:
5147
diff
changeset
|
223 |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
224 ;;;_ > icomplete-tidy () |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
225 (defun icomplete-tidy () |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
226 "Remove completions display \(if any) prior to new user input. |
12933
61f11030ecc9
(icomplete-minibuffer-setup): Use make-local-hook
Richard M. Stallman <rms@gnu.org>
parents:
11035
diff
changeset
|
227 Should be run in on the minibuffer `pre-command-hook'. See `icomplete-mode' |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
228 and `minibuffer-setup-hook'." |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
229 (if (icomplete-simple-completing-p) |
5147 | 230 (if (and (boundp 'icomplete-eoinput) |
231 icomplete-eoinput) | |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
232 |
5147 | 233 (if (> icomplete-eoinput (point-max)) |
234 ;; Oops, got rug pulled out from under us - reinit: | |
235 (setq icomplete-eoinput (point-max)) | |
5375
0e30cf7aa525
(icomplete-pre-command-hook): Reconciled with keyboard macro operation.
Richard M. Stallman <rms@gnu.org>
parents:
5147
diff
changeset
|
236 (let ((buffer-undo-list buffer-undo-list )) ; prevent entry |
5147 | 237 (delete-region icomplete-eoinput (point-max)))) |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
238 |
5375
0e30cf7aa525
(icomplete-pre-command-hook): Reconciled with keyboard macro operation.
Richard M. Stallman <rms@gnu.org>
parents:
5147
diff
changeset
|
239 ;; Reestablish the local variable 'cause minibuffer-setup is weird: |
5147 | 240 (make-local-variable 'icomplete-eoinput) |
241 (setq icomplete-eoinput 1)))) | |
12933
61f11030ecc9
(icomplete-minibuffer-setup): Use make-local-hook
Richard M. Stallman <rms@gnu.org>
parents:
11035
diff
changeset
|
242 |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
243 ;;;_ > icomplete-exhibit () |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
244 (defun icomplete-exhibit () |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
245 "Insert icomplete completions display. |
12933
61f11030ecc9
(icomplete-minibuffer-setup): Use make-local-hook
Richard M. Stallman <rms@gnu.org>
parents:
11035
diff
changeset
|
246 Should be run via minibuffer `post-command-hook'. See `icomplete-mode' |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
247 and `minibuffer-setup-hook'." |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
248 (if (icomplete-simple-completing-p) |
27023
b190fee70d54
(icomplete-exhibit): Adapt to prompt in buffer.
Gerd Moellmann <gerd@gnu.org>
parents:
26518
diff
changeset
|
249 (let ((contents (buffer-substring (minibuffer-prompt-end)(point-max))) |
5147 | 250 (buffer-undo-list t)) |
251 (save-excursion | |
252 (goto-char (point-max)) | |
253 ; Register the end of input, so we | |
254 ; know where the extra stuff | |
255 ; (match-status info) begins: | |
256 (if (not (boundp 'icomplete-eoinput)) | |
257 ;; In case it got wiped out by major mode business: | |
258 (make-local-variable 'icomplete-eoinput)) | |
259 (setq icomplete-eoinput (point)) | |
260 ; Insert the match-status information: | |
43554
b785a21f5738
(icomplete-exhibit): Use minibuffer-prompt-end.
Richard M. Stallman <rms@gnu.org>
parents:
41574
diff
changeset
|
261 (if (and (> (point-max) (minibuffer-prompt-end)) |
18029
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
262 (or |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
263 ;; Don't bother with delay after certain number of chars: |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
264 (> (point-max) icomplete-max-delay-chars) |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
265 ;; Don't delay if alternatives number is small enough: |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
266 (if minibuffer-completion-table |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
267 (cond ((numberp minibuffer-completion-table) |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
268 (< minibuffer-completion-table |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
269 icomplete-delay-completions-threshold)) |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
270 ((sequencep minibuffer-completion-table) |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
271 (< (length minibuffer-completion-table) |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
272 icomplete-delay-completions-threshold)) |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
273 )) |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
274 ;; Delay - give some grace time for next keystroke, before |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
275 ;; embarking on computing completions: |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
276 (sit-for icomplete-compute-delay))) |
41536
6cedfe4f18f8
(icomplete-exhibit): Likewise.
Pavel Janík <Pavel@Janik.cz>
parents:
37171
diff
changeset
|
277 (insert |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
278 (icomplete-completions contents |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
279 minibuffer-completion-table |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
280 minibuffer-completion-predicate |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
281 (not |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
282 minibuffer-completion-confirm)))))))) |
12933
61f11030ecc9
(icomplete-minibuffer-setup): Use make-local-hook
Richard M. Stallman <rms@gnu.org>
parents:
11035
diff
changeset
|
283 |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
284 ;;;_ > icomplete-completions (name candidates predicate require-match) |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
285 (defun icomplete-completions (name candidates predicate require-match) |
5147 | 286 "Identify prospective candidates for minibuffer completion. |
287 | |
5375
0e30cf7aa525
(icomplete-pre-command-hook): Reconciled with keyboard macro operation.
Richard M. Stallman <rms@gnu.org>
parents:
5147
diff
changeset
|
288 The display is updated with each minibuffer keystroke during |
5147 | 289 minibuffer completion. |
290 | |
291 Prospective completion suffixes (if any) are displayed, bracketed by | |
292 one of \(), \[], or \{} pairs. The choice of brackets is as follows: | |
293 | |
294 \(...) - a single prospect is identified and matching is enforced, | |
295 \[...] - a single prospect is identified but matching is optional, or | |
296 \{...} - multiple prospects, separated by commas, are indicated, and | |
13989
d60fffb9acd1
(icomplete-simple-completing-p, icomplete-completions):
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
297 further input is required to distinguish a single one. |
5147 | 298 |
13989
d60fffb9acd1
(icomplete-simple-completing-p, icomplete-completions):
Karl Heuer <kwzh@gnu.org>
parents:
13337
diff
changeset
|
299 The displays for unambiguous matches have ` [Matched]' appended |
12933
61f11030ecc9
(icomplete-minibuffer-setup): Use make-local-hook
Richard M. Stallman <rms@gnu.org>
parents:
11035
diff
changeset
|
300 \(whether complete or not), or ` \[No matches]', if no eligible |
18251
e0327e90d706
Don't call icomplete-mode; let the user do that.
Richard M. Stallman <rms@gnu.org>
parents:
18060
diff
changeset
|
301 matches exist. \(Keybindings for uniquely matched commands |
18029
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
302 are exhibited within the square braces.)" |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
303 |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
304 ;; 'all-completions' doesn't like empty |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
305 ;; minibuffer-completion-table's (ie: (nil)) |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
306 (if (and (listp candidates) (null (car candidates))) |
82a56bdb2381
Integrated Emacs 19.34 and XEmacs 19.15
Karl Heuer <kwzh@gnu.org>
parents:
15302
diff
changeset
|
307 (setq candidates nil)) |
5147 | 308 |
309 (let ((comps (all-completions name candidates predicate)) | |
310 ; "-determined" - only one candidate | |
311 (open-bracket-determined (if require-match "(" "[")) | |
26516
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
312 (close-bracket-determined (if require-match ")" "]"))) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
313 ;; `concat'/`mapconcat' is the slow part. With the introduction of |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
314 ;; `icomplete-prospects-length', there is no need for `catch'/`throw'. |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
315 (if (null comps) (format " %sNo matches%s" |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
316 open-bracket-determined |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
317 close-bracket-determined) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
318 (let* ((most-try (try-completion name (mapcar (function list) comps))) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
319 (most (if (stringp most-try) most-try (car comps))) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
320 (most-len (length most)) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
321 (determ (and (> most-len (length name)) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
322 (concat open-bracket-determined |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
323 (substring most (length name)) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
324 close-bracket-determined))) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
325 (open-bracket-prospects "{") |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
326 (close-bracket-prospects "}") |
5147 | 327 ;"-prospects" - more than one candidate |
26516
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
328 (prospects-len 0) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
329 prospects most-is-exact comp) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
330 (if (eq most-try t) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
331 (setq prospects nil) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
332 (while (and comps (< prospects-len icomplete-prospects-length)) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
333 (setq comp (substring (car comps) most-len) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
334 comps (cdr comps)) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
335 (cond ((string-equal comp "") (setq most-is-exact t)) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
336 ((member comp prospects)) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
337 (t (setq prospects (cons comp prospects) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
338 prospects-len (+ (length comp) 1 prospects-len)))))) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
339 (if prospects |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
340 (concat determ |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
341 open-bracket-prospects |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
342 (and most-is-exact ",") |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
343 (mapconcat 'identity |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
344 (sort prospects (function string-lessp)) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
345 ",") |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
346 (and comps ",...") |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
347 close-bracket-prospects) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
348 (concat determ |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
349 " [Matched" |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
350 (let ((keys (and icomplete-show-key-bindings |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
351 (commandp (intern-soft most)) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
352 (icomplete-get-keys most)))) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
353 (if keys |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
354 (concat "; " keys) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
355 "")) |
d9368f38a7b5
(icomplete-completions): Use an explicit variable
Gerd Moellmann <gerd@gnu.org>
parents:
24644
diff
changeset
|
356 "]")))))) |
5147 | 357 |
20764 | 358 (if icomplete-mode |
359 (icomplete-mode 1)) | |
360 | |
8871
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
361 ;;;_* Local emacs vars. |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
362 ;;;Local variables: |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
363 ;;;outline-layout: (-2 :) |
299cfe0a6069
Major rewrite to behave more like a minor mode.
Richard M. Stallman <rms@gnu.org>
parents:
8434
diff
changeset
|
364 ;;;End: |
5147 | 365 |
366 ;;; icomplete.el ends here |