Mercurial > emacs
annotate lisp/complete.el @ 108450:de8a1b891175
Merge from mainline.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sun, 11 Apr 2010 10:53:01 +0000 |
parents | bb307bf2e752 |
children |
rev | line source |
---|---|
15261 | 1 ;;; complete.el --- partial completion mechanism plus other goodies |
3725 | 2 |
74439 | 3 ;; Copyright (C) 1990, 1991, 1992, 1993, 1999, 2000, 2001, 2002, 2003, |
106815 | 4 ;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
3725 | 5 |
6 ;; Author: Dave Gillespie <daveg@synaptics.com> | |
22250
a77d473867b8
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
22142
diff
changeset
|
7 ;; Keywords: abbrev convenience |
107390 | 8 ;; |
3725 | 9 ;; Special thanks to Hallvard Furuseth for his many ideas and contributions. |
10 | |
11 ;; This file is part of GNU Emacs. | |
12 | |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94302
diff
changeset
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
6736
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
3725
diff
changeset
|
14 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94302
diff
changeset
|
15 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94302
diff
changeset
|
16 ;; (at your option) any later version. |
3725 | 17 |
6736
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
3725
diff
changeset
|
18 ;; GNU Emacs is distributed in the hope that it will be useful, |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
3725
diff
changeset
|
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
3725
diff
changeset
|
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
3725
diff
changeset
|
21 ;; GNU General Public License for more details. |
3725 | 22 |
6736
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
3725
diff
changeset
|
23 ;; You should have received a copy of the GNU General Public License |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94302
diff
changeset
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
3725 | 25 |
7942 | 26 ;;; Commentary: |
3725 | 27 |
28 ;; Extended completion for the Emacs minibuffer. | |
29 ;; | |
30 ;; The basic idea is that the command name or other completable text is | |
31 ;; divided into words and each word is completed separately, so that | |
32 ;; "M-x p-b" expands to "M-x print-buffer". If the entry is ambiguous | |
33 ;; each word is completed as much as possible and then the cursor is | |
34 ;; left at the first position where typing another letter will resolve | |
35 ;; the ambiguity. | |
36 ;; | |
37 ;; Word separators for this purpose are hyphen, space, and period. | |
38 ;; These would most likely occur in command names, Info menu items, | |
39 ;; and file names, respectively. But all word separators are treated | |
40 ;; alike at all times. | |
41 ;; | |
42 ;; This completion package replaces the old-style completer's key | |
43 ;; bindings for TAB, SPC, RET, and `?'. The old completer is still | |
44 ;; available on the Meta versions of those keys. If you set | |
45 ;; PC-meta-flag to nil, the old completion keys will be left alone | |
46 ;; and the partial completer will use the Meta versions of the keys. | |
47 | |
48 | |
22142 | 49 ;; Usage: M-x partial-completion-mode. During completable minibuffer entry, |
3725 | 50 ;; |
51 ;; TAB means to do a partial completion; | |
52 ;; SPC means to do a partial complete-word; | |
53 ;; RET means to do a partial complete-and-exit; | |
54 ;; ? means to do a partial completion-help. | |
55 ;; | |
56 ;; If you set PC-meta-flag to nil, then TAB, SPC, RET, and ? perform | |
57 ;; original Emacs completions, and M-TAB etc. do partial completion. | |
58 ;; To do this, put the command, | |
59 ;; | |
60 ;; (setq PC-meta-flag nil) | |
61 ;; | |
62 ;; in your .emacs file. To load partial completion automatically, put | |
63 ;; | |
22142 | 64 ;; (partial-completion-mode t) |
3725 | 65 ;; |
66 ;; in your .emacs file, too. Things will be faster if you byte-compile | |
67 ;; this file when you install it. | |
68 ;; | |
69 ;; As an extra feature, in cases where RET would not normally | |
70 ;; complete (such as `C-x b'), the M-RET key will always do a partial | |
71 ;; complete-and-exit. Thus `C-x b f.c RET' will select or create a | |
72 ;; buffer called "f.c", but `C-x b f.c M-RET' will select the existing | |
73 ;; buffer whose name matches that pattern (perhaps "filing.c"). | |
74 ;; (PC-meta-flag does not affect this behavior; M-RET used to be | |
75 ;; undefined in this situation.) | |
76 ;; | |
77 ;; The regular M-TAB (lisp-complete-symbol) command also supports | |
78 ;; partial completion in this package. | |
79 | |
80 ;; In addition, this package includes a feature for accessing include | |
81 ;; files. For example, `C-x C-f <sys/time.h> RET' reads the file | |
82 ;; /usr/include/sys/time.h. The variable PC-include-file-path is a | |
83 ;; list of directories in which to search for include files. Completion | |
84 ;; is supported in include file names. | |
85 | |
86 | |
7942 | 87 ;;; Code: |
3725 | 88 |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
89 (defgroup partial-completion nil |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
90 "Partial Completion of items." |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
91 :prefix "pc-" |
22250
a77d473867b8
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
22142
diff
changeset
|
92 :group 'minibuffer |
a77d473867b8
*** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents:
22142
diff
changeset
|
93 :group 'convenience) |
3725 | 94 |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
95 (defcustom PC-first-char 'find-file |
69309
f0678aafb24e
(PC-expand-many-files): Try be more careful when parsing the shell's output.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68651
diff
changeset
|
96 "Control how the first character of a string is to be interpreted. |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
97 If nil, the first character of a string is not taken literally if it is a word |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
98 delimiter, so that \".e\" matches \"*.e*\". |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
99 If t, the first character of a string is always taken literally even if it is a |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
100 word delimiter, so that \".e\" matches \".e*\". |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
101 If non-nil and non-t, the first character is taken literally only for file name |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
102 completion." |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
103 :type '(choice (const :tag "delimiter" nil) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
104 (const :tag "literal" t) |
22570
6cfe82c80677
(PC-first-char): Use `other' widget type.
Andreas Schwab <schwab@suse.de>
parents:
22250
diff
changeset
|
105 (other :tag "find-file" find-file)) |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
106 :group 'partial-completion) |
3725 | 107 |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
108 (defcustom PC-meta-flag t |
69309
f0678aafb24e
(PC-expand-many-files): Try be more careful when parsing the shell's output.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68651
diff
changeset
|
109 "If non-nil, TAB means PC completion and M-TAB means normal completion. |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
110 Otherwise, TAB means normal completion and M-TAB means Partial Completion." |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
111 :type 'boolean |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
112 :group 'partial-completion) |
3725 | 113 |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
114 (defcustom PC-word-delimiters "-_. " |
69309
f0678aafb24e
(PC-expand-many-files): Try be more careful when parsing the shell's output.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68651
diff
changeset
|
115 "A string of characters treated as word delimiters for completion. |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
116 Some arcane rules: |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
117 If `]' is in this string, it must come first. |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
118 If `^' is in this string, it must not come first. |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
119 If `-' is in this string, it must come first or right after `]'. |
60920
242e5edee3ce
* complete.el, thumbs.el: Replace `legal' with `valid'.
Werner LEMBERG <wl@gnu.org>
parents:
53258
diff
changeset
|
120 In other words, if S is this string, then `[S]' must be a valid Emacs regular |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
121 expression (not containing character ranges like `a-z')." |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
122 :type 'string |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
123 :group 'partial-completion) |
3725 | 124 |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
125 (defcustom PC-include-file-path '("/usr/include" "/usr/local/include") |
69309
f0678aafb24e
(PC-expand-many-files): Try be more careful when parsing the shell's output.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68651
diff
changeset
|
126 "A list of directories in which to look for include files. |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
127 If nil, means use the colon-separated path in the variable $INCPATH instead." |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
128 :type '(repeat directory) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
129 :group 'partial-completion) |
3725 | 130 |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
131 (defcustom PC-disable-includes nil |
69309
f0678aafb24e
(PC-expand-many-files): Try be more careful when parsing the shell's output.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68651
diff
changeset
|
132 "If non-nil, include-file support in \\[find-file] is disabled." |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
133 :type 'boolean |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
134 :group 'partial-completion) |
3725 | 135 |
136 (defvar PC-default-bindings t | |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
137 "If non-nil, default partial completion key bindings are suppressed.") |
29674
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
138 |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
139 (defvar PC-env-vars-alist nil |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
140 "A list of the environment variable names and values.") |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
141 |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
142 |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
143 (defun PC-bindings (bind) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
144 (let ((completion-map minibuffer-local-completion-map) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
145 (must-match-map minibuffer-local-must-match-map)) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
146 (cond ((not bind) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
147 ;; These bindings are the default bindings. It would be better to |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
148 ;; restore the previous bindings. |
76389
dea4a6c39682
(PC-bindings): Rebind M-TAB in read-expression-map.
Chong Yidong <cyd@stupidchicken.com>
parents:
76378
diff
changeset
|
149 (define-key read-expression-map "\e\t" 'lisp-complete-symbol) |
dea4a6c39682
(PC-bindings): Rebind M-TAB in read-expression-map.
Chong Yidong <cyd@stupidchicken.com>
parents:
76378
diff
changeset
|
150 |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
151 (define-key completion-map "\t" 'minibuffer-complete) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
152 (define-key completion-map " " 'minibuffer-complete-word) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
153 (define-key completion-map "?" 'minibuffer-completion-help) |
3725 | 154 |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
155 (define-key must-match-map "\r" 'minibuffer-complete-and-exit) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
156 (define-key must-match-map "\n" 'minibuffer-complete-and-exit) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
157 |
76378
7722d7feb5cc
(PC-bindings): Remap lisp-complete-symbol to
Kim F. Storm <storm@cua.dk>
parents:
76375
diff
changeset
|
158 (define-key global-map [remap lisp-complete-symbol] nil)) |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
159 (PC-default-bindings |
76389
dea4a6c39682
(PC-bindings): Rebind M-TAB in read-expression-map.
Chong Yidong <cyd@stupidchicken.com>
parents:
76378
diff
changeset
|
160 (define-key read-expression-map "\e\t" 'PC-lisp-complete-symbol) |
dea4a6c39682
(PC-bindings): Rebind M-TAB in read-expression-map.
Chong Yidong <cyd@stupidchicken.com>
parents:
76378
diff
changeset
|
161 |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
162 (define-key completion-map "\t" 'PC-complete) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
163 (define-key completion-map " " 'PC-complete-word) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
164 (define-key completion-map "?" 'PC-completion-help) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
165 |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
166 (define-key completion-map "\e\t" 'PC-complete) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
167 (define-key completion-map "\e " 'PC-complete-word) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
168 (define-key completion-map "\e\r" 'PC-force-complete-and-exit) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
169 (define-key completion-map "\e\n" 'PC-force-complete-and-exit) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
170 (define-key completion-map "\e?" 'PC-completion-help) |
3725 | 171 |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
172 (define-key must-match-map "\r" 'PC-complete-and-exit) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
173 (define-key must-match-map "\n" 'PC-complete-and-exit) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
174 |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
175 (define-key must-match-map "\e\r" 'PC-complete-and-exit) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
176 (define-key must-match-map "\e\n" 'PC-complete-and-exit) |
3725 | 177 |
76378
7722d7feb5cc
(PC-bindings): Remap lisp-complete-symbol to
Kim F. Storm <storm@cua.dk>
parents:
76375
diff
changeset
|
178 (define-key global-map [remap lisp-complete-symbol] 'PC-lisp-complete-symbol))))) |
3725 | 179 |
76774
a98404fc2d91
(PC-do-completion-end): New variable.
Glenn Morris <rgm@gnu.org>
parents:
76756
diff
changeset
|
180 (defvar PC-do-completion-end nil |
a98404fc2d91
(PC-do-completion-end): New variable.
Glenn Morris <rgm@gnu.org>
parents:
76756
diff
changeset
|
181 "Internal variable used by `PC-do-completion'.") |
a98404fc2d91
(PC-do-completion-end): New variable.
Glenn Morris <rgm@gnu.org>
parents:
76756
diff
changeset
|
182 |
77211
43c40e825164
(PC-goto-end, PC-do-completion-end): Make buffer-local.
Glenn Morris <rgm@gnu.org>
parents:
77208
diff
changeset
|
183 (make-variable-buffer-local 'PC-do-completion-end) |
43c40e825164
(PC-goto-end, PC-do-completion-end): Make buffer-local.
Glenn Morris <rgm@gnu.org>
parents:
77208
diff
changeset
|
184 |
77208 | 185 (defvar PC-goto-end nil |
186 "Internal variable set in `PC-do-completion', used in | |
187 `choose-completion-string-functions'.") | |
188 | |
77211
43c40e825164
(PC-goto-end, PC-do-completion-end): Make buffer-local.
Glenn Morris <rgm@gnu.org>
parents:
77208
diff
changeset
|
189 (make-variable-buffer-local 'PC-goto-end) |
43c40e825164
(PC-goto-end, PC-do-completion-end): Make buffer-local.
Glenn Morris <rgm@gnu.org>
parents:
77208
diff
changeset
|
190 |
31971
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
191 ;;;###autoload |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
192 (define-minor-mode partial-completion-mode |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
193 "Toggle Partial Completion mode. |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
194 With prefix ARG, turn Partial Completion mode on if ARG is positive. |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
195 |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
196 When Partial Completion mode is enabled, TAB (or M-TAB if `PC-meta-flag' is |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
197 nil) is enhanced so that if some string is divided into words and each word is |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
198 delimited by a character in `PC-word-delimiters', partial words are completed |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
199 as much as possible and `*' characters are treated likewise in file names. |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
200 |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
201 For example, M-x p-c-m expands to M-x partial-completion-mode since no other |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
202 command begins with that sequence of characters, and |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
203 \\[find-file] f_b.c TAB might complete to foo_bar.c if that file existed and no |
71436
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
204 other file in that directory begins with that sequence of characters. |
31971
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
205 |
36033
0a150990aa8c
(partial-completion-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
33183
diff
changeset
|
206 Unless `PC-disable-includes' is non-nil, the `<...>' sequence is interpreted |
31971
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
207 specially in \\[find-file]. For example, |
36033
0a150990aa8c
(partial-completion-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
33183
diff
changeset
|
208 \\[find-file] <sys/time.h> RET finds the file `/usr/include/sys/time.h'. |
67008
13e3867c55fb
(partial-completion-mode): Mention completion-auto-help in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
209 See also the variable `PC-include-file-path'. |
13e3867c55fb
(partial-completion-mode): Mention completion-auto-help in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
210 |
13e3867c55fb
(partial-completion-mode): Mention completion-auto-help in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
64762
diff
changeset
|
211 Partial Completion mode extends the meaning of `completion-auto-help' (which |
67596
b5e49d33eeef
(partial-completion-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
67161
diff
changeset
|
212 see), so that if it is neither nil nor t, Emacs shows the `*Completions*' |
b5e49d33eeef
(partial-completion-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
67161
diff
changeset
|
213 buffer only on the second attempt to complete. That is, if TAB finds nothing |
b5e49d33eeef
(partial-completion-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
67161
diff
changeset
|
214 to complete, the first TAB just says \"Next char not unique\" and the |
67622
bd00b5fc4e4d
(PC-do-completion): Remove `(equal (point) beg)' to
Juri Linkov <juri@jurta.org>
parents:
67596
diff
changeset
|
215 second TAB brings up the `*Completions*' buffer." |
33183
1988cb3ecd2f
(partial-completion-mode): Drop unneeded positional args.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31971
diff
changeset
|
216 :global t :group 'partial-completion |
31971
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
217 ;; Deal with key bindings... |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
218 (PC-bindings partial-completion-mode) |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
219 ;; Deal with include file feature... |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
220 (cond ((not partial-completion-mode) |
67161
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
221 (remove-hook 'find-file-not-found-functions 'PC-look-for-include-file)) |
31971
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
222 ((not PC-disable-includes) |
67161
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
223 (add-hook 'find-file-not-found-functions 'PC-look-for-include-file))) |
70076
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
224 ;; Adjust the completion selection in *Completion* buffers to the way |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
225 ;; we work. The default minibuffer completion code only completes the |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
226 ;; text before point and leaves the text after point alone (new in |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
227 ;; Emacs-22). In contrast we use the whole text and we even sometimes |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
228 ;; move point to a place before EOB, to indicate the first position where |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
229 ;; there's a difference, so when the user uses choose-completion, we have |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
230 ;; to trick choose-completion into replacing the whole minibuffer text |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
231 ;; rather than only the text before point. --Stef |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
232 (funcall |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
233 (if partial-completion-mode 'add-hook 'remove-hook) |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
234 'choose-completion-string-functions |
105601
68686d39c93a
Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
101614
diff
changeset
|
235 (lambda (choice buffer &rest ignored) |
77208 | 236 ;; When completing M-: (lisp- ) with point before the ), it is |
237 ;; not appropriate to go to point-max (unlike the filename case). | |
238 (if (and (not PC-goto-end) | |
105601
68686d39c93a
Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
101614
diff
changeset
|
239 (minibufferp buffer)) |
77208 | 240 (goto-char (point-max)) |
76774
a98404fc2d91
(PC-do-completion-end): New variable.
Glenn Morris <rgm@gnu.org>
parents:
76756
diff
changeset
|
241 ;; Need a similar hack for the non-minibuffer-case -- gm. |
76787
960eefe0c8c4
(partial-completion-mode): Set PC-do-completion-end to nil after use.
Glenn Morris <rgm@gnu.org>
parents:
76774
diff
changeset
|
242 (when PC-do-completion-end |
960eefe0c8c4
(partial-completion-mode): Set PC-do-completion-end to nil after use.
Glenn Morris <rgm@gnu.org>
parents:
76774
diff
changeset
|
243 (goto-char PC-do-completion-end) |
960eefe0c8c4
(partial-completion-mode): Set PC-do-completion-end to nil after use.
Glenn Morris <rgm@gnu.org>
parents:
76774
diff
changeset
|
244 (setq PC-do-completion-end nil))) |
77208 | 245 (setq PC-goto-end nil) |
71517
983727db2901
(partial-completion-mode): In lambda for
Juri Linkov <juri@jurta.org>
parents:
71436
diff
changeset
|
246 nil)) |
70076
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
247 ;; Build the env-completion and mapping table. |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
248 (when (and partial-completion-mode (null PC-env-vars-alist)) |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
249 (setq PC-env-vars-alist |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
250 (mapcar (lambda (string) |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
251 (let ((d (string-match "=" string))) |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
252 (cons (concat "$" (substring string 0 d)) |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
253 (and d (substring string (1+ d)))))) |
10e0b8ee9993
(partial-completion-mode): Use 'choose-completion-string-functions to make
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
69309
diff
changeset
|
254 process-environment)))) |
31971
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
255 |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
256 |
3725 | 257 (defun PC-complete () |
258 "Like minibuffer-complete, but allows \"b--di\"-style abbreviations. | |
259 For example, \"M-x b--di\" would match `byte-recompile-directory', or any | |
260 name which consists of three or more words, the first beginning with \"b\" | |
261 and the third beginning with \"di\". | |
262 | |
263 The pattern \"b--d\" is ambiguous for `byte-recompile-directory' and | |
264 `beginning-of-defun', so this would produce a list of completions | |
265 just like when normal Emacs completions are ambiguous. | |
266 | |
267 Word-delimiters for the purposes of Partial Completion are \"-\", \"_\", | |
268 \".\", and SPC." | |
269 (interactive) | |
270 (if (PC-was-meta-key) | |
271 (minibuffer-complete) | |
15802
1595df9ed1e8
(PC-complete): When command is repeated,
Richard M. Stallman <rms@gnu.org>
parents:
15261
diff
changeset
|
272 ;; If the previous command was not this one, |
1595df9ed1e8
(PC-complete): When command is repeated,
Richard M. Stallman <rms@gnu.org>
parents:
15261
diff
changeset
|
273 ;; never scroll, always retry completion. |
1595df9ed1e8
(PC-complete): When command is repeated,
Richard M. Stallman <rms@gnu.org>
parents:
15261
diff
changeset
|
274 (or (eq last-command this-command) |
1595df9ed1e8
(PC-complete): When command is repeated,
Richard M. Stallman <rms@gnu.org>
parents:
15261
diff
changeset
|
275 (setq minibuffer-scroll-window nil)) |
1595df9ed1e8
(PC-complete): When command is repeated,
Richard M. Stallman <rms@gnu.org>
parents:
15261
diff
changeset
|
276 (let ((window minibuffer-scroll-window)) |
1595df9ed1e8
(PC-complete): When command is repeated,
Richard M. Stallman <rms@gnu.org>
parents:
15261
diff
changeset
|
277 ;; If there's a fresh completion window with a live buffer, |
1595df9ed1e8
(PC-complete): When command is repeated,
Richard M. Stallman <rms@gnu.org>
parents:
15261
diff
changeset
|
278 ;; and this command is repeated, scroll that window. |
1595df9ed1e8
(PC-complete): When command is repeated,
Richard M. Stallman <rms@gnu.org>
parents:
15261
diff
changeset
|
279 (if (and window (window-buffer window) |
1595df9ed1e8
(PC-complete): When command is repeated,
Richard M. Stallman <rms@gnu.org>
parents:
15261
diff
changeset
|
280 (buffer-name (window-buffer window))) |
67161
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
281 (with-current-buffer (window-buffer window) |
15802
1595df9ed1e8
(PC-complete): When command is repeated,
Richard M. Stallman <rms@gnu.org>
parents:
15261
diff
changeset
|
282 (if (pos-visible-in-window-p (point-max) window) |
1595df9ed1e8
(PC-complete): When command is repeated,
Richard M. Stallman <rms@gnu.org>
parents:
15261
diff
changeset
|
283 (set-window-start window (point-min) nil) |
1595df9ed1e8
(PC-complete): When command is repeated,
Richard M. Stallman <rms@gnu.org>
parents:
15261
diff
changeset
|
284 (scroll-other-window))) |
1595df9ed1e8
(PC-complete): When command is repeated,
Richard M. Stallman <rms@gnu.org>
parents:
15261
diff
changeset
|
285 (PC-do-completion nil))))) |
3725 | 286 |
287 | |
288 (defun PC-complete-word () | |
289 "Like `minibuffer-complete-word', but allows \"b--di\"-style abbreviations. | |
290 See `PC-complete' for details. | |
291 This can be bound to other keys, like `-' and `.', if you wish." | |
292 (interactive) | |
293 (if (eq (PC-was-meta-key) PC-meta-flag) | |
101010
4efc7ca085ce
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
294 (if (eq last-command-event ? ) |
3725 | 295 (minibuffer-complete-word) |
296 (self-insert-command 1)) | |
297 (self-insert-command 1) | |
298 (if (eobp) | |
299 (PC-do-completion 'word)))) | |
300 | |
301 | |
302 (defun PC-complete-space () | |
303 "Like `minibuffer-complete-word', but allows \"b--di\"-style abbreviations. | |
304 See `PC-complete' for details. | |
305 This is suitable for binding to other keys which should act just like SPC." | |
306 (interactive) | |
307 (if (eq (PC-was-meta-key) PC-meta-flag) | |
308 (minibuffer-complete-word) | |
309 (insert " ") | |
310 (if (eobp) | |
311 (PC-do-completion 'word)))) | |
312 | |
313 | |
314 (defun PC-complete-and-exit () | |
315 "Like `minibuffer-complete-and-exit', but allows \"b--di\"-style abbreviations. | |
316 See `PC-complete' for details." | |
317 (interactive) | |
318 (if (eq (PC-was-meta-key) PC-meta-flag) | |
319 (minibuffer-complete-and-exit) | |
320 (PC-do-complete-and-exit))) | |
321 | |
322 (defun PC-force-complete-and-exit () | |
323 "Like `minibuffer-complete-and-exit', but allows \"b--di\"-style abbreviations. | |
324 See `PC-complete' for details." | |
325 (interactive) | |
326 (let ((minibuffer-completion-confirm nil)) | |
327 (PC-do-complete-and-exit))) | |
328 | |
329 (defun PC-do-complete-and-exit () | |
81708
d71be1e37321
(PC-do-complete-and-exit): Add support for the new
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81678
diff
changeset
|
330 (cond |
d71be1e37321
(PC-do-complete-and-exit): Add support for the new
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81678
diff
changeset
|
331 ((= (point-max) (minibuffer-prompt-end)) |
d71be1e37321
(PC-do-complete-and-exit): Add support for the new
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81678
diff
changeset
|
332 ;; Duplicate the "bug" that Info-menu relies on... |
d71be1e37321
(PC-do-complete-and-exit): Add support for the new
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81678
diff
changeset
|
333 (exit-minibuffer)) |
100016
92d948bc8621
(PC-do-complete-and-exit): Synch to 2008-11-24 change to
Chong Yidong <cyd@stupidchicken.com>
parents:
98091
diff
changeset
|
334 ((eq minibuffer-completion-confirm 'confirm) |
81708
d71be1e37321
(PC-do-complete-and-exit): Add support for the new
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81678
diff
changeset
|
335 (if (or (eq last-command this-command) |
d71be1e37321
(PC-do-complete-and-exit): Add support for the new
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81678
diff
changeset
|
336 (test-completion (field-string) |
d71be1e37321
(PC-do-complete-and-exit): Add support for the new
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81678
diff
changeset
|
337 minibuffer-completion-table |
d71be1e37321
(PC-do-complete-and-exit): Add support for the new
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81678
diff
changeset
|
338 minibuffer-completion-predicate)) |
d71be1e37321
(PC-do-complete-and-exit): Add support for the new
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81678
diff
changeset
|
339 (exit-minibuffer) |
d71be1e37321
(PC-do-complete-and-exit): Add support for the new
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81678
diff
changeset
|
340 (PC-temp-minibuffer-message " [Confirm]"))) |
100016
92d948bc8621
(PC-do-complete-and-exit): Synch to 2008-11-24 change to
Chong Yidong <cyd@stupidchicken.com>
parents:
98091
diff
changeset
|
341 ((eq minibuffer-completion-confirm 'confirm-after-completion) |
92d948bc8621
(PC-do-complete-and-exit): Synch to 2008-11-24 change to
Chong Yidong <cyd@stupidchicken.com>
parents:
98091
diff
changeset
|
342 ;; Similar to the above, but only if trying to exit immediately |
92d948bc8621
(PC-do-complete-and-exit): Synch to 2008-11-24 change to
Chong Yidong <cyd@stupidchicken.com>
parents:
98091
diff
changeset
|
343 ;; after typing TAB (this catches most minibuffer typos). |
100051
172ab771edf9
(PC-do-complete-and-exit): Use minibuffer-confirm-exit-commands.
Chong Yidong <cyd@stupidchicken.com>
parents:
100016
diff
changeset
|
344 (if (and (memq last-command minibuffer-confirm-exit-commands) |
100016
92d948bc8621
(PC-do-complete-and-exit): Synch to 2008-11-24 change to
Chong Yidong <cyd@stupidchicken.com>
parents:
98091
diff
changeset
|
345 (not (test-completion (field-string) |
92d948bc8621
(PC-do-complete-and-exit): Synch to 2008-11-24 change to
Chong Yidong <cyd@stupidchicken.com>
parents:
98091
diff
changeset
|
346 minibuffer-completion-table |
92d948bc8621
(PC-do-complete-and-exit): Synch to 2008-11-24 change to
Chong Yidong <cyd@stupidchicken.com>
parents:
98091
diff
changeset
|
347 minibuffer-completion-predicate))) |
92d948bc8621
(PC-do-complete-and-exit): Synch to 2008-11-24 change to
Chong Yidong <cyd@stupidchicken.com>
parents:
98091
diff
changeset
|
348 (PC-temp-minibuffer-message " [Confirm]") |
92d948bc8621
(PC-do-complete-and-exit): Synch to 2008-11-24 change to
Chong Yidong <cyd@stupidchicken.com>
parents:
98091
diff
changeset
|
349 (exit-minibuffer))) |
81708
d71be1e37321
(PC-do-complete-and-exit): Add support for the new
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81678
diff
changeset
|
350 (t |
3725 | 351 (let ((flag (PC-do-completion 'exit))) |
352 (and flag | |
353 (if (or (eq flag 'complete) | |
354 (not minibuffer-completion-confirm)) | |
355 (exit-minibuffer) | |
81708
d71be1e37321
(PC-do-complete-and-exit): Add support for the new
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
81678
diff
changeset
|
356 (PC-temp-minibuffer-message " [Confirm]"))))))) |
3725 | 357 |
358 | |
359 (defun PC-completion-help () | |
360 "Like `minibuffer-completion-help', but allows \"b--di\"-style abbreviations. | |
361 See `PC-complete' for details." | |
362 (interactive) | |
363 (if (eq (PC-was-meta-key) PC-meta-flag) | |
364 (minibuffer-completion-help) | |
365 (PC-do-completion 'help))) | |
366 | |
367 (defun PC-was-meta-key () | |
368 (or (/= (length (this-command-keys)) 1) | |
369 (let ((key (aref (this-command-keys) 0))) | |
370 (if (integerp key) | |
371 (>= key 128) | |
372 (not (null (memq 'meta (event-modifiers key)))))))) | |
373 | |
374 | |
375 (defvar PC-ignored-extensions 'empty-cache) | |
376 (defvar PC-delims 'empty-cache) | |
377 (defvar PC-ignored-regexp nil) | |
378 (defvar PC-word-failed-flag nil) | |
379 (defvar PC-delim-regex nil) | |
380 (defvar PC-ndelims-regex nil) | |
381 (defvar PC-delims-list nil) | |
382 | |
14765
844686eabff0
(PC-completion-as-file-name-predicate):
Richard M. Stallman <rms@gnu.org>
parents:
14759
diff
changeset
|
383 (defvar PC-completion-as-file-name-predicate |
67161
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
384 (lambda () minibuffer-completing-file-name) |
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
385 "A function testing whether a minibuffer completion now will work filename-style. |
14765
844686eabff0
(PC-completion-as-file-name-predicate):
Richard M. Stallman <rms@gnu.org>
parents:
14759
diff
changeset
|
386 The function takes no arguments, and typically looks at the value |
844686eabff0
(PC-completion-as-file-name-predicate):
Richard M. Stallman <rms@gnu.org>
parents:
14759
diff
changeset
|
387 of `minibuffer-completion-table' and the minibuffer contents.") |
14759
f93ed65c0584
(PC-do-completion-filename-completers): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
388 |
71436
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
389 ;; Returns the sequence of non-delimiter characters that follow regexp in string. |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
390 (defun PC-chunk-after (string regexp) |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
391 (if (not (string-match regexp string)) |
87096
a99a2e8bc21e
Fix possibly buggy calls to `message'.
Deepak Goel <deego@gnufans.org>
parents:
85543
diff
changeset
|
392 (let ((message "String %s didn't match regexp %s")) |
a99a2e8bc21e
Fix possibly buggy calls to `message'.
Deepak Goel <deego@gnufans.org>
parents:
85543
diff
changeset
|
393 (message message string regexp) |
a99a2e8bc21e
Fix possibly buggy calls to `message'.
Deepak Goel <deego@gnufans.org>
parents:
85543
diff
changeset
|
394 (error message string regexp))) |
71436
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
395 (let ((result (substring string (match-end 0)))) |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
396 ;; result may contain multiple chunks |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
397 (if (string-match PC-delim-regex result) |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
398 (setq result (substring result 0 (match-beginning 0)))) |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
399 result)) |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
400 |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
401 (defun test-completion-ignore-case (str table pred) |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
402 "Like `test-completion', but ignores case when possible." |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
403 ;; Binding completion-ignore-case to nil ensures, for compatibility with |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
404 ;; standard completion, that the return value is exactly one of the |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
405 ;; possibilities. Do this binding only if pred is nil, out of paranoia; |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
406 ;; perhaps it is safe even if pred is non-nil. |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
407 (if pred |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
408 (test-completion str table pred) |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
409 (let ((completion-ignore-case nil)) |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
410 (test-completion str table pred)))) |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
411 |
76404
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
412 ;; The following function is an attempt to work around two problems: |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
413 |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
414 ;; (1) When complete.el was written, (try-completion "" '(("") (""))) used to |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
415 ;; return the value "". With a change from 2002-07-07 it returns t which caused |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
416 ;; `PC-lisp-complete-symbol' to fail with a "Wrong type argument: sequencep, t" |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
417 ;; error. `PC-try-completion' returns STRING in this case. |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
418 |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
419 ;; (2) (try-completion "" '((""))) returned t before the above-mentioned change. |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
420 ;; Since `PC-chop-word' operates on the return value of `try-completion' this |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
421 ;; case might have provoked a similar error as in (1). `PC-try-completion' |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
422 ;; returns "" instead. I don't know whether this is a real problem though. |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
423 |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
424 ;; Since `PC-try-completion' is not a guaranteed to fix these bugs reliably, you |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
425 ;; should try to look at the following discussions when you encounter problems: |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
426 ;; - emacs-pretest-bug ("Partial Completion" starting 2007-02-23), |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
427 ;; - emacs-devel ("[address-of-OP: Partial completion]" starting 2007-02-24), |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
428 ;; - emacs-devel ("[address-of-OP: EVAL and mouse selection in *Completions*]" |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
429 ;; starting 2007-03-05). |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
430 (defun PC-try-completion (string alist &optional predicate) |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
431 "Like `try-completion' but return STRING instead of t." |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
432 (let ((result (try-completion string alist predicate))) |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
433 (if (eq result t) string result))) |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
434 |
77208 | 435 ;; TODO document MODE magic... |
436 (defun PC-do-completion (&optional mode beg end goto-end) | |
437 "Internal function to do the work of partial completion. | |
438 Text to be completed lies between BEG and END. Normally when | |
439 replacing text in the minibuffer, this function replaces up to | |
440 point-max (as is appropriate for completing a file name). If | |
441 GOTO-END is non-nil, however, it instead replaces up to END." | |
26341
6063383b77d5
(PC-do-completion): Use minibuffer-prompt-end to
Gerd Moellmann <gerd@gnu.org>
parents:
25207
diff
changeset
|
442 (or beg (setq beg (minibuffer-prompt-end))) |
3725 | 443 (or end (setq end (point-max))) |
81678
97a40a986c47
(partial-completion-mode): Remove advice of read-file-name-internal.
Richard M. Stallman <rms@gnu.org>
parents:
81312
diff
changeset
|
444 (let* ((table (if (eq minibuffer-completion-table 'read-file-name-internal) |
97a40a986c47
(partial-completion-mode): Remove advice of read-file-name-internal.
Richard M. Stallman <rms@gnu.org>
parents:
81312
diff
changeset
|
445 'PC-read-file-name-internal |
97a40a986c47
(partial-completion-mode): Remove advice of read-file-name-internal.
Richard M. Stallman <rms@gnu.org>
parents:
81312
diff
changeset
|
446 minibuffer-completion-table)) |
3725 | 447 (pred minibuffer-completion-predicate) |
14765
844686eabff0
(PC-completion-as-file-name-predicate):
Richard M. Stallman <rms@gnu.org>
parents:
14759
diff
changeset
|
448 (filename (funcall PC-completion-as-file-name-predicate)) |
76756
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
449 (dirname nil) ; non-nil only if a filename is being completed |
76439
2a096eef08d4
(PC-do-completion): Bind dirlength to nil to avoid
Martin Rudalics <rudalics@gmx.at>
parents:
76406
diff
changeset
|
450 ;; The following used to be "(dirlength 0)" which caused the erasure of |
2a096eef08d4
(PC-do-completion): Bind dirlength to nil to avoid
Martin Rudalics <rudalics@gmx.at>
parents:
76406
diff
changeset
|
451 ;; the entire buffer text before `point' when inserting a completion |
2a096eef08d4
(PC-do-completion): Bind dirlength to nil to avoid
Martin Rudalics <rudalics@gmx.at>
parents:
76406
diff
changeset
|
452 ;; into a buffer. |
2a096eef08d4
(PC-do-completion): Bind dirlength to nil to avoid
Martin Rudalics <rudalics@gmx.at>
parents:
76406
diff
changeset
|
453 dirlength |
3725 | 454 (str (buffer-substring beg end)) |
455 (incname (and filename (string-match "<\\([^\"<>]*\\)>?$" str))) | |
456 (ambig nil) | |
70840
b599bb78c1fc
(PC-do-completion): Undo the addition of implicit
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70076
diff
changeset
|
457 basestr origstr |
29674
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
458 env-on |
3725 | 459 regex |
460 p offset | |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
461 abbreviated |
3725 | 462 (poss nil) |
463 helpposs | |
464 (case-fold-search completion-ignore-case)) | |
465 | |
466 ;; Check if buffer contents can already be considered complete | |
467 (if (and (eq mode 'exit) | |
76336
d24bffa1374c
(PC-do-completion): If completion-ignore-case is non-nil, replace
Chong Yidong <cyd@stupidchicken.com>
parents:
75347
diff
changeset
|
468 (test-completion str table pred)) |
98091
cf3a44c40410
* complete.el (PC-do-completion): Don't replace buffer contents
Chong Yidong <cyd@stupidchicken.com>
parents:
96376
diff
changeset
|
469 'complete |
3725 | 470 |
471 ;; Do substitutions in directory names | |
472 (and filename | |
29674
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
473 (setq basestr (or (file-name-directory str) "")) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
474 (setq dirlength (length basestr)) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
475 ;; Do substitutions in directory names |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
476 (setq p (substitute-in-file-name basestr)) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
477 (not (string-equal basestr p)) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
478 (setq str (concat p (file-name-nondirectory str))) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
479 (progn |
3725 | 480 (delete-region beg end) |
29674
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
481 (insert str) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
482 (setq end (+ beg (length str))))) |
48611
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
483 |
3725 | 484 ;; Prepare various delimiter strings |
485 (or (equal PC-word-delimiters PC-delims) | |
486 (setq PC-delims PC-word-delimiters | |
487 PC-delim-regex (concat "[" PC-delims "]") | |
488 PC-ndelims-regex (concat "[^" PC-delims "]*") | |
489 PC-delims-list (append PC-delims nil))) | |
490 | |
48225
75ced2cd606e
(PC-do-completion): Make partial-completion work
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38436
diff
changeset
|
491 ;; Add wildcards if necessary |
48611
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
492 (and filename |
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
493 (let ((dir (file-name-directory str)) |
52883
cc2b636ab1db
(PC-do-completion): Do not forget to use `pred' as the default-directory
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
494 (file (file-name-nondirectory str)) |
94302
5a4d9f3d23f9
(PC-do-completion): Be more robust in the presence of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94219
diff
changeset
|
495 ;; The base dir for file-completion was passed in `predicate'. |
5a4d9f3d23f9
(PC-do-completion): Be more robust in the presence of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94219
diff
changeset
|
496 (default-directory (if (stringp pred) (expand-file-name pred) |
5a4d9f3d23f9
(PC-do-completion): Be more robust in the presence of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94219
diff
changeset
|
497 default-directory))) |
48611
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
498 (while (and (stringp dir) (not (file-directory-p dir))) |
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
499 (setq dir (directory-file-name dir)) |
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
500 (setq file (concat (replace-regexp-in-string |
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
501 PC-delim-regex "*\\&" |
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
502 (file-name-nondirectory dir)) |
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
503 "*/" file)) |
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
504 (setq dir (file-name-directory dir))) |
70840
b599bb78c1fc
(PC-do-completion): Undo the addition of implicit
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70076
diff
changeset
|
505 (setq origstr str str (concat dir file)))) |
48611
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
506 |
3725 | 507 ;; Look for wildcard expansions in directory name |
508 (and filename | |
509 (string-match "\\*.*/" str) | |
510 (let ((pat str) | |
94302
5a4d9f3d23f9
(PC-do-completion): Be more robust in the presence of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94219
diff
changeset
|
511 ;; The base dir for file-completion was passed in `predicate'. |
5a4d9f3d23f9
(PC-do-completion): Be more robust in the presence of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94219
diff
changeset
|
512 (default-directory (if (stringp pred) (expand-file-name pred) |
5a4d9f3d23f9
(PC-do-completion): Be more robust in the presence of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94219
diff
changeset
|
513 default-directory)) |
3725 | 514 files) |
515 (setq p (1+ (string-match "/[^/]*\\'" pat))) | |
516 (while (setq p (string-match PC-delim-regex pat p)) | |
517 (setq pat (concat (substring pat 0 p) | |
518 "*" | |
519 (substring pat p)) | |
520 p (+ p 2))) | |
85543
3688c29b5541
(PC-expand-many-files): Remove.
Juanma Barranquero <lekktu@gmail.com>
parents:
84347
diff
changeset
|
521 (setq files (file-expand-wildcards (concat pat "*"))) |
3725 | 522 (if files |
523 (let ((dir (file-name-directory (car files))) | |
524 (p files)) | |
525 (while (and (setq p (cdr p)) | |
526 (equal dir (file-name-directory (car p))))) | |
527 (if p | |
94302
5a4d9f3d23f9
(PC-do-completion): Be more robust in the presence of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94219
diff
changeset
|
528 (setq filename nil table nil |
5a4d9f3d23f9
(PC-do-completion): Be more robust in the presence of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94219
diff
changeset
|
529 pred (if (stringp pred) nil pred) |
3725 | 530 ambig t) |
531 (delete-region beg end) | |
532 (setq str (concat dir (file-name-nondirectory str))) | |
533 (insert str) | |
534 (setq end (+ beg (length str))))) | |
70840
b599bb78c1fc
(PC-do-completion): Undo the addition of implicit
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70076
diff
changeset
|
535 (if origstr |
81678
97a40a986c47
(partial-completion-mode): Remove advice of read-file-name-internal.
Richard M. Stallman <rms@gnu.org>
parents:
81312
diff
changeset
|
536 ;; If the wildcards were introduced by us, it's |
97a40a986c47
(partial-completion-mode): Remove advice of read-file-name-internal.
Richard M. Stallman <rms@gnu.org>
parents:
81312
diff
changeset
|
537 ;; possible that PC-read-file-name-internal can |
97a40a986c47
(partial-completion-mode): Remove advice of read-file-name-internal.
Richard M. Stallman <rms@gnu.org>
parents:
81312
diff
changeset
|
538 ;; still find matches for the original string |
97a40a986c47
(partial-completion-mode): Remove advice of read-file-name-internal.
Richard M. Stallman <rms@gnu.org>
parents:
81312
diff
changeset
|
539 ;; even if we couldn't, so remove the added |
97a40a986c47
(partial-completion-mode): Remove advice of read-file-name-internal.
Richard M. Stallman <rms@gnu.org>
parents:
81312
diff
changeset
|
540 ;; wildcards. |
70840
b599bb78c1fc
(PC-do-completion): Undo the addition of implicit
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
70076
diff
changeset
|
541 (setq str origstr) |
94302
5a4d9f3d23f9
(PC-do-completion): Be more robust in the presence of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94219
diff
changeset
|
542 (setq filename nil table nil |
5a4d9f3d23f9
(PC-do-completion): Be more robust in the presence of
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94219
diff
changeset
|
543 pred (if (stringp pred) nil pred)))))) |
3725 | 544 |
545 ;; Strip directory name if appropriate | |
546 (if filename | |
547 (if incname | |
548 (setq basestr (substring str incname) | |
549 dirname (substring str 0 incname)) | |
550 (setq basestr (file-name-nondirectory str) | |
25207
e62d2121822f
(PC-do-completion): If completing on file name,
Eli Zaretskii <eliz@gnu.org>
parents:
24624
diff
changeset
|
551 dirname (file-name-directory str)) |
e62d2121822f
(PC-do-completion): If completing on file name,
Eli Zaretskii <eliz@gnu.org>
parents:
24624
diff
changeset
|
552 ;; Make sure str is consistent with its directory and basename |
e62d2121822f
(PC-do-completion): If completing on file name,
Eli Zaretskii <eliz@gnu.org>
parents:
24624
diff
changeset
|
553 ;; parts. This is important on DOZe'NT systems when str only |
e62d2121822f
(PC-do-completion): If completing on file name,
Eli Zaretskii <eliz@gnu.org>
parents:
24624
diff
changeset
|
554 ;; includes a drive letter, like in "d:". |
e62d2121822f
(PC-do-completion): If completing on file name,
Eli Zaretskii <eliz@gnu.org>
parents:
24624
diff
changeset
|
555 (setq str (concat dirname basestr))) |
3725 | 556 (setq basestr str)) |
557 | |
558 ;; Convert search pattern to a standard regular expression | |
559 (setq regex (regexp-quote basestr) | |
560 offset (if (and (> (length regex) 0) | |
561 (not (eq (aref basestr 0) ?\*)) | |
562 (or (eq PC-first-char t) | |
563 (and PC-first-char filename))) 1 0) | |
564 p offset) | |
565 (while (setq p (string-match PC-delim-regex regex p)) | |
566 (if (eq (aref regex p) ? ) | |
567 (setq regex (concat (substring regex 0 p) | |
568 PC-ndelims-regex | |
569 PC-delim-regex | |
570 (substring regex (1+ p))) | |
571 p (+ p (length PC-ndelims-regex) (length PC-delim-regex))) | |
572 (let ((bump (if (memq (aref regex p) | |
573 '(?$ ?^ ?\. ?* ?+ ?? ?[ ?] ?\\)) | |
574 -1 0))) | |
575 (setq regex (concat (substring regex 0 (+ p bump)) | |
576 PC-ndelims-regex | |
577 (substring regex (+ p bump))) | |
578 p (+ p (length PC-ndelims-regex) 1))))) | |
579 (setq p 0) | |
580 (if filename | |
581 (while (setq p (string-match "\\\\\\*" regex p)) | |
582 (setq regex (concat (substring regex 0 p) | |
583 "[^/]*" | |
584 (substring regex (+ p 2)))))) | |
585 ;;(setq the-regex regex) | |
586 (setq regex (concat "\\`" regex)) | |
587 | |
29674
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
588 (and (> (length basestr) 0) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
589 (= (aref basestr 0) ?$) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
590 (setq env-on t |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
591 table PC-env-vars-alist |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
592 pred nil)) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
593 |
3725 | 594 ;; Find an initial list of possible completions |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
595 (unless (setq p (string-match (concat PC-delim-regex |
3725 | 596 (if filename "\\|\\*" "")) |
597 str | |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
598 (+ (length dirname) offset))) |
3725 | 599 |
600 ;; Minibuffer contains no hyphens -- simple case! | |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
601 (setq poss (all-completions (if env-on basestr str) |
3725 | 602 table |
603 pred)) | |
84347
36f09a4f9133
2007-09-06 Sean O'Rourke <sorourke@cs.ucsd.edu>
Romain Francoise <romain@orebokech.com>
parents:
82855
diff
changeset
|
604 (unless (or poss (string-equal str "")) |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
605 ;; Try completion as an abbreviation, e.g. "mvb" -> |
84347
36f09a4f9133
2007-09-06 Sean O'Rourke <sorourke@cs.ucsd.edu>
Romain Francoise <romain@orebokech.com>
parents:
82855
diff
changeset
|
606 ;; "m-v-b" -> "multiple-value-bind", but only for |
36f09a4f9133
2007-09-06 Sean O'Rourke <sorourke@cs.ucsd.edu>
Romain Francoise <romain@orebokech.com>
parents:
82855
diff
changeset
|
607 ;; non-empty strings. |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
608 (setq origstr str |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
609 abbreviated t) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
610 (if filename |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
611 (cond |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
612 ;; "alpha" or "/alpha" -> expand whole path. |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
613 ((string-match "^/?\\([A-Za-z0-9]+\\)$" str) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
614 (setq |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
615 basestr "" |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
616 p nil |
85543
3688c29b5541
(PC-expand-many-files): Remove.
Juanma Barranquero <lekktu@gmail.com>
parents:
84347
diff
changeset
|
617 poss (file-expand-wildcards |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
618 (concat "/" |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
619 (mapconcat #'list (match-string 1 str) "*/") |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
620 "*")) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
621 beg (1- beg))) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
622 ;; Alphanumeric trailer -> expand trailing file |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
623 ((string-match "^\\(.+/\\)\\([A-Za-z0-9]+\\)$" str) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
624 (setq regex (concat "\\`" |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
625 (mapconcat #'list |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
626 (match-string 2 str) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
627 "[A-Za-z0-9]*[^A-Za-z0-9]")) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
628 p (1+ (length (match-string 1 str)))))) |
93243
9ecf89702ffc
(PC-do-completion): Use regexp-quote.
Johan Bockgård <bojohan@gnu.org>
parents:
87649
diff
changeset
|
629 (setq regex (concat "\\`" (mapconcat (lambda (c) |
9ecf89702ffc
(PC-do-completion): Use regexp-quote.
Johan Bockgård <bojohan@gnu.org>
parents:
87649
diff
changeset
|
630 (regexp-quote (string c))) |
9ecf89702ffc
(PC-do-completion): Use regexp-quote.
Johan Bockgård <bojohan@gnu.org>
parents:
87649
diff
changeset
|
631 str "[^-]*-")) |
9ecf89702ffc
(PC-do-completion): Use regexp-quote.
Johan Bockgård <bojohan@gnu.org>
parents:
87649
diff
changeset
|
632 p 1)))) |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
633 (when p |
3725 | 634 ;; Use all-completions to do an initial cull. This is a big win, |
635 ;; since all-completions is written in C! | |
29674
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
636 (let ((compl (all-completions (if env-on |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
637 (file-name-nondirectory (substring str 0 p)) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
638 (substring str 0 p)) |
72310
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
639 table |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
640 pred))) |
3725 | 641 (setq p compl) |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
642 (when (and compl abbreviated) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
643 (if filename |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
644 (progn |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
645 (setq p nil) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
646 (dolist (x compl) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
647 (when (string-match regex x) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
648 (push x p))) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
649 (setq basestr (try-completion "" p))) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
650 (setq basestr (mapconcat 'list str "-")) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
651 (delete-region beg end) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
652 (setq end (+ beg (length basestr))) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
653 (insert basestr)))) |
3725 | 654 (while p |
655 (and (string-match regex (car p)) | |
16608
e2858bcbed43
(PC-do-completion): Remove text properties from
Karl Heuer <kwzh@gnu.org>
parents:
15802
diff
changeset
|
656 (progn |
e2858bcbed43
(PC-do-completion): Remove text properties from
Karl Heuer <kwzh@gnu.org>
parents:
15802
diff
changeset
|
657 (set-text-properties 0 (length (car p)) '() (car p)) |
e2858bcbed43
(PC-do-completion): Remove text properties from
Karl Heuer <kwzh@gnu.org>
parents:
15802
diff
changeset
|
658 (setq poss (cons (car p) poss)))) |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
659 (setq p (cdr p)))) |
3725 | 660 |
76375
3183de2acda4
(PC-do-completion): Delete duplicates in the list of possible completions.
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents:
76336
diff
changeset
|
661 ;; If table had duplicates, they can be here. |
3183de2acda4
(PC-do-completion): Delete duplicates in the list of possible completions.
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents:
76336
diff
changeset
|
662 (delete-dups poss) |
3183de2acda4
(PC-do-completion): Delete duplicates in the list of possible completions.
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents:
76336
diff
changeset
|
663 |
72310
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
664 ;; Handle completion-ignored-extensions |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
665 (and filename |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
666 (not (eq mode 'help)) |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
667 (let ((p2 poss)) |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
668 |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
669 ;; Build a regular expression representing the extensions list |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
670 (or (equal completion-ignored-extensions PC-ignored-extensions) |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
671 (setq PC-ignored-regexp |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
672 (concat "\\(" |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
673 (mapconcat |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
674 'regexp-quote |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
675 (setq PC-ignored-extensions |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
676 completion-ignored-extensions) |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
677 "\\|") |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
678 "\\)\\'"))) |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
679 |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
680 ;; Check if there are any without an ignored extension. |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
681 ;; Also ignore `.' and `..'. |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
682 (setq p nil) |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
683 (while p2 |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
684 (or (string-match PC-ignored-regexp (car p2)) |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
685 (string-match "\\(\\`\\|/\\)[.][.]?/?\\'" (car p2)) |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
686 (setq p (cons (car p2) p))) |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
687 (setq p2 (cdr p2))) |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
688 |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
689 ;; If there are "good" names, use them |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
690 (and p (setq poss p)))) |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
691 |
3725 | 692 ;; Now we have a list of possible completions |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
693 |
3725 | 694 (cond |
695 | |
696 ;; No valid completions found | |
697 ((null poss) | |
698 (if (and (eq mode 'word) | |
699 (not PC-word-failed-flag)) | |
700 (let ((PC-word-failed-flag t)) | |
701 (delete-backward-char 1) | |
702 (PC-do-completion 'word)) | |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
703 (when abbreviated |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
704 (delete-region beg end) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
705 (insert origstr)) |
3725 | 706 (beep) |
707 (PC-temp-minibuffer-message (if ambig | |
10164
d16e46a4e34c
(PC-do-completion): If complete but not unique,
Richard M. Stallman <rms@gnu.org>
parents:
8478
diff
changeset
|
708 " [Ambiguous dir name]" |
3725 | 709 (if (eq mode 'help) |
10164
d16e46a4e34c
(PC-do-completion): If complete but not unique,
Richard M. Stallman <rms@gnu.org>
parents:
8478
diff
changeset
|
710 " [No completions]" |
d16e46a4e34c
(PC-do-completion): If complete but not unique,
Richard M. Stallman <rms@gnu.org>
parents:
8478
diff
changeset
|
711 " [No match]"))) |
3725 | 712 nil)) |
713 | |
714 ;; More than one valid completion found | |
715 ((or (cdr (setq helpposs poss)) | |
716 (memq mode '(help word))) | |
717 | |
718 ;; Is the actual string one of the possible completions? | |
719 (setq p (and (not (eq mode 'help)) poss)) | |
720 (while (and p | |
16608
e2858bcbed43
(PC-do-completion): Remove text properties from
Karl Heuer <kwzh@gnu.org>
parents:
15802
diff
changeset
|
721 (not (string-equal (car p) basestr))) |
3725 | 722 (setq p (cdr p))) |
10164
d16e46a4e34c
(PC-do-completion): If complete but not unique,
Richard M. Stallman <rms@gnu.org>
parents:
8478
diff
changeset
|
723 (and p (null mode) |
d16e46a4e34c
(PC-do-completion): If complete but not unique,
Richard M. Stallman <rms@gnu.org>
parents:
8478
diff
changeset
|
724 (PC-temp-minibuffer-message " [Complete, but not unique]")) |
d16e46a4e34c
(PC-do-completion): If complete but not unique,
Richard M. Stallman <rms@gnu.org>
parents:
8478
diff
changeset
|
725 (if (and p |
d16e46a4e34c
(PC-do-completion): If complete but not unique,
Richard M. Stallman <rms@gnu.org>
parents:
8478
diff
changeset
|
726 (not (and (null mode) |
d16e46a4e34c
(PC-do-completion): If complete but not unique,
Richard M. Stallman <rms@gnu.org>
parents:
8478
diff
changeset
|
727 (eq this-command last-command)))) |
d16e46a4e34c
(PC-do-completion): If complete but not unique,
Richard M. Stallman <rms@gnu.org>
parents:
8478
diff
changeset
|
728 t |
3725 | 729 |
730 ;; If ambiguous, try for a partial completion | |
731 (let ((improved nil) | |
732 prefix | |
733 (pt nil) | |
734 (skip "\\`")) | |
735 | |
736 ;; Check if next few letters are the same in all cases | |
737 (if (and (not (eq mode 'help)) | |
76404
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
738 (setq prefix (PC-try-completion |
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
739 (PC-chunk-after basestr skip) poss))) |
3725 | 740 (let ((first t) i) |
741 (if (eq mode 'word) | |
742 (setq prefix (PC-chop-word prefix basestr))) | |
743 (goto-char (+ beg (length dirname))) | |
744 (while (and (progn | |
71436
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
745 (setq i 0) ; index into prefix string |
3725 | 746 (while (< i (length prefix)) |
747 (if (and (< (point) end) | |
101614
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
748 (or (eq (downcase (aref prefix i)) |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
749 (downcase (following-char))) |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
750 (and (looking-at " ") |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
751 (memq (aref prefix i) |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
752 PC-delims-list)))) |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
753 ;; replace " " by the actual delimiter |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
754 ;; or input char by prefix char |
71436
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
755 (progn |
101614
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
756 (delete-char 1) |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
757 (insert (substring prefix i (1+ i)))) |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
758 ;; insert a new character |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
759 (progn |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
760 (and filename (looking-at "\\*") |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
761 (progn |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
762 (delete-char 1) |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
763 (setq end (1- end)))) |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
764 (setq improved t) |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
765 (insert (substring prefix i (1+ i))) |
9b2f88075647
(PC-do-completion): Correct case when completion is unambiguous.
Chong Yidong <cyd@stupidchicken.com>
parents:
101010
diff
changeset
|
766 (setq end (1+ end)))) |
3725 | 767 (setq i (1+ i))) |
67622
bd00b5fc4e4d
(PC-do-completion): Remove `(equal (point) beg)' to
Juri Linkov <juri@jurta.org>
parents:
67596
diff
changeset
|
768 (or pt (setq pt (point))) |
3725 | 769 (looking-at PC-delim-regex)) |
770 (setq skip (concat skip | |
771 (regexp-quote prefix) | |
772 PC-ndelims-regex) | |
76404
51826bf423f3
(PC-try-completion): New function.
Martin Rudalics <rudalics@gmx.at>
parents:
76389
diff
changeset
|
773 prefix (PC-try-completion |
71436
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
774 (PC-chunk-after |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
775 ;; not basestr, because that does |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
776 ;; not reflect insertions |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
777 (buffer-substring |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
778 (+ beg (length dirname)) end) |
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
779 skip) |
3725 | 780 (mapcar |
72310
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
781 (lambda (x) |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
782 (when (string-match skip x) |
e45c648eb3ad
(PC-do-completion): Strip out completion-ignored-extensions
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
72243
diff
changeset
|
783 (substring x (match-end 0)))) |
3725 | 784 poss))) |
785 (or (> i 0) (> (length prefix) 0)) | |
786 (or (not (eq mode 'word)) | |
787 (and first (> (length prefix) 0) | |
788 (setq first nil | |
789 prefix (substring prefix 0 1)))))) | |
790 (goto-char (if (eq mode 'word) end | |
791 (or pt beg))))) | |
792 | |
793 (if (and (eq mode 'word) | |
794 (not PC-word-failed-flag)) | |
795 | |
796 (if improved | |
797 | |
798 ;; We changed it... would it be complete without the space? | |
100116
f2e50678d85a
(PC-do-completion): Fix leftover bug from Emacs-21 when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100051
diff
changeset
|
799 (if (test-completion (buffer-substring |
f2e50678d85a
(PC-do-completion): Fix leftover bug from Emacs-21 when
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
100051
diff
changeset
|
800 (field-beginning) (1- end)) |
76756
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
801 table pred) |
3725 | 802 (delete-region (1- end) end))) |
803 | |
804 (if improved | |
805 | |
806 ;; We changed it... enough to be complete? | |
807 (and (eq mode 'exit) | |
71436
d51a5dc58935
(PC-do-completion): Retain capitalization of user input, when possible, even
Eli Zaretskii <eliz@gnu.org>
parents:
70840
diff
changeset
|
808 (test-completion-ignore-case (field-string) table pred)) |
3725 | 809 |
810 ;; If totally ambiguous, display a list of completions | |
31971
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
811 (if (or (eq completion-auto-help t) |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
812 (and completion-auto-help |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
813 (eq last-command this-command)) |
3725 | 814 (eq mode 'help)) |
76756
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
815 (let ((prompt-end (minibuffer-prompt-end))) |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
816 (with-output-to-temp-buffer "*Completions*" |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
817 (display-completion-list (sort helpposs 'string-lessp)) |
77211
43c40e825164
(PC-goto-end, PC-do-completion-end): Make buffer-local.
Glenn Morris <rgm@gnu.org>
parents:
77208
diff
changeset
|
818 (setq PC-do-completion-end end |
43c40e825164
(PC-goto-end, PC-do-completion-end): Make buffer-local.
Glenn Morris <rgm@gnu.org>
parents:
77208
diff
changeset
|
819 PC-goto-end goto-end) |
76756
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
820 (with-current-buffer standard-output |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
821 ;; Record which part of the buffer we are completing |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
822 ;; so that choosing a completion from the list |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
823 ;; knows how much old text to replace. |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
824 ;; This was briefly nil in the non-dirname case. |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
825 ;; However, if one calls PC-lisp-complete-symbol |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
826 ;; on "(ne-f" with point on the hyphen, PC offers |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
827 ;; all completions starting with "(ne", some of |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
828 ;; which do not match the "-f" part (maybe it |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
829 ;; should not, but it does). In such cases, |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
830 ;; completion gets confused trying to figure out |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
831 ;; how much to replace, so we tell it explicitly |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
832 ;; (ie, the number of chars in the buffer before beg). |
76774
a98404fc2d91
(PC-do-completion-end): New variable.
Glenn Morris <rgm@gnu.org>
parents:
76756
diff
changeset
|
833 ;; |
a98404fc2d91
(PC-do-completion-end): New variable.
Glenn Morris <rgm@gnu.org>
parents:
76756
diff
changeset
|
834 ;; Note that choose-completion-string-functions |
a98404fc2d91
(PC-do-completion-end): New variable.
Glenn Morris <rgm@gnu.org>
parents:
76756
diff
changeset
|
835 ;; plays around with point. |
76756
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
836 (setq completion-base-size (if dirname |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
837 dirlength |
77211
43c40e825164
(PC-goto-end, PC-do-completion-end): Make buffer-local.
Glenn Morris <rgm@gnu.org>
parents:
77208
diff
changeset
|
838 (- beg prompt-end)))))) |
82855
f839eef40802
(PC-do-completion): Make RET accept a non-unique but complete
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents:
82302
diff
changeset
|
839 (PC-temp-minibuffer-message " [Next char not unique]")) |
f839eef40802
(PC-do-completion): Make RET accept a non-unique but complete
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents:
82302
diff
changeset
|
840 ;; Expansion of filenames is not reversible, |
f839eef40802
(PC-do-completion): Make RET accept a non-unique but complete
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents:
82302
diff
changeset
|
841 ;; so just keep the prefix. |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
842 (when (and abbreviated filename) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
843 (delete-region (point) end)) |
82855
f839eef40802
(PC-do-completion): Make RET accept a non-unique but complete
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents:
82302
diff
changeset
|
844 nil))))) |
3725 | 845 |
846 ;; Only one possible completion | |
847 (t | |
29674
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
848 (if (and (equal basestr (car poss)) |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
849 (not (and env-on filename)) |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
850 (not abbreviated)) |
3725 | 851 (if (null mode) |
10164
d16e46a4e34c
(PC-do-completion): If complete but not unique,
Richard M. Stallman <rms@gnu.org>
parents:
8478
diff
changeset
|
852 (PC-temp-minibuffer-message " [Sole completion]")) |
3725 | 853 (delete-region beg end) |
7792
1335cec8a016
(PC-do-completion): Clear text props from inserted text.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
854 (insert (format "%s" |
1335cec8a016
(PC-do-completion): Clear text props from inserted text.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
855 (if filename |
1335cec8a016
(PC-do-completion): Clear text props from inserted text.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
856 (substitute-in-file-name (concat dirname (car poss))) |
1335cec8a016
(PC-do-completion): Clear text props from inserted text.
Richard M. Stallman <rms@gnu.org>
parents:
7639
diff
changeset
|
857 (car poss))))) |
3725 | 858 t))))) |
859 | |
860 (defun PC-chop-word (new old) | |
861 (let ((i -1) | |
862 (j -1)) | |
863 (while (and (setq i (string-match PC-delim-regex old (1+ i))) | |
864 (setq j (string-match PC-delim-regex new (1+ j))))) | |
865 (if (and j | |
866 (or (not PC-word-failed-flag) | |
867 (setq j (string-match PC-delim-regex new (1+ j))))) | |
868 (substring new 0 (1+ j)) | |
869 new))) | |
870 | |
871 (defvar PC-not-minibuffer nil) | |
872 | |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
873 (defun PC-temp-minibuffer-message (message) |
3725 | 874 "A Lisp version of `temp_minibuffer_message' from minibuf.c." |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
875 (cond (PC-not-minibuffer |
87096
a99a2e8bc21e
Fix possibly buggy calls to `message'.
Deepak Goel <deego@gnufans.org>
parents:
85543
diff
changeset
|
876 (message "%s" message) |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
877 (sit-for 2) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
878 (message "")) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
879 ((fboundp 'temp-minibuffer-message) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
880 (temp-minibuffer-message message)) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
881 (t |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
882 (let ((point-max (point-max))) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
883 (save-excursion |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
884 (goto-char point-max) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
885 (insert message)) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
886 (let ((inhibit-quit t)) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
887 (sit-for 2) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
888 (delete-region point-max (point-max)) |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
889 (when quit-flag |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
890 (setq quit-flag nil |
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
891 unread-command-events '(7)))))))) |
3725 | 892 |
76787
960eefe0c8c4
(partial-completion-mode): Set PC-do-completion-end to nil after use.
Glenn Morris <rgm@gnu.org>
parents:
76774
diff
changeset
|
893 ;; Does not need to be buffer-local (?) because only used when one |
960eefe0c8c4
(partial-completion-mode): Set PC-do-completion-end to nil after use.
Glenn Morris <rgm@gnu.org>
parents:
76774
diff
changeset
|
894 ;; PC-l-c-s immediately follows another. |
76756
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
895 (defvar PC-lisp-complete-end nil |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
896 "Internal variable used by `PC-lisp-complete-symbol'.") |
3725 | 897 |
898 (defun PC-lisp-complete-symbol () | |
899 "Perform completion on Lisp symbol preceding point. | |
900 That symbol is compared against the symbols that exist | |
901 and any additional characters determined by what is there | |
902 are inserted. | |
903 If the symbol starts just after an open-parenthesis, | |
904 only symbols with function definitions are considered. | |
905 Otherwise, all symbols with function definitions, values | |
906 or properties are considered." | |
907 (interactive) | |
82302
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
908 (let* ((end |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
909 (save-excursion |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
910 (with-syntax-table lisp-mode-syntax-table |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
911 (skip-syntax-forward "_w") |
c0e2cbf10e3a
(PC-lisp-complete-symbol): Complete symbol around point.
Richard M. Stallman <rms@gnu.org>
parents:
82140
diff
changeset
|
912 (point)))) |
67161
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
913 (beg (save-excursion |
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
914 (with-syntax-table lisp-mode-syntax-table |
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
915 (backward-sexp 1) |
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
916 (while (= (char-syntax (following-char)) ?\') |
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
917 (forward-char 1)) |
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
918 (point)))) |
3725 | 919 (minibuffer-completion-table obarray) |
920 (minibuffer-completion-predicate | |
921 (if (eq (char-after (1- beg)) ?\() | |
922 'fboundp | |
923 (function (lambda (sym) | |
924 (or (boundp sym) (fboundp sym) | |
925 (symbol-plist sym)))))) | |
926 (PC-not-minibuffer t)) | |
76756
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
927 ;; http://lists.gnu.org/archive/html/emacs-devel/2007-03/msg01211.html |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
928 ;; |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
929 ;; This deals with cases like running PC-l-c-s on "M-: (n-f". |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
930 ;; The first call to PC-l-c-s expands this to "(ne-f", and moves |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
931 ;; point to the hyphen [1]. If one calls PC-l-c-s immediately after, |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
932 ;; then without the last-command check, one is offered all |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
933 ;; completions of "(ne", which is presumably not what one wants. |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
934 ;; |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
935 ;; This is arguably (at least, it seems to be the existing intended |
96376
c3309dba6542
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
94678
diff
changeset
|
936 ;; behavior) what one _does_ want if point has been explicitly |
76756
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
937 ;; positioned on the hyphen. Note that if PC-do-completion (qv) binds |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
938 ;; completion-base-size to nil, then completion does not replace the |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
939 ;; correct amount of text in such cases. |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
940 ;; |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
941 ;; Neither of these problems occur when using PC for filenames in the |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
942 ;; minibuffer, because in that case PC-do-completion is called without |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
943 ;; an explicit value for END, and so uses (point-max). This is fine for |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
944 ;; a filename, because the end of the filename must be at the end of |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
945 ;; the minibuffer. The same is not true for lisp symbols. |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
946 ;; |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
947 ;; [1] An alternate fix would be to not move point to the hyphen |
96376
c3309dba6542
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
94678
diff
changeset
|
948 ;; in such cases, but that would make the behavior different from |
76756
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
949 ;; that for filenames. It seems PC moves point to the site of the |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
950 ;; first difference between the possible completions. |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
951 ;; |
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
952 ;; Alternatively alternatively, maybe end should be computed in |
96376
c3309dba6542
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
94678
diff
changeset
|
953 ;; the same way as beg. That would change the behavior though. |
76756
63293afecf15
(PC-do-completion): Compute completion-base-size in
Glenn Morris <rgm@gnu.org>
parents:
76655
diff
changeset
|
954 (if (equal last-command 'PC-lisp-complete-symbol) |
77208 | 955 (PC-do-completion nil beg PC-lisp-complete-end t) |
76787
960eefe0c8c4
(partial-completion-mode): Set PC-do-completion-end to nil after use.
Glenn Morris <rgm@gnu.org>
parents:
76774
diff
changeset
|
956 (if PC-lisp-complete-end |
960eefe0c8c4
(partial-completion-mode): Set PC-do-completion-end to nil after use.
Glenn Morris <rgm@gnu.org>
parents:
76774
diff
changeset
|
957 (move-marker PC-lisp-complete-end end) |
960eefe0c8c4
(partial-completion-mode): Set PC-do-completion-end to nil after use.
Glenn Morris <rgm@gnu.org>
parents:
76774
diff
changeset
|
958 (setq PC-lisp-complete-end (copy-marker end t))) |
77208 | 959 (PC-do-completion nil beg end t)))) |
3725 | 960 |
29674
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
961 (defun PC-complete-as-file-name () |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
962 "Perform completion on file names preceding point. |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
963 Environment vars are converted to their values." |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
964 (interactive) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
965 (let* ((end (point)) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
966 (beg (if (re-search-backward "[^\\][ \t\n\"\`\'][^ \t\n\"\`\']" |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
967 (point-min) t) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
968 (+ (point) 2) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
969 (point-min))) |
81678
97a40a986c47
(partial-completion-mode): Remove advice of read-file-name-internal.
Richard M. Stallman <rms@gnu.org>
parents:
81312
diff
changeset
|
970 (minibuffer-completion-table 'PC-read-file-name-internal) |
94219
185747659a29
(PC-complete-as-file-name, PC-read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94086
diff
changeset
|
971 (minibuffer-completion-predicate nil) |
29674
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
972 (PC-not-minibuffer t)) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
973 (goto-char end) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
974 (PC-do-completion nil beg end))) |
611062a8c71e
(PC-env-vars-alist): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
29088
diff
changeset
|
975 |
67161
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
976 ;; Facilities for loading C header files. This is independent from the |
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
977 ;; main completion code. See also the variable `PC-include-file-path' |
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
978 ;; at top of this file. |
3725 | 979 |
980 (defun PC-look-for-include-file () | |
981 (if (string-match "[\"<]\\([^\"<>]*\\)[\">]?$" (buffer-file-name)) | |
982 (let ((name (substring (buffer-file-name) | |
983 (match-beginning 1) (match-end 1))) | |
984 (punc (aref (buffer-file-name) (match-beginning 0))) | |
985 (path nil) | |
986 new-buf) | |
987 (kill-buffer (current-buffer)) | |
988 (if (equal name "") | |
67161
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
989 (with-current-buffer (car (buffer-list)) |
3725 | 990 (save-excursion |
991 (beginning-of-line) | |
992 (if (looking-at | |
993 "[ \t]*#[ \t]*include[ \t]+[<\"]\\(.+\\)[>\"][ \t]*[\n/]") | |
994 (setq name (buffer-substring (match-beginning 1) | |
995 (match-end 1)) | |
996 punc (char-after (1- (match-beginning 1)))) | |
997 ;; Suggested by Frank Siebenlist: | |
998 (if (or (looking-at | |
999 "[ \t]*([ \t]*load[ \t]+\"\\([^\"]+\\)\"") | |
1000 (looking-at | |
1001 "[ \t]*([ \t]*load-library[ \t]+\"\\([^\"]+\\)\"") | |
1002 (looking-at | |
1003 "[ \t]*([ \t]*require[ \t]+'\\([^\t )]+\\)[\t )]")) | |
1004 (progn | |
1005 (setq name (buffer-substring (match-beginning 1) | |
1006 (match-end 1)) | |
1007 punc ?\< | |
1008 path load-path) | |
1009 (if (string-match "\\.elc$" name) | |
1010 (setq name (substring name 0 -1)) | |
1011 (or (string-match "\\.el$" name) | |
1012 (setq name (concat name ".el"))))) | |
1013 (error "Not on an #include line")))))) | |
29088
6dce569d0615
(PC-look-for-include-file): Use :alnum: character class.
Dave Love <fx@gnu.org>
parents:
26508
diff
changeset
|
1014 (or (string-match "\\.[[:alnum:]]+$" name) |
3725 | 1015 (setq name (concat name ".h"))) |
1016 (if (eq punc ?\<) | |
1017 (let ((path (or path (PC-include-file-path)))) | |
1018 (while (and path | |
1019 (not (file-exists-p | |
1020 (concat (file-name-as-directory (car path)) | |
1021 name)))) | |
1022 (setq path (cdr path))) | |
1023 (if path | |
1024 (setq name (concat (file-name-as-directory (car path)) name)) | |
1025 (error "No such include file: <%s>" name))) | |
67161
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
1026 (let ((dir (with-current-buffer (car (buffer-list)) |
3725 | 1027 default-directory))) |
1028 (if (file-exists-p (concat dir name)) | |
1029 (setq name (concat dir name)) | |
24624
07ae57ea2a18
Delete the wildcard expansion feature
Karl Heuer <kwzh@gnu.org>
parents:
24534
diff
changeset
|
1030 (error "No such include file: `%s'" name)))) |
3725 | 1031 (setq new-buf (get-file-buffer name)) |
1032 (if new-buf | |
1033 ;; no need to verify last-modified time for this! | |
1034 (set-buffer new-buf) | |
67161
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
1035 (set-buffer (create-file-buffer name)) |
3725 | 1036 (erase-buffer) |
1037 (insert-file-contents name t)) | |
24624
07ae57ea2a18
Delete the wildcard expansion feature
Karl Heuer <kwzh@gnu.org>
parents:
24534
diff
changeset
|
1038 ;; Returning non-nil with the new buffer current |
07ae57ea2a18
Delete the wildcard expansion feature
Karl Heuer <kwzh@gnu.org>
parents:
24534
diff
changeset
|
1039 ;; is sufficient to tell find-file to use it. |
3725 | 1040 t) |
1041 nil)) | |
1042 | |
1043 (defun PC-include-file-path () | |
1044 (or PC-include-file-path | |
1045 (let ((env (getenv "INCPATH")) | |
1046 (path nil) | |
1047 pos) | |
1048 (or env (error "No include file path specified")) | |
1049 (while (setq pos (string-match ":[^:]+$" env)) | |
1050 (setq path (cons (substring env (1+ pos)) path) | |
1051 env (substring env 0 pos))) | |
1052 path))) | |
1053 | |
67161
759b69f39057
(PC-completion-as-file-name-predicate): Use minibuffer-completing-file-name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
67008
diff
changeset
|
1054 ;; This is adapted from lib-complete.el, by Mike Williams. |
3725 | 1055 (defun PC-include-file-all-completions (file search-path &optional full) |
1056 "Return all completions for FILE in any directory on SEARCH-PATH. | |
48611
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
1057 If optional third argument FULL is non-nil, returned pathnames should be |
3725 | 1058 absolute rather than relative to some directory on the SEARCH-PATH." |
1059 (setq search-path | |
31971
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
1060 (mapcar (lambda (dir) |
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
1061 (if dir (file-name-as-directory dir) default-directory)) |
3725 | 1062 search-path)) |
1063 (if (file-name-absolute-p file) | |
1064 ;; It's an absolute file name, so don't need search-path | |
1065 (progn | |
1066 (setq file (expand-file-name file)) | |
48611
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
1067 (file-name-all-completions |
3725 | 1068 (file-name-nondirectory file) (file-name-directory file))) |
1069 (let ((subdir (file-name-directory file)) | |
1070 (ndfile (file-name-nondirectory file)) | |
1071 file-lists) | |
1072 ;; Append subdirectory part to each element of search-path | |
1073 (if subdir | |
1074 (setq search-path | |
31971
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
1075 (mapcar (lambda (dir) (concat dir subdir)) |
3725 | 1076 search-path) |
1077 file )) | |
1078 ;; Make list of completions in each directory on search-path | |
1079 (while search-path | |
1080 (let* ((dir (car search-path)) | |
1081 (subdir (if full dir subdir))) | |
1082 (if (file-directory-p dir) | |
1083 (progn | |
1084 (setq file-lists | |
48611
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
1085 (cons |
31971
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
1086 (mapcar (lambda (file) (concat subdir file)) |
48611
79a38ce36eb1
(PC-do-completion): Do not add wildcards to pattern unless filename is
Noah Friedman <friedman@splode.com>
parents:
48225
diff
changeset
|
1087 (file-name-all-completions ndfile |
3725 | 1088 (car search-path))) |
1089 file-lists)))) | |
1090 (setq search-path (cdr search-path)))) | |
1091 ;; Compress out duplicates while building complete list (slloooow!) | |
1092 (let ((sorted (sort (apply 'nconc file-lists) | |
31971
fa083a5fbf0c
(partial-completion-mode) <defcustom>: Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29674
diff
changeset
|
1093 (lambda (x y) (not (string-lessp x y))))) |
3725 | 1094 compressed) |
1095 (while sorted | |
1096 (if (equal (car sorted) (car compressed)) nil | |
1097 (setq compressed (cons (car sorted) compressed))) | |
1098 (setq sorted (cdr sorted))) | |
1099 compressed)))) | |
1100 | |
94219
185747659a29
(PC-complete-as-file-name, PC-read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94086
diff
changeset
|
1101 (defun PC-read-file-name-internal (string pred action) |
81678
97a40a986c47
(partial-completion-mode): Remove advice of read-file-name-internal.
Richard M. Stallman <rms@gnu.org>
parents:
81312
diff
changeset
|
1102 "Extend `read-file-name-internal' to handle include files. |
97a40a986c47
(partial-completion-mode): Remove advice of read-file-name-internal.
Richard M. Stallman <rms@gnu.org>
parents:
81312
diff
changeset
|
1103 This is only used by " |
97a40a986c47
(partial-completion-mode): Remove advice of read-file-name-internal.
Richard M. Stallman <rms@gnu.org>
parents:
81312
diff
changeset
|
1104 (if (string-match "<\\([^\"<>]*\\)>?\\'" string) |
97a40a986c47
(partial-completion-mode): Remove advice of read-file-name-internal.
Richard M. Stallman <rms@gnu.org>
parents:
81312
diff
changeset
|
1105 (let* ((name (match-string 1 string)) |
3725 | 1106 (str2 (substring string (match-beginning 0))) |
1107 (completion-table | |
76655
adb0ab836e5d
(read-file-name-internal): Don't add the final > if the completion is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76439
diff
changeset
|
1108 (mapcar (lambda (x) |
adb0ab836e5d
(read-file-name-internal): Don't add the final > if the completion is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
76439
diff
changeset
|
1109 (format (if (string-match "/\\'" x) "<%s" "<%s>") x)) |
3725 | 1110 (PC-include-file-all-completions |
1111 name (PC-include-file-path))))) | |
94086
4dfdf555a78e
Minor re-indent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93243
diff
changeset
|
1112 (cond |
4dfdf555a78e
Minor re-indent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93243
diff
changeset
|
1113 ((not completion-table) nil) |
4dfdf555a78e
Minor re-indent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93243
diff
changeset
|
1114 ((eq action 'lambda) (test-completion str2 completion-table nil)) |
4dfdf555a78e
Minor re-indent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93243
diff
changeset
|
1115 ((eq action nil) (PC-try-completion str2 completion-table nil)) |
4dfdf555a78e
Minor re-indent.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93243
diff
changeset
|
1116 ((eq action t) (all-completions str2 completion-table nil)))) |
94219
185747659a29
(PC-complete-as-file-name, PC-read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94086
diff
changeset
|
1117 (read-file-name-internal string pred action))) |
18981
6681f7141d2b
customise & make installation/deinstallation happen on mode command not file load.
Simon Marshall <simon@gnu.org>
parents:
17352
diff
changeset
|
1118 |
3725 | 1119 |
1120 (provide 'complete) | |
1121 | |
61042
31060527396c
(PC-read-include-file-name-internal): Use test-completion.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60920
diff
changeset
|
1122 ;; arch-tag: fc7e2768-ff44-4e22-b579-4d825b968458 |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36033
diff
changeset
|
1123 ;;; complete.el ends here |