annotate lisp/complete.el @ 8767:441af4b664ac

(yank-menu): New variable; kill-ring in menu format. (menu-bar-update-yank-menu, menu-bar-select-yank): New function.
author Karl Heuer <kwzh@gnu.org>
date Thu, 15 Sep 1994 22:16:49 +0000
parents 9d3d84a3c3fa
children d16e46a4e34c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3725
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 ;; complete.el -- partial completion mechanism plus other goodies.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3 ;; Copyright (C) 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5 ;; Author: Dave Gillespie <daveg@synaptics.com>
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 ;; Version: 2.02
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 ;; Special thanks to Hallvard Furuseth for his many ideas and contributions.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
6736
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 3725
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 3725
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 3725
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 3725
diff changeset
14 ;; any later version.
3725
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
6736
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 3725
diff changeset
16 ;; 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
17 ;; 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
18 ;; 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
19 ;; GNU General Public License for more details.
3725
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
6736
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 3725
diff changeset
21 ;; You should have received a copy of the GNU General Public License
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 3725
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 3725
diff changeset
23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
3725
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24
7942
bc5dccc5375f Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 7844
diff changeset
25 ;;; Commentary:
3725
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 ;; Extended completion for the Emacs minibuffer.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28 ;;
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 ;; The basic idea is that the command name or other completable text is
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30 ;; divided into words and each word is completed separately, so that
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 ;; "M-x p-b" expands to "M-x print-buffer". If the entry is ambiguous
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 ;; each word is completed as much as possible and then the cursor is
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 ;; left at the first position where typing another letter will resolve
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 ;; the ambiguity.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 ;;
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 ;; Word separators for this purpose are hyphen, space, and period.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 ;; These would most likely occur in command names, Info menu items,
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 ;; and file names, respectively. But all word separators are treated
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 ;; alike at all times.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40 ;;
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 ;; This completion package replaces the old-style completer's key
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 ;; bindings for TAB, SPC, RET, and `?'. The old completer is still
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 ;; available on the Meta versions of those keys. If you set
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 ;; PC-meta-flag to nil, the old completion keys will be left alone
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 ;; and the partial completer will use the Meta versions of the keys.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 ;; Usage: Load this file. Now, during completable minibuffer entry,
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 ;;
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 ;; TAB means to do a partial completion;
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 ;; SPC means to do a partial complete-word;
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52 ;; RET means to do a partial complete-and-exit;
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 ;; ? means to do a partial completion-help.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 ;;
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 ;; If you set PC-meta-flag to nil, then TAB, SPC, RET, and ? perform
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56 ;; original Emacs completions, and M-TAB etc. do partial completion.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 ;; To do this, put the command,
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 ;;
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 ;; (setq PC-meta-flag nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 ;;
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 ;; in your .emacs file. To load partial completion automatically, put
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62 ;;
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63 ;; (load "complete")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64 ;;
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 ;; in your .emacs file, too. Things will be faster if you byte-compile
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 ;; this file when you install it.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67 ;;
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68 ;; As an extra feature, in cases where RET would not normally
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69 ;; complete (such as `C-x b'), the M-RET key will always do a partial
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70 ;; complete-and-exit. Thus `C-x b f.c RET' will select or create a
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71 ;; buffer called "f.c", but `C-x b f.c M-RET' will select the existing
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
72 ;; buffer whose name matches that pattern (perhaps "filing.c").
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
73 ;; (PC-meta-flag does not affect this behavior; M-RET used to be
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74 ;; undefined in this situation.)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75 ;;
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
76 ;; The regular M-TAB (lisp-complete-symbol) command also supports
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77 ;; partial completion in this package.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
78
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
79 ;; This package also contains a wildcard feature for C-x C-f (find-file).
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80 ;; For example, `C-x C-f *.c RET' loads all .c files at once, exactly
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81 ;; as if you had typed C-x C-f separately for each file. Completion
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82 ;; is supported in connection with wildcards. Currently only the `*'
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
83 ;; wildcard character works.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
84
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85 ;; File name completion does not do partial completion of directories
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
86 ;; on the path, e.g., "/u/b/f" will not complete to "/usr/bin/foo",
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87 ;; but you can put *'s in the path to accomplish this: "/u*/b*/f".
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88 ;; Stars are required for performance reasons.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90 ;; In addition, this package includes a feature for accessing include
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91 ;; files. For example, `C-x C-f <sys/time.h> RET' reads the file
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92 ;; /usr/include/sys/time.h. The variable PC-include-file-path is a
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93 ;; list of directories in which to search for include files. Completion
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94 ;; is supported in include file names.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
95
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
96
7942
bc5dccc5375f Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 7844
diff changeset
97 ;;; Code:
3725
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
99 (defvar PC-meta-flag t
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100 "*If nil, TAB does normal Emacs completion and M-TAB does Partial Completion.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101 If t, TAB does Partial Completion and M-TAB does normal completion.")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104 (defvar PC-word-delimiters "-_. "
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
105 "*A string of characters which are to be treated as word delimiters
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
106 by the Partial Completion system.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
107
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
108 Some arcane rules: If `]' is in this string it must come first.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
109 If `^' is in this string it must NOT come first. If `-' is in this
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
110 string, it must come first or right after `]'. In other words, if
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
111 S is this string, then `[S]' must be a legal Emacs regular expression
7639
67b7d1ea7b2e Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 6736
diff changeset
112 \(not containing character ranges like `a-z').")
3725
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
114
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
115 (defvar PC-first-char 'x
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
116 "*If t, first character of a string to be completed is always taken literally.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
117 If nil, word delimiters are handled even if they appear as first character.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118 This controls whether \".e\" matches \".e*\" (t) or \"*.e*\" (nil).
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
119 If neither nil nor t, first char is literal only for filename completion.")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
121
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
122 (defvar PC-include-file-path '("/usr/include")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123 "*List of directories in which to look for include files.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124 If this is nil, uses the colon-separated path in $INCPATH instead.")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 (defvar PC-disable-wildcards nil
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128 "Set this to non-nil to disable wildcard support in \\[find-file].")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 (defvar PC-disable-includes nil
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131 "Set this to non-nil to disable include-file support in \\[find-file].")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
132
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
134 (defvar PC-default-bindings t
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135 "Set this to nil to suppress the default partial completion key bindings.")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137 (if PC-default-bindings (progn
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 (define-key minibuffer-local-completion-map "\t" 'PC-complete)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 (define-key minibuffer-local-completion-map " " 'PC-complete-word)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140 (define-key minibuffer-local-completion-map "?" 'PC-completion-help)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 (define-key minibuffer-local-completion-map "\e\t" 'PC-complete)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 (define-key minibuffer-local-completion-map "\e " 'PC-complete-word)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144 (define-key minibuffer-local-completion-map "\e\r" 'PC-force-complete-and-exit)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145 (define-key minibuffer-local-completion-map "\e\n" 'PC-force-complete-and-exit)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146 (define-key minibuffer-local-completion-map "\e?" 'PC-completion-help)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 (define-key minibuffer-local-must-match-map "\t" 'PC-complete)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149 (define-key minibuffer-local-must-match-map " " 'PC-complete-word)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
150 (define-key minibuffer-local-must-match-map "\r" 'PC-complete-and-exit)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151 (define-key minibuffer-local-must-match-map "\n" 'PC-complete-and-exit)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
152 (define-key minibuffer-local-must-match-map "?" 'PC-completion-help)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
153
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
154 (define-key minibuffer-local-must-match-map "\e\t" 'PC-complete)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155 (define-key minibuffer-local-must-match-map "\e " 'PC-complete-word)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
156 (define-key minibuffer-local-must-match-map "\e\r" 'PC-complete-and-exit)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157 (define-key minibuffer-local-must-match-map "\e\n" 'PC-complete-and-exit)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
158 (define-key minibuffer-local-must-match-map "\e?" 'PC-completion-help)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
159
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160 (define-key global-map "\e\t" 'PC-lisp-complete-symbol)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161 ))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
162
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
163
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
164 (defun PC-complete ()
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165 "Like minibuffer-complete, but allows \"b--di\"-style abbreviations.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166 For example, \"M-x b--di\" would match `byte-recompile-directory', or any
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167 name which consists of three or more words, the first beginning with \"b\"
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
168 and the third beginning with \"di\".
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
169
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170 The pattern \"b--d\" is ambiguous for `byte-recompile-directory' and
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 `beginning-of-defun', so this would produce a list of completions
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172 just like when normal Emacs completions are ambiguous.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 Word-delimiters for the purposes of Partial Completion are \"-\", \"_\",
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175 \".\", and SPC."
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176 (interactive)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177 (if (PC-was-meta-key)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
178 (minibuffer-complete)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
179 (PC-do-completion nil)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182 (defun PC-complete-word ()
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 "Like `minibuffer-complete-word', but allows \"b--di\"-style abbreviations.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 See `PC-complete' for details.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
185 This can be bound to other keys, like `-' and `.', if you wish."
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186 (interactive)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
187 (if (eq (PC-was-meta-key) PC-meta-flag)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188 (if (eq last-command-char ? )
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
189 (minibuffer-complete-word)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
190 (self-insert-command 1))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191 (self-insert-command 1)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192 (if (eobp)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
193 (PC-do-completion 'word))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
194
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196 (defun PC-complete-space ()
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197 "Like `minibuffer-complete-word', but allows \"b--di\"-style abbreviations.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
198 See `PC-complete' for details.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199 This is suitable for binding to other keys which should act just like SPC."
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 (interactive)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
201 (if (eq (PC-was-meta-key) PC-meta-flag)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
202 (minibuffer-complete-word)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
203 (insert " ")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
204 (if (eobp)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
205 (PC-do-completion 'word))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
206
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
207
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
208 (defun PC-complete-and-exit ()
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 "Like `minibuffer-complete-and-exit', but allows \"b--di\"-style abbreviations.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 See `PC-complete' for details."
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
211 (interactive)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212 (if (eq (PC-was-meta-key) PC-meta-flag)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213 (minibuffer-complete-and-exit)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214 (PC-do-complete-and-exit)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216 (defun PC-force-complete-and-exit ()
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 "Like `minibuffer-complete-and-exit', but allows \"b--di\"-style abbreviations.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218 See `PC-complete' for details."
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219 (interactive)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
220 (let ((minibuffer-completion-confirm nil))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221 (PC-do-complete-and-exit)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
222
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223 (defun PC-do-complete-and-exit ()
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
224 (if (= (buffer-size) 0) ; Duplicate the "bug" that Info-menu relies on...
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
225 (exit-minibuffer)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
226 (let ((flag (PC-do-completion 'exit)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
227 (and flag
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
228 (if (or (eq flag 'complete)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
229 (not minibuffer-completion-confirm))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
230 (exit-minibuffer)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
231 (PC-temp-minibuffer-message " (Confirm)"))))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
232
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
233
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
234 (defun PC-completion-help ()
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
235 "Like `minibuffer-completion-help', but allows \"b--di\"-style abbreviations.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
236 See `PC-complete' for details."
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
237 (interactive)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
238 (if (eq (PC-was-meta-key) PC-meta-flag)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
239 (minibuffer-completion-help)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
240 (PC-do-completion 'help)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
241
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
242 (defun PC-was-meta-key ()
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
243 (or (/= (length (this-command-keys)) 1)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
244 (let ((key (aref (this-command-keys) 0)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
245 (if (integerp key)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
246 (>= key 128)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
247 (not (null (memq 'meta (event-modifiers key))))))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
248
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
249
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
250 (defvar PC-ignored-extensions 'empty-cache)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 (defvar PC-delims 'empty-cache)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
252 (defvar PC-ignored-regexp nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
253 (defvar PC-word-failed-flag nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
254 (defvar PC-delim-regex nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
255 (defvar PC-ndelims-regex nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
256 (defvar PC-delims-list nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
257
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
258 (defun PC-do-completion (&optional mode beg end)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
259 (or beg (setq beg (point-min)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260 (or end (setq end (point-max)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 (let* ((table minibuffer-completion-table)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262 (pred minibuffer-completion-predicate)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263 (filename (memq table '(read-file-name-internal
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
264 read-directory-name-internal)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
265 (dirname nil)
8478
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
266 dirlength
3725
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267 (str (buffer-substring beg end))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268 (incname (and filename (string-match "<\\([^\"<>]*\\)>?$" str)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
269 (ambig nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
270 basestr
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271 regex
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
272 p offset
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
273 (poss nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
274 helpposs
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
275 (case-fold-search completion-ignore-case))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
276
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
277 ;; Check if buffer contents can already be considered complete
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
278 (if (and (eq mode 'exit)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
279 (PC-is-complete-p str table pred))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280 'complete
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
281
8478
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
282 ;; Record how many characters at the beginning are not included
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
283 ;; in completion.
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
284 (setq dirlength
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
285 (if filename
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
286 (length (file-name-directory str))
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
287 0))
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
288
3725
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289 ;; Do substitutions in directory names
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
290 (and filename
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291 (not (equal str (setq p (substitute-in-file-name str))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
292 (progn
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
293 (delete-region beg end)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
294 (insert p)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
295 (setq str p end (+ beg (length str)))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
296
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
297 ;; Prepare various delimiter strings
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
298 (or (equal PC-word-delimiters PC-delims)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
299 (setq PC-delims PC-word-delimiters
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300 PC-delim-regex (concat "[" PC-delims "]")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301 PC-ndelims-regex (concat "[^" PC-delims "]*")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
302 PC-delims-list (append PC-delims nil)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
304 ;; Look for wildcard expansions in directory name
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
305 (and filename
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
306 (string-match "\\*.*/" str)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
307 (let ((pat str)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
308 files)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
309 (setq p (1+ (string-match "/[^/]*\\'" pat)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
310 (while (setq p (string-match PC-delim-regex pat p))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
311 (setq pat (concat (substring pat 0 p)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
312 "*"
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313 (substring pat p))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314 p (+ p 2)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315 (setq files (PC-expand-many-files (concat pat "*")))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
316 (if files
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
317 (let ((dir (file-name-directory (car files)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
318 (p files))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
319 (while (and (setq p (cdr p))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
320 (equal dir (file-name-directory (car p)))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
321 (if p
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322 (setq filename nil table nil pred nil
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323 ambig t)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
324 (delete-region beg end)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325 (setq str (concat dir (file-name-nondirectory str)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
326 (insert str)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
327 (setq end (+ beg (length str)))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
328 (setq filename nil table nil pred nil))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
329
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330 ;; Strip directory name if appropriate
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
331 (if filename
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
332 (if incname
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
333 (setq basestr (substring str incname)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
334 dirname (substring str 0 incname))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
335 (setq basestr (file-name-nondirectory str)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336 dirname (file-name-directory str)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
337 (setq basestr str))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
338
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
339 ;; Convert search pattern to a standard regular expression
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
340 (setq regex (regexp-quote basestr)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
341 offset (if (and (> (length regex) 0)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
342 (not (eq (aref basestr 0) ?\*))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
343 (or (eq PC-first-char t)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
344 (and PC-first-char filename))) 1 0)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
345 p offset)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
346 (while (setq p (string-match PC-delim-regex regex p))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
347 (if (eq (aref regex p) ? )
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
348 (setq regex (concat (substring regex 0 p)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
349 PC-ndelims-regex
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
350 PC-delim-regex
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
351 (substring regex (1+ p)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
352 p (+ p (length PC-ndelims-regex) (length PC-delim-regex)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
353 (let ((bump (if (memq (aref regex p)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
354 '(?$ ?^ ?\. ?* ?+ ?? ?[ ?] ?\\))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
355 -1 0)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
356 (setq regex (concat (substring regex 0 (+ p bump))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
357 PC-ndelims-regex
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
358 (substring regex (+ p bump)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
359 p (+ p (length PC-ndelims-regex) 1)))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
360 (setq p 0)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
361 (if filename
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
362 (while (setq p (string-match "\\\\\\*" regex p))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
363 (setq regex (concat (substring regex 0 p)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364 "[^/]*"
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
365 (substring regex (+ p 2))))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
366 ;;(setq the-regex regex)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
367 (setq regex (concat "\\`" regex))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
368
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369 ;; Find an initial list of possible completions
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
370 (if (not (setq p (string-match (concat PC-delim-regex
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
371 (if filename "\\|\\*" ""))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
372 str
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
373 (+ (length dirname) offset))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
374
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
375 ;; Minibuffer contains no hyphens -- simple case!
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376 (setq poss (all-completions str
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
377 table
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
378 pred))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
379
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
380 ;; Use all-completions to do an initial cull. This is a big win,
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
381 ;; since all-completions is written in C!
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
382 (let ((compl (all-completions (substring str 0 p)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
383 table
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
384 pred)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
385 (setq p compl)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
386 (while p
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
387 (and (string-match regex (car p))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
388 (setq poss (cons (car p) poss)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
389 (setq p (cdr p)))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
390
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
391 ;; Now we have a list of possible completions
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
392 (cond
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
393
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
394 ;; No valid completions found
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
395 ((null poss)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
396 (if (and (eq mode 'word)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
397 (not PC-word-failed-flag))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
398 (let ((PC-word-failed-flag t))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
399 (delete-backward-char 1)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
400 (PC-do-completion 'word))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
401 (beep)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
402 (PC-temp-minibuffer-message (if ambig
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
403 " (Ambiguous dir name)"
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
404 (if (eq mode 'help)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
405 " (No completions)"
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
406 " (No match)")))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
407 nil))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
408
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
409 ;; More than one valid completion found
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
410 ((or (cdr (setq helpposs poss))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
411 (memq mode '(help word)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
412
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
413 ;; Handle completion-ignored-extensions
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
414 (and filename
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
415 (not (eq mode 'help))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
416 (let ((p2 poss))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
417
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
418 ;; Build a regular expression representing the extensions list
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
419 (or (equal completion-ignored-extensions PC-ignored-extensions)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
420 (setq PC-ignored-regexp
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
421 (concat "\\("
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
422 (mapconcat
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
423 'regexp-quote
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
424 (setq PC-ignored-extensions
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425 completion-ignored-extensions)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
426 "\\|")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
427 "\\)\\'")))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
428
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429 ;; Check if there are any without an ignored extension
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
430 (setq p nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
431 (while p2
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432 (or (string-match PC-ignored-regexp (car p2))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
433 (setq p (cons (car p2) p)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
434 (setq p2 (cdr p2)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
435
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
436 ;; If there are "good" names, use them
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
437 (and p (setq poss p))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
438
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
439 ;; Is the actual string one of the possible completions?
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
440 (setq p (and (not (eq mode 'help)) poss))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
441 (while (and p
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
442 (not (equal (car p) basestr)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
443 (setq p (cdr p)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
444 (if p
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
445
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
446 (progn
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
447 (if (null mode)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
448 (PC-temp-minibuffer-message " (Complete, but not unique)"))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
449 t)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
450
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
451 ;; If ambiguous, try for a partial completion
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
452 (let ((improved nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
453 prefix
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
454 (pt nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
455 (skip "\\`"))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
456
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
457 ;; Check if next few letters are the same in all cases
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
458 (if (and (not (eq mode 'help))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
459 (setq prefix (try-completion "" (mapcar 'list poss))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
460 (let ((first t) i)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
461 (if (eq mode 'word)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
462 (setq prefix (PC-chop-word prefix basestr)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
463 (goto-char (+ beg (length dirname)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
464 (while (and (progn
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
465 (setq i 0)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
466 (while (< i (length prefix))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
467 (if (and (< (point) end)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
468 (eq (aref prefix i)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
469 (following-char)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
470 (forward-char 1)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
471 (if (and (< (point) end)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
472 (or (and (looking-at " ")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
473 (memq (aref prefix i)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
474 PC-delims-list))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
475 (eq (downcase (aref prefix i))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
476 (downcase
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
477 (following-char)))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
478 (progn
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
479 (delete-char 1)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
480 (setq end (1- end)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
481 (and filename (looking-at "\\*")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
482 (progn
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
483 (delete-char 1)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
484 (setq end (1- end))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
485 (setq improved t))
7792
1335cec8a016 (PC-do-completion): Clear text props from inserted text.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
486 ;; Use format to discard text properties.
1335cec8a016 (PC-do-completion): Clear text props from inserted text.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
487 (insert (format "%s" (substring prefix i (1+ i))))
3725
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
488 (setq end (1+ end)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
489 (setq i (1+ i)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
490 (or pt (equal (point) beg)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
491 (setq pt (point)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
492 (looking-at PC-delim-regex))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
493 (setq skip (concat skip
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
494 (regexp-quote prefix)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
495 PC-ndelims-regex)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
496 prefix (try-completion
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
497 ""
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
498 (mapcar
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
499 (function
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
500 (lambda (x)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
501 (list
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
502 (and (string-match skip x)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
503 (substring
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
504 x
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
505 (match-end 0))))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
506 poss)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
507 (or (> i 0) (> (length prefix) 0))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
508 (or (not (eq mode 'word))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
509 (and first (> (length prefix) 0)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
510 (setq first nil
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
511 prefix (substring prefix 0 1))))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
512 (goto-char (if (eq mode 'word) end
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513 (or pt beg)))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
515 (if (and (eq mode 'word)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
516 (not PC-word-failed-flag))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
517
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
518 (if improved
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
519
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
520 ;; We changed it... would it be complete without the space?
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
521 (if (PC-is-complete-p (buffer-substring 1 (1- end))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
522 table pred)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
523 (delete-region (1- end) end)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
524
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
525 (if improved
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
526
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
527 ;; We changed it... enough to be complete?
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
528 (and (eq mode 'exit)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529 (PC-is-complete-p (buffer-string) table pred))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
530
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
531 ;; If totally ambiguous, display a list of completions
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
532 (if (or completion-auto-help
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
533 (eq mode 'help))
7844
86402e8c677b (PC-do-completion): Likewise.
Richard M. Stallman <rms@gnu.org>
parents: 7792
diff changeset
534 (with-output-to-temp-buffer "*Completions*"
8478
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
535 (display-completion-list (sort helpposs 'string-lessp))
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
536 (save-excursion
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
537 (set-buffer standard-output)
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
538 ;; Record which part of the buffer we are completing
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
539 ;; so that choosing a completion from the list
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
540 ;; knows how much old text to replace.
9d3d84a3c3fa (PC-do-completion): Set completion-base-size.
Richard M. Stallman <rms@gnu.org>
parents: 7942
diff changeset
541 (setq completion-base-size dirlength)))
3725
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
542 (PC-temp-minibuffer-message " (Next char not unique)"))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
543 nil)))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
544
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
545 ;; Only one possible completion
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
546 (t
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
547 (if (equal basestr (car poss))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
548 (if (null mode)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
549 (PC-temp-minibuffer-message " (Sole completion)"))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
550 (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
551 (insert (format "%s"
1335cec8a016 (PC-do-completion): Clear text props from inserted text.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
552 (if filename
1335cec8a016 (PC-do-completion): Clear text props from inserted text.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
553 (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
554 (car poss)))))
3725
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
555 t)))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
556
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
557
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
558 (defun PC-is-complete-p (str table pred)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
559 (let ((res (if (listp table)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
560 (assoc str table)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
561 (if (vectorp table)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
562 (or (equal str "nil") ; heh, heh, heh
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
563 (intern-soft str table))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
564 (funcall table str pred 'lambda)))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
565 (and res
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
566 (or (not pred)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
567 (and (not (listp table)) (not (vectorp table)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
568 (funcall pred res))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
569 res)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
570
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
571 (defun PC-chop-word (new old)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
572 (let ((i -1)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
573 (j -1))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
574 (while (and (setq i (string-match PC-delim-regex old (1+ i)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
575 (setq j (string-match PC-delim-regex new (1+ j)))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
576 (if (and j
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
577 (or (not PC-word-failed-flag)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
578 (setq j (string-match PC-delim-regex new (1+ j)))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
579 (substring new 0 (1+ j))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
580 new)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
581
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
582 (defvar PC-not-minibuffer nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
583
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
584 (defun PC-temp-minibuffer-message (m)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
585 "A Lisp version of `temp_minibuffer_message' from minibuf.c."
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
586 (if PC-not-minibuffer
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
587 (progn
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
588 (message m)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
589 (sit-for 2)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
590 (message ""))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
591 (if (fboundp 'temp-minibuffer-message)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
592 (temp-minibuffer-message m)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
593 (let ((savemax (point-max)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
594 (save-excursion
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
595 (goto-char (point-max))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
596 (insert m))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
597 (let ((inhibit-quit t))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
598 (sit-for 2)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
599 (delete-region savemax (point-max))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
600 (if quit-flag
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
601 (setq quit-flag nil
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
602 unread-command-char 7)))))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
603
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
604
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
605 (defun PC-lisp-complete-symbol ()
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
606 "Perform completion on Lisp symbol preceding point.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
607 That symbol is compared against the symbols that exist
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
608 and any additional characters determined by what is there
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
609 are inserted.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
610 If the symbol starts just after an open-parenthesis,
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
611 only symbols with function definitions are considered.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
612 Otherwise, all symbols with function definitions, values
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
613 or properties are considered."
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
614 (interactive)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
615 (let* ((end (point))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
616 (buffer-syntax (syntax-table))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
617 (beg (unwind-protect
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
618 (save-excursion
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
619 (if lisp-mode-syntax-table
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
620 (set-syntax-table lisp-mode-syntax-table))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
621 (backward-sexp 1)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
622 (while (= (char-syntax (following-char)) ?\')
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
623 (forward-char 1))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
624 (point))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
625 (set-syntax-table buffer-syntax)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
626 (minibuffer-completion-table obarray)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
627 (minibuffer-completion-predicate
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
628 (if (eq (char-after (1- beg)) ?\()
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
629 'fboundp
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
630 (function (lambda (sym)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
631 (or (boundp sym) (fboundp sym)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
632 (symbol-plist sym))))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
633 (PC-not-minibuffer t))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
634 (PC-do-completion nil beg end)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
635
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
636
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
637 ;;; Wildcards in `C-x C-f' command. This is independent from the main
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
638 ;;; completion code, except for `PC-expand-many-files' which is called
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
639 ;;; when "*"'s are found in the path during filename completion. (The
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
640 ;;; above completion code always understands "*"'s, except in file paths,
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
641 ;;; without relying on the following code.)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
642
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
643 (defvar PC-many-files-list nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
644
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
645 (defun PC-try-load-many-files ()
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
646 (if (string-match "\\*" buffer-file-name)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
647 (let* ((pat buffer-file-name)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
648 (files (PC-expand-many-files pat))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
649 (first (car files))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
650 (next files))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
651 (kill-buffer (current-buffer))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
652 (or files
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
653 (error "No matching files"))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
654 (save-window-excursion
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
655 (while (setq next (cdr next))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
656 (let ((buf (find-file-noselect (car next))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
657 (switch-to-buffer buf))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
658 ;; This modifies the "buf" variable inside find-file-noselect.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
659 (setq buf (get-file-buffer first))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
660 (if buf
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
661 nil ; should do verify-visited-file-modtime stuff.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
662 (setq filename first)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
663 (setq buf (create-file-buffer filename))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
664 (set-buffer buf)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
665 (erase-buffer)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
666 (insert-file-contents filename t))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
667 (if (cdr files)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
668 (setq PC-many-files-list (mapconcat
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
669 (if (string-match "\\*.*/" pat)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
670 'identity
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
671 'file-name-nondirectory)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
672 (cdr files) ", ")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
673 find-file-hooks (cons 'PC-after-load-many-files
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
674 find-file-hooks)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
675 ;; This modifies the "error" variable inside find-file-noselect.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
676 (setq error nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
677 t)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
678 nil))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
679
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
680 (defun PC-after-load-many-files ()
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
681 (setq find-file-hooks (delq 'PC-after-load-many-files find-file-hooks))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
682 (message "Also loaded %s." PC-many-files-list))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
683
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
684 (defun PC-expand-many-files (name)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
685 (save-excursion
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
686 (set-buffer (generate-new-buffer " *Glob Output*"))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
687 (erase-buffer)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
688 (shell-command (concat "echo " name) t)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
689 (goto-char (point-min))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
690 (if (looking-at ".*No match")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
691 nil
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
692 (insert "(\"")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
693 (while (search-forward " " nil t)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
694 (delete-backward-char 1)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
695 (insert "\" \""))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
696 (goto-char (point-max))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
697 (delete-backward-char 1)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
698 (insert "\")")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
699 (goto-char (point-min))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
700 (let ((files (read (current-buffer))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
701 (kill-buffer (current-buffer))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
702 files))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
703
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
704 (or PC-disable-wildcards
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
705 (memq 'PC-try-load-many-files find-file-not-found-hooks)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
706 (setq find-file-not-found-hooks (cons 'PC-try-load-many-files
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
707 find-file-not-found-hooks)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
708
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
709
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
710
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
711 ;;; Facilities for loading C header files. This is independent from the
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
712 ;;; main completion code. See also the variable `PC-include-file-path'
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
713 ;;; at top of this file.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
714
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
715 (defun PC-look-for-include-file ()
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
716 (if (string-match "[\"<]\\([^\"<>]*\\)[\">]?$" (buffer-file-name))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
717 (let ((name (substring (buffer-file-name)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
718 (match-beginning 1) (match-end 1)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
719 (punc (aref (buffer-file-name) (match-beginning 0)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
720 (path nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
721 new-buf)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
722 (kill-buffer (current-buffer))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
723 (if (equal name "")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
724 (save-excursion
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
725 (set-buffer (car (buffer-list)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
726 (save-excursion
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
727 (beginning-of-line)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
728 (if (looking-at
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
729 "[ \t]*#[ \t]*include[ \t]+[<\"]\\(.+\\)[>\"][ \t]*[\n/]")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
730 (setq name (buffer-substring (match-beginning 1)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
731 (match-end 1))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
732 punc (char-after (1- (match-beginning 1))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
733 ;; Suggested by Frank Siebenlist:
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
734 (if (or (looking-at
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
735 "[ \t]*([ \t]*load[ \t]+\"\\([^\"]+\\)\"")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
736 (looking-at
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
737 "[ \t]*([ \t]*load-library[ \t]+\"\\([^\"]+\\)\"")
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
738 (looking-at
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
739 "[ \t]*([ \t]*require[ \t]+'\\([^\t )]+\\)[\t )]"))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
740 (progn
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
741 (setq name (buffer-substring (match-beginning 1)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
742 (match-end 1))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
743 punc ?\<
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
744 path load-path)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
745 (if (string-match "\\.elc$" name)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
746 (setq name (substring name 0 -1))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
747 (or (string-match "\\.el$" name)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
748 (setq name (concat name ".el")))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
749 (error "Not on an #include line"))))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
750 (or (string-match "\\.[a-zA-Z0-9]+$" name)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
751 (setq name (concat name ".h")))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
752 (if (eq punc ?\<)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
753 (let ((path (or path (PC-include-file-path))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
754 (while (and path
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
755 (not (file-exists-p
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
756 (concat (file-name-as-directory (car path))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
757 name))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
758 (setq path (cdr path)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
759 (if path
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
760 (setq name (concat (file-name-as-directory (car path)) name))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
761 (error "No such include file: <%s>" name)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
762 (let ((dir (save-excursion
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
763 (set-buffer (car (buffer-list)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
764 default-directory)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
765 (if (file-exists-p (concat dir name))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
766 (setq name (concat dir name))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
767 (error "No such include file: \"%s\"" name))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
768 (setq new-buf (get-file-buffer name))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
769 (if new-buf
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
770 ;; no need to verify last-modified time for this!
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
771 (set-buffer new-buf)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
772 (setq new-buf (create-file-buffer name))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
773 (set-buffer new-buf)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
774 (erase-buffer)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
775 (insert-file-contents name t))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
776 (setq filename name
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
777 error nil
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
778 buf new-buf)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
779 t)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
780 nil))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
781
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
782 (defun PC-include-file-path ()
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
783 (or PC-include-file-path
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
784 (let ((env (getenv "INCPATH"))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
785 (path nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
786 pos)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
787 (or env (error "No include file path specified"))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
788 (while (setq pos (string-match ":[^:]+$" env))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
789 (setq path (cons (substring env (1+ pos)) path)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
790 env (substring env 0 pos)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
791 path)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
792
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
793 ;;; This is adapted from lib-complete.el, by Mike Williams.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
794 (defun PC-include-file-all-completions (file search-path &optional full)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
795 "Return all completions for FILE in any directory on SEARCH-PATH.
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
796 If optional third argument FULL is non-nil, returned pathnames should be
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
797 absolute rather than relative to some directory on the SEARCH-PATH."
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
798 (setq search-path
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
799 (mapcar '(lambda (dir)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
800 (if dir (file-name-as-directory dir) default-directory))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
801 search-path))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
802 (if (file-name-absolute-p file)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
803 ;; It's an absolute file name, so don't need search-path
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
804 (progn
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
805 (setq file (expand-file-name file))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
806 (file-name-all-completions
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
807 (file-name-nondirectory file) (file-name-directory file)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
808 (let ((subdir (file-name-directory file))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
809 (ndfile (file-name-nondirectory file))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
810 file-lists)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
811 ;; Append subdirectory part to each element of search-path
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
812 (if subdir
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
813 (setq search-path
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
814 (mapcar '(lambda (dir) (concat dir subdir))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
815 search-path)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
816 file ))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
817 ;; Make list of completions in each directory on search-path
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
818 (while search-path
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
819 (let* ((dir (car search-path))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
820 (subdir (if full dir subdir)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
821 (if (file-directory-p dir)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
822 (progn
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
823 (setq file-lists
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
824 (cons
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
825 (mapcar '(lambda (file) (concat subdir file))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
826 (file-name-all-completions ndfile
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
827 (car search-path)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
828 file-lists))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
829 (setq search-path (cdr search-path))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
830 ;; Compress out duplicates while building complete list (slloooow!)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
831 (let ((sorted (sort (apply 'nconc file-lists)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
832 '(lambda (x y) (not (string-lessp x y)))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
833 compressed)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
834 (while sorted
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
835 (if (equal (car sorted) (car compressed)) nil
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
836 (setq compressed (cons (car sorted) compressed)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
837 (setq sorted (cdr sorted)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
838 compressed))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
839
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
840 (defvar PC-old-read-file-name-internal nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
841
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
842 (defun PC-read-include-file-name-internal (string dir action)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
843 (if (string-match "<\\([^\"<>]*\\)>?$" string)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
844 (let* ((name (substring string (match-beginning 1) (match-end 1)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
845 (str2 (substring string (match-beginning 0)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
846 (completion-table
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
847 (mapcar (function (lambda (x) (list (format "<%s>" x))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
848 (PC-include-file-all-completions
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
849 name (PC-include-file-path)))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
850 (cond
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
851 ((not completion-table) nil)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
852 ((eq action nil) (try-completion str2 completion-table nil))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
853 ((eq action t) (all-completions str2 completion-table nil))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
854 ((eq action 'lambda)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
855 (eq (try-completion str2 completion-table nil) t))))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
856 (funcall PC-old-read-file-name-internal string dir action)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
857
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
858 (or PC-disable-includes
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
859 (memq 'PC-look-for-include-file find-file-not-found-hooks)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
860 (setq find-file-not-found-hooks (cons 'PC-look-for-include-file
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
861 find-file-not-found-hooks)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
862
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
863 (or PC-disable-includes
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
864 PC-old-read-file-name-internal
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
865 (progn
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
866 (setq PC-old-read-file-name-internal
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
867 (symbol-function 'read-file-name-internal))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
868 (fset 'read-file-name-internal 'PC-read-include-file-name-internal)))
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
869
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
870
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
871 (provide 'complete)
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
872
bd468d77adce Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
873 ;;; End.