annotate lisp/minibuffer.el @ 105830:378d4ce3aada

Reword header comment to prevent copyright.el wanting to update years.
author Glenn Morris <rgm@gnu.org>
date Tue, 03 Nov 2009 03:12:34 +0000
parents 06f1348e3279
children 45b3f4e55e6e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1 ;;; minibuffer.el --- Minibuffer completion functions
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
2
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100623
diff changeset
3 ;; Copyright (C) 2008, 2009 Free Software Foundation, Inc.
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
4
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
5 ;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
6
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
7 ;; This file is part of GNU Emacs.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
8
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94607
diff changeset
9 ;; GNU Emacs is free software: you can redistribute it and/or modify
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
10 ;; it under the terms of the GNU General Public License as published by
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
11 ;; the Free Software Foundation, either version 3 of the License, or
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
12 ;; (at your option) any later version.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
13
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94607
diff changeset
14 ;; GNU Emacs is distributed in the hope that it will be useful,
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
17 ;; GNU General Public License for more details.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
18
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
19 ;; You should have received a copy of the GNU General Public License
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94607
diff changeset
20 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
21
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
22 ;;; Commentary:
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
23
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
24 ;; Names with "--" are for functions and variables that are meant to be for
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
25 ;; internal use only.
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
26
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
27 ;; Functional completion tables have an extended calling conventions:
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
28 ;; - The `action' can be (additionally to nil, t, and lambda) of the form
95228
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
29 ;; (boundaries . SUFFIX) in which case it should return
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
30 ;; (boundaries START . END). See `completion-boundaries'.
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
31 ;; Any other return value should be ignored (so we ignore values returned
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
32 ;; from completion tables that don't know about this new `action' form).
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
33
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
34 ;;; Bugs:
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
35
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
36 ;; - completion-all-sorted-completions list all the completions, whereas
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
37 ;; it should only lists the ones that `try-completion' would consider.
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
38 ;; E.g. it should honor completion-ignored-extensions.
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
39 ;; - choose-completion can't automatically figure out the boundaries
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
40 ;; corresponding to the displayed completions because we only
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
41 ;; provide the start info but not the end info in
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
42 ;; completion-base-position.
105763
5041ae86859e (all-completions): Declare the 4th arg obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105733
diff changeset
43 ;; - quoting is problematic. E.g. the double-dollar quoting used in
5041ae86859e (all-completions): Declare the 4th arg obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105733
diff changeset
44 ;; substitie-in-file-name (and hence read-file-name-internal) bumps
5041ae86859e (all-completions): Declare the 4th arg obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105733
diff changeset
45 ;; into various bugs:
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
46 ;; - choose-completion doesn't know how to quote the text it inserts.
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
47 ;; E.g. it fails to double the dollars in file-name completion, or
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
48 ;; to backslash-escape spaces and other chars in comint completion.
105763
5041ae86859e (all-completions): Declare the 4th arg obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105733
diff changeset
49 ;; - when completing ~/tmp/fo$$o, the highligting in *Completions*
5041ae86859e (all-completions): Declare the 4th arg obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105733
diff changeset
50 ;; is off by one position.
5041ae86859e (all-completions): Declare the 4th arg obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105733
diff changeset
51 ;; - all code like PCM which relies on all-completions to match
5041ae86859e (all-completions): Declare the 4th arg obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105733
diff changeset
52 ;; its argument gets confused because all-completions returns unquoted
5041ae86859e (all-completions): Declare the 4th arg obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105733
diff changeset
53 ;; texts (as desired for *Completions* output).
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
54 ;; - C-x C-f ~/*/sr ? should not list "~/./src".
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
55 ;; - minibuffer-force-complete completes ~/src/emacs/t<!>/lisp/minibuffer.el
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
56 ;; to ~/src/emacs/trunk/ and throws away lisp/minibuffer.el.
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
57
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
58 ;;; Todo:
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
59
104719
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
60 ;; - make partial-complete-mode obsolete:
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
61 ;; - (?) <foo.h> style completion for file names.
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
62 ;; This can't be done identically just by tweaking completion,
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
63 ;; because partial-completion-mode's behavior is to expand <string.h>
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
64 ;; to /usr/include/string.h only when exiting the minibuffer, at which
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
65 ;; point the completion code is actually not involved normally.
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
66 ;; Partial-completion-mode does it via a find-file-not-found-function.
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
67 ;; - special code for C-x C-f <> to visit the file ref'd at point
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
68 ;; via (require 'foo) or #include "foo". ffap seems like a better
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
69 ;; place for this feature (supplemented with major-mode-provided
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
70 ;; functions to find the file ref'd at point).
104719
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
71
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
72 ;; - case-sensitivity currently confuses two issues:
104719
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
73 ;; - whether or not a particular completion table should be case-sensitive
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
74 ;; (i.e. whether strings that differ only by case are semantically
104719
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
75 ;; equivalent)
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
76 ;; - whether the user wants completion to pay attention to case.
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
77 ;; e.g. we may want to make it possible for the user to say "first try
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
78 ;; completion case-sensitively, and if that fails, try to ignore case".
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
79
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
80 ;; - add support for ** to pcm.
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
81 ;; - Add vc-file-name-completion-table to read-file-name-internal.
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
82 ;; - A feature like completing-help.el.
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
83
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
84 ;;; Code:
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
85
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
86 (eval-when-compile (require 'cl))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
87
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
88 ;;; Completion table manipulation
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
89
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
90 ;; New completion-table operation.
95228
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
91 (defun completion-boundaries (string table pred suffix)
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
92 "Return the boundaries of the completions returned by TABLE for STRING.
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
93 STRING is the string on which completion will be performed.
95228
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
94 SUFFIX is the string after point.
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
95 The result is of the form (START . END) where START is the position
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
96 in STRING of the beginning of the completion field and END is the position
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
97 in SUFFIX of the end of the completion field.
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
98 E.g. for simple completion tables, the result is always (0 . (length SUFFIX))
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
99 and for file names the result is the positions delimited by
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
100 the closest directory separators."
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
101 (let ((boundaries (if (functionp table)
95228
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
102 (funcall table string pred (cons 'boundaries suffix)))))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
103 (if (not (eq (car-safe boundaries) 'boundaries))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
104 (setq boundaries nil))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
105 (cons (or (cadr boundaries) 0)
95228
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
106 (or (cddr boundaries) (length suffix)))))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
107
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
108 (defun completion--some (fun xs)
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
109 "Apply FUN to each element of XS in turn.
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
110 Return the first non-nil returned value.
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
111 Like CL's `some'."
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
112 (let ((firsterror nil)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
113 res)
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
114 (while (and (not res) xs)
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
115 (condition-case err
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
116 (setq res (funcall fun (pop xs)))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
117 (error (unless firsterror (setq firsterror err)) nil)))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
118 (or res
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
119 (if firsterror (signal (car firsterror) (cdr firsterror))))))
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
120
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
121 (defun complete-with-action (action table string pred)
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
122 "Perform completion ACTION.
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
123 STRING is the string to complete.
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
124 TABLE is the completion table, which should not be a function.
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
125 PRED is a completion predicate.
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
126 ACTION can be one of nil, t or `lambda'."
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
127 (cond
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
128 ((functionp table) (funcall table string pred action))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
129 ((eq (car-safe action) 'boundaries)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
130 (cons 'boundaries (completion-boundaries string table pred (cdr action))))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
131 (t
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
132 (funcall
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
133 (cond
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
134 ((null action) 'try-completion)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
135 ((eq action t) 'all-completions)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
136 (t 'test-completion))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
137 string table pred))))
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
138
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
139 (defun completion-table-dynamic (fun)
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
140 "Use function FUN as a dynamic completion table.
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
141 FUN is called with one argument, the string for which completion is required,
94202
987535788e11 (completion-table-dynamic): Fix typo, and reflow docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 94182
diff changeset
142 and it should return an alist containing all the intended possible completions.
987535788e11 (completion-table-dynamic): Fix typo, and reflow docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 94182
diff changeset
143 This alist may be a full list of possible completions so that FUN can ignore
987535788e11 (completion-table-dynamic): Fix typo, and reflow docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 94182
diff changeset
144 the value of its argument. If completion is performed in the minibuffer,
987535788e11 (completion-table-dynamic): Fix typo, and reflow docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 94182
diff changeset
145 FUN will be called in the buffer from which the minibuffer was entered.
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
146
97550
dc32b170fe16 (completion-table-dynamic): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 97544
diff changeset
147 The result of the `completion-table-dynamic' form is a function
95426
92edde3e7af6 (completion-table-dynamic): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 95394
diff changeset
148 that can be used as the COLLECTION argument to `try-completion' and
94202
987535788e11 (completion-table-dynamic): Fix typo, and reflow docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 94182
diff changeset
149 `all-completions'. See Info node `(elisp)Programmed Completion'."
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
150 (lexical-let ((fun fun))
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
151 (lambda (string pred action)
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
152 (with-current-buffer (let ((win (minibuffer-selected-window)))
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
153 (if (window-live-p win) (window-buffer win)
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
154 (current-buffer)))
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
155 (complete-with-action action (funcall fun string) string pred)))))
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
156
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
157 (defmacro lazy-completion-table (var fun)
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
158 "Initialize variable VAR as a lazy completion table.
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
159 If the completion table VAR is used for the first time (e.g., by passing VAR
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
160 as an argument to `try-completion'), the function FUN is called with no
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
161 arguments. FUN must return the completion table that will be stored in VAR.
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
162 If completion is requested in the minibuffer, FUN will be called in the buffer
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
163 from which the minibuffer was entered. The return value of
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
164 `lazy-completion-table' must be used to initialize the value of VAR.
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
165
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
166 You should give VAR a non-nil `risky-local-variable' property."
94017
f2ded84f543c (lazy-completion-table): Fix debug spec.
Johan Bockgård <bojohan@gnu.org>
parents: 94013
diff changeset
167 (declare (debug (symbolp lambda-expr)))
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
168 (let ((str (make-symbol "string")))
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
169 `(completion-table-dynamic
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
170 (lambda (,str)
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
171 (when (functionp ,var)
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
172 (setq ,var (,fun)))
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
173 ,var))))
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
174
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
175 (defun completion-table-with-context (prefix table string pred action)
94180
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
176 ;; TODO: add `suffix' maybe?
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
177 ;; Notice that `pred' may not be a function in some abusive cases.
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
178 (when (functionp pred)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
179 (setq pred
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
180 (lexical-let ((pred pred))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
181 ;; Predicates are called differently depending on the nature of
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
182 ;; the completion table :-(
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
183 (cond
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
184 ((vectorp table) ;Obarray.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
185 (lambda (sym) (funcall pred (concat prefix (symbol-name sym)))))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
186 ((hash-table-p table)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
187 (lambda (s v) (funcall pred (concat prefix s))))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
188 ((functionp table)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
189 (lambda (s) (funcall pred (concat prefix s))))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
190 (t ;Lists and alists.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
191 (lambda (s)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
192 (funcall pred (concat prefix (if (consp s) (car s) s)))))))))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
193 (if (eq (car-safe action) 'boundaries)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
194 (let* ((len (length prefix))
95228
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
195 (bound (completion-boundaries string table pred (cdr action))))
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
196 (list* 'boundaries (+ (car bound) len) (cdr bound)))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
197 (let ((comp (complete-with-action action table string pred)))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
198 (cond
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
199 ;; In case of try-completion, add the prefix.
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
200 ((stringp comp) (concat prefix comp))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
201 (t comp)))))
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
202
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
203 (defun completion-table-with-terminator (terminator table string pred action)
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
204 "Construct a completion table like TABLE but with an extra TERMINATOR.
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
205 This is meant to be called in a curried way by first passing TERMINATOR
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
206 and TABLE only (via `apply-partially').
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
207 TABLE is a completion table, and TERMINATOR is a string appended to TABLE's
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
208 completion if it is complete. TERMINATOR is also used to determine the
105711
834e4fdbe74a (completion-table-with-terminator): Allow to specify the terminator-regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105697
diff changeset
209 completion suffix's boundary.
834e4fdbe74a (completion-table-with-terminator): Allow to specify the terminator-regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105697
diff changeset
210 TERMINATOR can also be a cons cell (TERMINATOR . TERMINATOR-REGEXP)
834e4fdbe74a (completion-table-with-terminator): Allow to specify the terminator-regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105697
diff changeset
211 in which case TERMINATOR-REGEXP is a regular expression whose submatch
834e4fdbe74a (completion-table-with-terminator): Allow to specify the terminator-regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105697
diff changeset
212 number 1 should match TERMINATOR. This is used when there is a need to
834e4fdbe74a (completion-table-with-terminator): Allow to specify the terminator-regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105697
diff changeset
213 distinguish occurrences of the TERMINATOR strings which are really terminators
834e4fdbe74a (completion-table-with-terminator): Allow to specify the terminator-regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105697
diff changeset
214 from others (e.g. escaped)."
94180
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
215 (cond
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
216 ((eq (car-safe action) 'boundaries)
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
217 (let* ((suffix (cdr action))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
218 (bounds (completion-boundaries string table pred suffix))
105711
834e4fdbe74a (completion-table-with-terminator): Allow to specify the terminator-regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105697
diff changeset
219 (terminator-regexp (if (consp terminator)
834e4fdbe74a (completion-table-with-terminator): Allow to specify the terminator-regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105697
diff changeset
220 (cdr terminator) (regexp-quote terminator)))
834e4fdbe74a (completion-table-with-terminator): Allow to specify the terminator-regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105697
diff changeset
221 (max (string-match terminator-regexp suffix)))
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
222 (list* 'boundaries (car bounds)
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
223 (min (cdr bounds) (or max (length suffix))))))
94180
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
224 ((eq action nil)
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
225 (let ((comp (try-completion string table pred)))
105711
834e4fdbe74a (completion-table-with-terminator): Allow to specify the terminator-regexp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105697
diff changeset
226 (if (consp terminator) (setq terminator (car terminator)))
94077
28e2f73174d6 (completion-table-with-terminator): Those completions
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94069
diff changeset
227 (if (eq comp t)
28e2f73174d6 (completion-table-with-terminator): Those completions
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94069
diff changeset
228 (concat string terminator)
28e2f73174d6 (completion-table-with-terminator): Those completions
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94069
diff changeset
229 (if (and (stringp comp)
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
230 ;; FIXME: Try to avoid this second call, especially since
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
231 ;; it may be very inefficient (because `comp' made us
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
232 ;; jump to a new boundary, so we complete in that
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
233 ;; boundary with an empty start string).
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
234 ;; completion-boundaries might help.
94180
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
235 (eq (try-completion comp table pred) t))
94077
28e2f73174d6 (completion-table-with-terminator): Those completions
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94069
diff changeset
236 (concat comp terminator)
94180
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
237 comp))))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
238 ((eq action t)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
239 ;; FIXME: We generally want the `try' and `all' behaviors to be
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
240 ;; consistent so pcm can merge the `all' output to get the `try' output,
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
241 ;; but that sometimes clashes with the need for `all' output to look
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
242 ;; good in *Completions*.
100623
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
243 ;; (mapcar (lambda (s) (concat s terminator))
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
244 ;; (all-completions string table pred))))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
245 (all-completions string table pred))
94180
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
246 ;; completion-table-with-terminator is always used for
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
247 ;; "sub-completions" so it's only called if the terminator is missing,
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
248 ;; in which case `test-completion' should return nil.
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
249 ((eq action 'lambda) nil)))
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
250
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
251 (defun completion-table-with-predicate (table pred1 strict string pred2 action)
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
252 "Make a completion table equivalent to TABLE but filtered through PRED1.
94736
3a7862f514d0 (completion-table-with-predicate): Don't use `iff' in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 94678
diff changeset
253 PRED1 is a function of one argument which returns non-nil if and only if the
94180
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
254 argument is an element of TABLE which should be considered for completion.
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
255 STRING, PRED2, and ACTION are the usual arguments to completion tables,
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
256 as described in `try-completion', `all-completions', and `test-completion'.
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
257 If STRICT is t, the predicate always applies; if nil it only applies if
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
258 it does not reduce the set of possible completions to nothing.
94180
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
259 Note: TABLE needs to be a proper completion table which obeys predicates."
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
260 (cond
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
261 ((and (not strict) (eq action 'lambda))
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
262 ;; Ignore pred1 since it doesn't really have to apply anyway.
94182
0be1624297ac (completion-table-with-predicate): Typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94180
diff changeset
263 (test-completion string table pred2))
94180
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
264 (t
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
265 (or (complete-with-action action table string
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
266 (if (null pred2) pred1
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
267 (lexical-let ((pred1 pred2) (pred2 pred2))
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
268 (lambda (x)
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
269 ;; Call `pred1' first, so that `pred2'
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
270 ;; really can't tell that `x' is in table.
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
271 (if (funcall pred1 x) (funcall pred2 x))))))
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
272 ;; If completion failed and we're not applying pred1 strictly, try
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
273 ;; again without pred1.
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
274 (and (not strict)
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
275 (complete-with-action action table string pred2))))))
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
276
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
277 (defun completion-table-in-turn (&rest tables)
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
278 "Create a completion table that tries each table in TABLES in turn."
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
279 ;; FIXME: the boundaries may come from TABLE1 even when the completion list
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
280 ;; is returned by TABLE2 (because TABLE1 returned an empty list).
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
281 (lexical-let ((tables tables))
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
282 (lambda (string pred action)
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
283 (completion--some (lambda (table)
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
284 (complete-with-action action table string pred))
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
285 tables))))
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
286
94180
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
287 ;; (defmacro complete-in-turn (a b) `(completion-table-in-turn ,a ,b))
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
288 ;; (defmacro dynamic-completion-table (fun) `(completion-table-dynamic ,fun))
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
289 (define-obsolete-function-alias
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
290 'complete-in-turn 'completion-table-in-turn "23.1")
94180
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
291 (define-obsolete-function-alias
114d8f4904d0 * minibuffer.el (completion-table-with-context): Add support for `pred'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94172
diff changeset
292 'dynamic-completion-table 'completion-table-dynamic "23.1")
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
293
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
294 ;;; Minibuffer completion
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
295
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
296 (defgroup minibuffer nil
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
297 "Controlling the behavior of the minibuffer."
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
298 :link '(custom-manual "(emacs)Minibuffer")
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
299 :group 'environment)
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
300
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
301 (defun minibuffer-message (message &rest args)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
302 "Temporarily display MESSAGE at the end of the minibuffer.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
303 The text is displayed for `minibuffer-message-timeout' seconds,
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
304 or until the next input event arrives, whichever comes first.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
305 Enclose MESSAGE in [...] if this is not yet the case.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
306 If ARGS are provided, then pass MESSAGE through `format'."
104719
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
307 (if (not (minibufferp (current-buffer)))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
308 (progn
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
309 (if args
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
310 (apply 'message message args)
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
311 (message "%s" message))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
312 (prog1 (sit-for (or minibuffer-message-timeout 1000000))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
313 (message nil)))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
314 ;; Clear out any old echo-area message to make way for our new thing.
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
315 (message nil)
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
316 (setq message (if (and (null args) (string-match-p "\\` *\\[.+\\]\\'" message))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
317 ;; Make sure we can put-text-property.
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
318 (copy-sequence message)
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
319 (concat " [" message "]")))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
320 (when args (setq message (apply 'format message args)))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
321 (let ((ol (make-overlay (point-max) (point-max) nil t t))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
322 ;; A quit during sit-for normally only interrupts the sit-for,
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
323 ;; but since minibuffer-message is used at the end of a command,
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
324 ;; at a time when the command has virtually finished already, a C-g
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
325 ;; should really cause an abort-recursive-edit instead (i.e. as if
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
326 ;; the C-g had been typed at top-level). Binding inhibit-quit here
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
327 ;; is an attempt to get that behavior.
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
328 (inhibit-quit t))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
329 (unwind-protect
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
330 (progn
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
331 (unless (zerop (length message))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
332 ;; The current C cursor code doesn't know to use the overlay's
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
333 ;; marker's stickiness to figure out whether to place the cursor
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
334 ;; before or after the string, so let's spoon-feed it the pos.
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
335 (put-text-property 0 1 'cursor t message))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
336 (overlay-put ol 'after-string message)
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
337 (sit-for (or minibuffer-message-timeout 1000000)))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
338 (delete-overlay ol)))))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
339
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
340 (defun minibuffer-completion-contents ()
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
341 "Return the user input in a minibuffer before point as a string.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
342 That is what completion commands operate on."
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
343 (buffer-substring (field-beginning) (point)))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
344
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
345 (defun delete-minibuffer-contents ()
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
346 "Delete all user input in a minibuffer.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
347 If the current buffer is not a minibuffer, erase its entire contents."
99232
63548ee8ae9f (delete-minibuffer-contents): Delete all minibuffer contents instead
Chong Yidong <cyd@stupidchicken.com>
parents: 98907
diff changeset
348 ;; We used to do `delete-field' here, but when file name shadowing
63548ee8ae9f (delete-minibuffer-contents): Delete all minibuffer contents instead
Chong Yidong <cyd@stupidchicken.com>
parents: 98907
diff changeset
349 ;; is on, the field doesn't cover the entire minibuffer contents.
63548ee8ae9f (delete-minibuffer-contents): Delete all minibuffer contents instead
Chong Yidong <cyd@stupidchicken.com>
parents: 98907
diff changeset
350 (delete-region (minibuffer-prompt-end) (point-max)))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
351
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
352 (defcustom completion-auto-help t
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
353 "Non-nil means automatically provide help for invalid completion input.
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
354 If the value is t the *Completion* buffer is displayed whenever completion
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
355 is requested but cannot be done.
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
356 If the value is `lazy', the *Completions* buffer is only displayed after
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
357 the second failed attempt to complete."
93942
187008494f10 (completion-auto-help): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 93937
diff changeset
358 :type '(choice (const nil) (const t) (const lazy))
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
359 :group 'minibuffer)
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
360
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
361 (defvar completion-styles-alist
104785
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
362 '((emacs21
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
363 completion-emacs21-try-completion completion-emacs21-all-completions
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
364 "Simple prefix-based completion.")
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
365 (emacs22
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
366 completion-emacs22-try-completion completion-emacs22-all-completions
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
367 "Prefix completion that only operates on the text before point.")
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
368 (basic
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
369 completion-basic-try-completion completion-basic-all-completions
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
370 "Completion of the prefix before point and the suffix after point.")
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
371 (partial-completion
104785
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
372 completion-pcm-try-completion completion-pcm-all-completions
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
373 "Completion of multiple words, each one taken as a prefix.
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
374 E.g. M-x l-c-h can complete to list-command-history
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
375 and C-x C-f /u/m/s to /usr/monnier/src.")
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
376 (initials
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
377 completion-initials-try-completion completion-initials-all-completions
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
378 "Completion of acronyms and initialisms.
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
379 E.g. can complete M-x lch to list-command-history
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
380 and C-x C-f ~/sew to ~/src/emacs/work."))
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
381 "List of available completion styles.
104785
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
382 Each element has the form (NAME TRY-COMPLETION ALL-COMPLETIONS DOC):
94375
f8b940834bbb (completion-pcm-word-delimiters): Add :group.
Juanma Barranquero <lekktu@gmail.com>
parents: 94352
diff changeset
383 where NAME is the name that should be used in `completion-styles',
104785
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
384 TRY-COMPLETION is the function that does the completion (it should
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
385 follow the same calling convention as `completion-try-completion'),
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
386 ALL-COMPLETIONS is the function that lists the completions (it should
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
387 follow the calling convention of `completion-all-completions'),
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
388 and DOC describes the way this style of completion works.")
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
389
102579
cd3a023e2625 (completion-styles): Add emacs22 completion style as fallback.
Chong Yidong <cyd@stupidchicken.com>
parents: 102455
diff changeset
390 (defcustom completion-styles '(basic partial-completion emacs22)
104342
867af630a71e (completion--do-completion): Move point for the #b001 case as well (bug#4176).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104122
diff changeset
391 "List of completion styles to use.
867af630a71e (completion--do-completion): Move point for the #b001 case as well (bug#4176).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104122
diff changeset
392 The available styles are listed in `completion-styles-alist'."
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
393 :type `(repeat (choice ,@(mapcar (lambda (x) (list 'const (car x)))
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
394 completion-styles-alist)))
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
395 :group 'minibuffer
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
396 :version "23.1")
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
397
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
398 (defun completion-try-completion (string table pred point)
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
399 "Try to complete STRING using completion table TABLE.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
400 Only the elements of table that satisfy predicate PRED are considered.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
401 POINT is the position of point within STRING.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
402 The return value can be either nil to indicate that there is no completion,
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
403 t to indicate that STRING is the only possible completion,
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
404 or a pair (STRING . NEWPOINT) of the completed result string together with
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
405 a new position for point."
104785
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
406 (completion--some (lambda (style)
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
407 (funcall (nth 1 (assq style completion-styles-alist))
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
408 string table pred point))
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
409 completion-styles))
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
410
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
411 (defun completion-all-completions (string table pred point)
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
412 "List the possible completions of STRING in completion table TABLE.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
413 Only the elements of table that satisfy predicate PRED are considered.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
414 POINT is the position of point within STRING.
94375
f8b940834bbb (completion-pcm-word-delimiters): Add :group.
Juanma Barranquero <lekktu@gmail.com>
parents: 94352
diff changeset
415 The return value is a list of completions and may contain the base-size
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
416 in the last `cdr'."
104719
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
417 ;; FIXME: We need to additionally return completion-extra-size (similar
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
418 ;; to completion-base-size but for the text after point).
104785
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
419 (completion--some (lambda (style)
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
420 (funcall (nth 2 (assq style completion-styles-alist))
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
421 string table pred point))
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
422 completion-styles))
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
423
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
424 (defun minibuffer--bitset (modified completions exact)
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
425 (logior (if modified 4 0)
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
426 (if completions 2 0)
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
427 (if exact 1 0)))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
428
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
429 (defun completion--do-completion (&optional try-completion-function)
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
430 "Do the completion and return a summary of what happened.
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
431 M = completion was performed, the text was Modified.
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
432 C = there were available Completions.
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
433 E = after completion we now have an Exact match.
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
434
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
435 MCE
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
436 000 0 no possible completion
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
437 001 1 was already an exact and unique completion
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
438 010 2 no completion happened
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
439 011 3 was already an exact completion
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
440 100 4 ??? impossible
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
441 101 5 ??? impossible
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
442 110 6 some completion happened
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
443 111 7 completed to an exact completion"
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
444 (let* ((beg (field-beginning))
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
445 (end (field-end))
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
446 (string (buffer-substring beg end))
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
447 (comp (funcall (or try-completion-function
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
448 'completion-try-completion)
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
449 string
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
450 minibuffer-completion-table
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
451 minibuffer-completion-predicate
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
452 (- (point) beg))))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
453 (cond
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
454 ((null comp)
104344
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
455 (minibuffer-hide-completions)
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
456 (ding) (minibuffer-message "No match") (minibuffer--bitset nil nil nil))
104342
867af630a71e (completion--do-completion): Move point for the #b001 case as well (bug#4176).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104122
diff changeset
457 ((eq t comp)
104344
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
458 (minibuffer-hide-completions)
104342
867af630a71e (completion--do-completion): Move point for the #b001 case as well (bug#4176).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104122
diff changeset
459 (goto-char (field-end))
867af630a71e (completion--do-completion): Move point for the #b001 case as well (bug#4176).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104122
diff changeset
460 (minibuffer--bitset nil nil t)) ;Exact and unique match.
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
461 (t
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
462 ;; `completed' should be t if some completion was done, which doesn't
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
463 ;; include simply changing the case of the entered string. However,
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
464 ;; for appearance, the string is rewritten if the case changes.
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
465 (let* ((comp-pos (cdr comp))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
466 (completion (car comp))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
467 (completed (not (eq t (compare-strings completion nil nil
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
468 string nil nil t))))
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
469 (unchanged (eq t (compare-strings completion nil nil
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
470 string nil nil nil))))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
471 (unless unchanged
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
472
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
473 ;; Insert in minibuffer the chars we got.
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
474 (goto-char end)
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
475 (insert completion)
94486
ca90422b8114 (completion--do-completion): Move point even if the completion makes no change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94465
diff changeset
476 (delete-region beg end))
ca90422b8114 (completion--do-completion): Move point even if the completion makes no change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94465
diff changeset
477 ;; Move point.
ca90422b8114 (completion--do-completion): Move point even if the completion makes no change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94465
diff changeset
478 (goto-char (+ beg comp-pos))
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
479
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
480 (if (not (or unchanged completed))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
481 ;; The case of the string changed, but that's all. We're not sure
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
482 ;; whether this is a unique completion or not, so try again using
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
483 ;; the real case (this shouldn't recurse again, because the next
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
484 ;; time try-completion will return either t or the exact string).
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
485 (completion--do-completion try-completion-function)
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
486
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
487 ;; It did find a match. Do we match some possibility exactly now?
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
488 (let ((exact (test-completion completion
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
489 minibuffer-completion-table
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
490 minibuffer-completion-predicate)))
104344
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
491 (if completed
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
492 ;; We could also decide to refresh the completions,
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
493 ;; if they're displayed (and assuming there are
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
494 ;; completions left).
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
495 (minibuffer-hide-completions)
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
496 ;; Show the completion table, if requested.
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
497 (cond
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
498 ((not exact)
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
499 (if (case completion-auto-help
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
500 (lazy (eq this-command last-command))
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
501 (t completion-auto-help))
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
502 (minibuffer-completion-help)
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
503 (minibuffer-message "Next char not unique")))
104344
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
504 ;; If the last exact completion and this one were the same, it
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
505 ;; means we've already given a "Next char not unique" message
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
506 ;; and the user's hit TAB again, so now we give him help.
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
507 ((eq this-command last-command)
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
508 (if completion-auto-help (minibuffer-completion-help)))))
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
509
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
510 (minibuffer--bitset completed t exact))))))))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
511
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
512 (defun minibuffer-complete ()
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
513 "Complete the minibuffer contents as far as possible.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
514 Return nil if there is no valid completion, else t.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
515 If no characters can be completed, display a list of possible completions.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
516 If you repeat this command after it displayed such a list,
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
517 scroll the window of possible completions."
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
518 (interactive)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
519 ;; If the previous command was not this,
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
520 ;; mark the completion buffer obsolete.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
521 (unless (eq this-command last-command)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
522 (setq minibuffer-scroll-window nil))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
523
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
524 (let ((window minibuffer-scroll-window))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
525 ;; If there's a fresh completion window with a live buffer,
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
526 ;; and this command is repeated, scroll that window.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
527 (if (window-live-p window)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
528 (with-current-buffer (window-buffer window)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
529 (if (pos-visible-in-window-p (point-max) window)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
530 ;; If end is in view, scroll up to the beginning.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
531 (set-window-start window (point-min) nil)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
532 ;; Else scroll down one screen.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
533 (scroll-other-window))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
534 nil)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
535
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
536 (case (completion--do-completion)
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
537 (#b000 nil)
104342
867af630a71e (completion--do-completion): Move point for the #b001 case as well (bug#4176).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104122
diff changeset
538 (#b001 (minibuffer-message "Sole completion")
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
539 t)
104342
867af630a71e (completion--do-completion): Move point for the #b001 case as well (bug#4176).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104122
diff changeset
540 (#b011 (minibuffer-message "Complete, but not unique")
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
541 t)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
542 (t t)))))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
543
95172
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
544 (defvar completion-all-sorted-completions nil)
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
545 (make-variable-buffer-local 'completion-all-sorted-completions)
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
546
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
547 (defun completion--flush-all-sorted-completions (&rest ignore)
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
548 (setq completion-all-sorted-completions nil))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
549
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
550 (defun completion-all-sorted-completions ()
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
551 (or completion-all-sorted-completions
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
552 (let* ((start (field-beginning))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
553 (end (field-end))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
554 (all (completion-all-completions (buffer-substring start end)
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
555 minibuffer-completion-table
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
556 minibuffer-completion-predicate
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
557 (- (point) start)))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
558 (last (last all))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
559 (base-size (or (cdr last) 0)))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
560 (when last
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
561 (setcdr last nil)
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
562 ;; Prefer shorter completions.
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
563 (setq all (sort all (lambda (c1 c2) (< (length c1) (length c2)))))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
564 ;; Prefer recently used completions.
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
565 (let ((hist (symbol-value minibuffer-history-variable)))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
566 (setq all (sort all (lambda (c1 c2)
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
567 (> (length (member c1 hist))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
568 (length (member c2 hist)))))))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
569 ;; Cache the result. This is not just for speed, but also so that
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
570 ;; repeated calls to minibuffer-force-complete can cycle through
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
571 ;; all possibilities.
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
572 (add-hook 'after-change-functions
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
573 'completion--flush-all-sorted-completions nil t)
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
574 (setq completion-all-sorted-completions
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
575 (nconc all base-size))))))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
576
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
577 (defun minibuffer-force-complete ()
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
578 "Complete the minibuffer to an exact match.
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
579 Repeated uses step through the possible completions."
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
580 (interactive)
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
581 ;; FIXME: Need to deal with the extra-size issue here as well.
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
582 ;; FIXME: ~/src/emacs/t<M-TAB>/lisp/minibuffer.el completes to
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
583 ;; ~/src/emacs/trunk/ and throws away lisp/minibuffer.el.
95172
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
584 (let* ((start (field-beginning))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
585 (end (field-end))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
586 (all (completion-all-sorted-completions)))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
587 (if (not (consp all))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
588 (minibuffer-message (if all "No more completions" "No completions"))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
589 (goto-char end)
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
590 (insert (car all))
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
591 (delete-region (+ start (cdr (last all))) end)
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
592 ;; If completing file names, (car all) may be a directory, so we'd now
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
593 ;; have a new set of possible completions and might want to reset
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
594 ;; completion-all-sorted-completions to nil, but we prefer not to,
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
595 ;; so that repeated calls minibuffer-force-complete still cycle
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
596 ;; through the previous possible completions.
105174
13f171fbff05 (minibuffer-force-complete): Cycle the list, rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104792
diff changeset
597 (let ((last (last all)))
13f171fbff05 (minibuffer-force-complete): Cycle the list, rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104792
diff changeset
598 (setcdr last (cons (car all) (cdr last)))
13f171fbff05 (minibuffer-force-complete): Cycle the list, rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104792
diff changeset
599 (setq completion-all-sorted-completions (cdr all))))))
95172
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
600
100044
f42890851326 Add and use minibuffer-confirm-exit-commands variable
Miles Bader <miles@gnu.org>
parents: 100022
diff changeset
601 (defvar minibuffer-confirm-exit-commands
100052
766018471339 (minibuffer-confirm-exit-commands): Add PC-complete and
Chong Yidong <cyd@stupidchicken.com>
parents: 100044
diff changeset
602 '(minibuffer-complete minibuffer-complete-word PC-complete PC-complete-word)
100044
f42890851326 Add and use minibuffer-confirm-exit-commands variable
Miles Bader <miles@gnu.org>
parents: 100022
diff changeset
603 "A list of commands which cause an immediately following
f42890851326 Add and use minibuffer-confirm-exit-commands variable
Miles Bader <miles@gnu.org>
parents: 100022
diff changeset
604 `minibuffer-complete-and-exit' to ask for extra confirmation.")
f42890851326 Add and use minibuffer-confirm-exit-commands variable
Miles Bader <miles@gnu.org>
parents: 100022
diff changeset
605
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
606 (defun minibuffer-complete-and-exit ()
99883
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
607 "Exit if the minibuffer contains a valid completion.
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
608 Otherwise, try to complete the minibuffer contents. If
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
609 completion leads to a valid completion, a repetition of this
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
610 command will exit.
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
611
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
612 If `minibuffer-completion-confirm' is `confirm', do not try to
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
613 complete; instead, ask for confirmation and accept any input if
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
614 confirmed.
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
615 If `minibuffer-completion-confirm' is `confirm-after-completion',
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
616 do not try to complete; instead, ask for confirmation if the
102614
ac174f1dba45 (minibuffer-complete-and-exit): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102601
diff changeset
617 preceding minibuffer command was a member of
ac174f1dba45 (minibuffer-complete-and-exit): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102601
diff changeset
618 `minibuffer-confirm-exit-commands', and accept the input
ac174f1dba45 (minibuffer-complete-and-exit): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102601
diff changeset
619 otherwise."
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
620 (interactive)
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
621 (let ((beg (field-beginning))
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
622 (end (field-end)))
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
623 (cond
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
624 ;; Allow user to specify null string
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
625 ((= beg end) (exit-minibuffer))
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
626 ((test-completion (buffer-substring beg end)
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
627 minibuffer-completion-table
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
628 minibuffer-completion-predicate)
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
629 (when completion-ignore-case
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
630 ;; Fixup case of the field, if necessary.
94242
3530bf3c1687 (minibuffer-complete-and-exit): Fix last change.
Juanma Barranquero <lekktu@gmail.com>
parents: 94218
diff changeset
631 (let* ((string (buffer-substring beg end))
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
632 (compl (try-completion
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
633 string
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
634 minibuffer-completion-table
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
635 minibuffer-completion-predicate)))
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
636 (when (and (stringp compl)
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
637 ;; If it weren't for this piece of paranoia, I'd replace
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
638 ;; the whole thing with a call to do-completion.
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
639 ;; This is important, e.g. when the current minibuffer's
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
640 ;; content is a directory which only contains a single
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
641 ;; file, so `try-completion' actually completes to
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
642 ;; that file.
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
643 (= (length string) (length compl)))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
644 (goto-char end)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
645 (insert compl)
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
646 (delete-region beg end))))
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
647 (exit-minibuffer))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
648
99883
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
649 ((eq minibuffer-completion-confirm 'confirm)
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
650 ;; The user is permitted to exit with an input that's rejected
99883
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
651 ;; by test-completion, after confirming her choice.
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
652 (if (eq last-command this-command)
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
653 (exit-minibuffer)
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
654 (minibuffer-message "Confirm")
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
655 nil))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
656
99883
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
657 ((eq minibuffer-completion-confirm 'confirm-after-completion)
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
658 ;; Similar to the above, but only if trying to exit immediately
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
659 ;; after typing TAB (this catches most minibuffer typos).
100044
f42890851326 Add and use minibuffer-confirm-exit-commands variable
Miles Bader <miles@gnu.org>
parents: 100022
diff changeset
660 (if (memq last-command minibuffer-confirm-exit-commands)
99883
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
661 (progn (minibuffer-message "Confirm")
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
662 nil)
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
663 (exit-minibuffer)))
494c4c7bcf01 (minibuffer-complete-and-exit): Change `confirm-only' value of
Chong Yidong <cyd@stupidchicken.com>
parents: 99232
diff changeset
664
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
665 (t
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
666 ;; Call do-completion, but ignore errors.
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
667 (case (condition-case nil
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
668 (completion--do-completion)
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
669 (error 1))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
670 ((#b001 #b011) (exit-minibuffer))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
671 (#b111 (if (not minibuffer-completion-confirm)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
672 (exit-minibuffer)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
673 (minibuffer-message "Confirm")
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
674 nil))
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
675 (t nil))))))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
676
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
677 (defun completion--try-word-completion (string table predicate point)
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
678 (let ((comp (completion-try-completion string table predicate point)))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
679 (if (not (consp comp))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
680 comp
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
681
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
682 ;; If completion finds next char not unique,
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
683 ;; consider adding a space or a hyphen.
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
684 (when (= (length string) (length (car comp)))
102958
ca1d2b3eaecc (completion--try-word-completion): Don't disable
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102614
diff changeset
685 ;; Mark the added char with the `completion-word' property, so it
ca1d2b3eaecc (completion--try-word-completion): Don't disable
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102614
diff changeset
686 ;; can be handled specially by completion styles such as
ca1d2b3eaecc (completion--try-word-completion): Don't disable
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102614
diff changeset
687 ;; partial-completion.
ca1d2b3eaecc (completion--try-word-completion): Don't disable
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102614
diff changeset
688 ;; We used to remove `partial-completion' from completion-styles
ca1d2b3eaecc (completion--try-word-completion): Don't disable
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102614
diff changeset
689 ;; instead, but it was too blunt, leading to situations where SPC
ca1d2b3eaecc (completion--try-word-completion): Don't disable
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102614
diff changeset
690 ;; was the only insertable char at point but minibuffer-complete-word
ca1d2b3eaecc (completion--try-word-completion): Don't disable
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102614
diff changeset
691 ;; refused inserting it.
ca1d2b3eaecc (completion--try-word-completion): Don't disable
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102614
diff changeset
692 (let ((exts (mapcar (lambda (str) (propertize str 'completion-try-word t))
ca1d2b3eaecc (completion--try-word-completion): Don't disable
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102614
diff changeset
693 '(" " "-")))
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
694 (before (substring string 0 point))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
695 (after (substring string point))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
696 tem)
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
697 (while (and exts (not (consp tem)))
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
698 (setq tem (completion-try-completion
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
699 (concat before (pop exts) after)
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
700 table predicate (1+ point))))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
701 (if (consp tem) (setq comp tem))))
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
702
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
703 ;; Completing a single word is actually more difficult than completing
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
704 ;; as much as possible, because we first have to find the "current
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
705 ;; position" in `completion' in order to find the end of the word
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
706 ;; we're completing. Normally, `string' is a prefix of `completion',
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
707 ;; which makes it trivial to find the position, but with fancier
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
708 ;; completion (plus env-var expansion, ...) `completion' might not
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
709 ;; look anything like `string' at all.
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
710 (let* ((comppoint (cdr comp))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
711 (completion (car comp))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
712 (before (substring string 0 point))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
713 (combined (concat before "\n" completion)))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
714 ;; Find in completion the longest text that was right before point.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
715 (when (string-match "\\(.+\\)\n.*?\\1" combined)
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
716 (let* ((prefix (match-string 1 before))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
717 ;; We used non-greedy match to make `rem' as long as possible.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
718 (rem (substring combined (match-end 0)))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
719 ;; Find in the remainder of completion the longest text
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
720 ;; that was right after point.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
721 (after (substring string point))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
722 (suffix (if (string-match "\\`\\(.+\\).*\n.*\\1"
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
723 (concat after "\n" rem))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
724 (match-string 1 after))))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
725 ;; The general idea is to try and guess what text was inserted
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
726 ;; at point by the completion. Problem is: if we guess wrong,
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
727 ;; we may end up treating as "added by completion" text that was
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
728 ;; actually painfully typed by the user. So if we then cut
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
729 ;; after the first word, we may throw away things the
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
730 ;; user wrote. So let's try to be as conservative as possible:
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
731 ;; only cut after the first word, if we're reasonably sure that
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
732 ;; our guess is correct.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
733 ;; Note: a quick survey on emacs-devel seemed to indicate that
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
734 ;; nobody actually cares about the "word-at-a-time" feature of
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
735 ;; minibuffer-complete-word, whose real raison-d'être is that it
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
736 ;; tries to add "-" or " ". One more reason to only cut after
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
737 ;; the first word, if we're really sure we're right.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
738 (when (and (or suffix (zerop (length after)))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
739 (string-match (concat
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
740 ;; Make submatch 1 as small as possible
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
741 ;; to reduce the risk of cutting
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
742 ;; valuable text.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
743 ".*" (regexp-quote prefix) "\\(.*?\\)"
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
744 (if suffix (regexp-quote suffix) "\\'"))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
745 completion)
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
746 ;; The new point in `completion' should also be just
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
747 ;; before the suffix, otherwise something more complex
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
748 ;; is going on, and we're not sure where we are.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
749 (eq (match-end 1) comppoint)
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
750 ;; (match-beginning 1)..comppoint is now the stretch
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
751 ;; of text in `completion' that was completed at point.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
752 (string-match "\\W" completion (match-beginning 1))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
753 ;; Is there really something to cut?
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
754 (> comppoint (match-end 0)))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
755 ;; Cut after the first word.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
756 (let ((cutpos (match-end 0)))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
757 (setq completion (concat (substring completion 0 cutpos)
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
758 (substring completion comppoint)))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
759 (setq comppoint cutpos)))))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
760
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
761 (cons completion comppoint)))))
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
762
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
763
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
764 (defun minibuffer-complete-word ()
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
765 "Complete the minibuffer contents at most a single word.
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
766 After one word is completed as much as possible, a space or hyphen
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
767 is added, provided that matches some possible completion.
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
768 Return nil if there is no valid completion, else t."
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
769 (interactive)
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
770 (case (completion--do-completion 'completion--try-word-completion)
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
771 (#b000 nil)
104342
867af630a71e (completion--do-completion): Move point for the #b001 case as well (bug#4176).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104122
diff changeset
772 (#b001 (minibuffer-message "Sole completion")
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
773 t)
104342
867af630a71e (completion--do-completion): Move point for the #b001 case as well (bug#4176).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104122
diff changeset
774 (#b011 (minibuffer-message "Complete, but not unique")
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
775 t)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
776 (t t)))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
777
104344
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
778 (defface completions-annotations '((t :inherit italic))
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
779 "Face to use for annotations in the *Completions* buffer.")
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
780
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
781 (defun completion--insert-strings (strings)
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
782 "Insert a list of STRINGS into the current buffer.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
783 Uses columns to keep the listing readable but compact.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
784 It also eliminates runs of equal strings."
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
785 (when (consp strings)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
786 (let* ((length (apply 'max
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
787 (mapcar (lambda (s)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
788 (if (consp s)
94561
bbc1b1a5633e (completion--insert-strings): Use string-width rather than length.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94558
diff changeset
789 (+ (string-width (car s))
bbc1b1a5633e (completion--insert-strings): Use string-width rather than length.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94558
diff changeset
790 (string-width (cadr s)))
bbc1b1a5633e (completion--insert-strings): Use string-width rather than length.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94558
diff changeset
791 (string-width s)))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
792 strings)))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
793 (window (get-buffer-window (current-buffer) 0))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
794 (wwidth (if window (1- (window-width window)) 79))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
795 (columns (min
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
796 ;; At least 2 columns; at least 2 spaces between columns.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
797 (max 2 (/ wwidth (+ 2 length)))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
798 ;; Don't allocate more columns than we can fill.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
799 ;; Windows can't show less than 3 lines anyway.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
800 (max 1 (/ (length strings) 2))))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
801 (colwidth (/ wwidth columns))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
802 (column 0)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
803 (laststring nil))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
804 ;; The insertion should be "sensible" no matter what choices were made
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
805 ;; for the parameters above.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
806 (dolist (str strings)
101327
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
807 (unless (equal laststring str) ; Remove (consecutive) duplicates.
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
808 (setq laststring str)
101327
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
809 (let ((length (if (consp str)
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
810 (+ (string-width (car str))
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
811 (string-width (cadr str)))
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
812 (string-width str))))
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
813 (unless (bolp)
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
814 (if (< wwidth (+ (max colwidth length) column))
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
815 ;; No space for `str' at point, move to next line.
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
816 (progn (insert "\n") (setq column 0))
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
817 (insert " \t")
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
818 ;; Leave the space unpropertized so that in the case we're
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
819 ;; already past the goal column, there is still
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
820 ;; a space displayed.
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
821 (set-text-properties (- (point) 1) (point)
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
822 ;; We can't just set tab-width, because
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
823 ;; completion-setup-function will kill all
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
824 ;; local variables :-(
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
825 `(display (space :align-to ,column)))
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
826 nil))
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
827 (if (not (consp str))
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
828 (put-text-property (point) (progn (insert str) (point))
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
829 'mouse-face 'highlight)
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
830 (put-text-property (point) (progn (insert (car str)) (point))
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
831 'mouse-face 'highlight)
104344
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
832 (add-text-properties (point) (progn (insert (cadr str)) (point))
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
833 '(mouse-face nil
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
834 face completions-annotations)))
101327
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
835 ;; Next column to align to.
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
836 (setq column (+ column
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
837 ;; Round up to a whole number of columns.
b0eef2ac5a59 (completion--insert-strings): Fix up computation of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 101162
diff changeset
838 (* colwidth (ceiling length colwidth))))))))))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
839
94464
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
840 (defvar completion-common-substring nil)
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
841 (make-obsolete-variable 'completion-common-substring nil "23.1")
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
842
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
843 (defvar completion-setup-hook nil
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
844 "Normal hook run at the end of setting up a completion list buffer.
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
845 When this hook is run, the current buffer is the one in which the
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
846 command to display the completion list buffer was run.
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
847 The completion list buffer is available as the value of `standard-output'.
94464
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
848 See also `display-completion-list'.")
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
849
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
850 (defface completions-first-difference
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
851 '((t (:inherit bold)))
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
852 "Face put on the first uncommon character in completions in *Completions* buffer."
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
853 :group 'completion)
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
854
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
855 (defface completions-common-part
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
856 '((t (:inherit default)))
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
857 "Face put on the common prefix substring in completions in *Completions* buffer.
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
858 The idea of `completions-common-part' is that you can use it to
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
859 make the common parts less visible than normal, so that the rest
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
860 of the differing parts is, by contrast, slightly highlighted."
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
861 :group 'completion)
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
862
100623
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
863 (defun completion-hilit-commonality (completions prefix-len base-size)
94464
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
864 (when completions
100623
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
865 (let ((com-str-len (- prefix-len (or base-size 0))))
94464
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
866 (nconc
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
867 (mapcar
94558
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
868 (lambda (elem)
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
869 (let ((str
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
870 ;; Don't modify the string itself, but a copy, since the
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
871 ;; the string may be read-only or used for other purposes.
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
872 ;; Furthermore, since `completions' may come from
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
873 ;; display-completion-list, `elem' may be a list.
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
874 (if (consp elem)
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
875 (car (setq elem (cons (copy-sequence (car elem))
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
876 (cdr elem))))
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
877 (setq elem (copy-sequence elem)))))
100929
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
878 (put-text-property 0
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
879 ;; If completion-boundaries returns incorrect
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
880 ;; values, all-completions may return strings
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
881 ;; that don't contain the prefix.
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
882 (min com-str-len (length str))
94558
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
883 'font-lock-face 'completions-common-part
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
884 str)
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
885 (if (> (length str) com-str-len)
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
886 (put-text-property com-str-len (1+ com-str-len)
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
887 'font-lock-face 'completions-first-difference
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
888 str)))
9802c49152d9 (completion-hilit-commonality): Revert last change:
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94487
diff changeset
889 elem)
94464
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
890 completions)
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
891 base-size))))
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
892
97478
6c4680239c3f (display-completion-list): Revert last change. Only default base-size
Chong Yidong <cyd@stupidchicken.com>
parents: 97476
diff changeset
893 (defun display-completion-list (completions &optional common-substring)
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
894 "Display the list of completions, COMPLETIONS, using `standard-output'.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
895 Each element may be just a symbol or string
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
896 or may be a list of two strings to be printed as if concatenated.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
897 If it is a list of two strings, the first is the actual completion
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
898 alternative, the second serves as annotation.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
899 `standard-output' must be a buffer.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
900 The actual completion alternatives, as inserted, are given `mouse-face'
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
901 properties of `highlight'.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
902 At the end, this runs the normal hook `completion-setup-hook'.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
903 It can find the completion buffer in `standard-output'.
97476
354026fc6299 (completion-boundaries): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 97179
diff changeset
904
97544
abca40c62d44 (display-completion-list): Re-state the obsolescence of `common-substring'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 97478
diff changeset
905 The obsolete optional arg COMMON-SUBSTRING, if non-nil, should be a string
97476
354026fc6299 (completion-boundaries): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 97179
diff changeset
906 specifying a common substring for adding the faces
354026fc6299 (completion-boundaries): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 97179
diff changeset
907 `completions-first-difference' and `completions-common-part' to
97478
6c4680239c3f (display-completion-list): Revert last change. Only default base-size
Chong Yidong <cyd@stupidchicken.com>
parents: 97476
diff changeset
908 the completions buffer."
94464
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
909 (if common-substring
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
910 (setq completions (completion-hilit-commonality
100623
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
911 completions (length common-substring)
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
912 ;; We don't know the base-size.
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
913 nil)))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
914 (if (not (bufferp standard-output))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
915 ;; This *never* (ever) happens, so there's no point trying to be clever.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
916 (with-temp-buffer
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
917 (let ((standard-output (current-buffer))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
918 (completion-setup-hook nil))
97478
6c4680239c3f (display-completion-list): Revert last change. Only default base-size
Chong Yidong <cyd@stupidchicken.com>
parents: 97476
diff changeset
919 (display-completion-list completions common-substring))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
920 (princ (buffer-string)))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
921
105601
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
922 (with-current-buffer standard-output
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
923 (goto-char (point-max))
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
924 (if (null completions)
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
925 (insert "There are no possible completions of what you have typed.")
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
926 (insert "Possible completions are:\n")
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
927 (completion--insert-strings completions))))
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
928
94464
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
929 ;; The hilit used to be applied via completion-setup-hook, so there
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
930 ;; may still be some code that uses completion-common-substring.
97476
354026fc6299 (completion-boundaries): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 97179
diff changeset
931 (with-no-warnings
354026fc6299 (completion-boundaries): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 97179
diff changeset
932 (let ((completion-common-substring common-substring))
354026fc6299 (completion-boundaries): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 97179
diff changeset
933 (run-hooks 'completion-setup-hook)))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
934 nil)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
935
104719
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
936 (defvar completion-annotate-function
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
937 nil
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
938 ;; Note: there's a lot of scope as for when to add annotations and
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
939 ;; what annotations to add. E.g. completing-help.el allowed adding
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
940 ;; the first line of docstrings to M-x completion. But there's
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
941 ;; a tension, since such annotations, while useful at times, can
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
942 ;; actually drown the useful information.
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
943 ;; So completion-annotate-function should be used parsimoniously, or
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
944 ;; else only used upon a user's request (e.g. we could add a command
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
945 ;; to completion-list-mode to add annotations to the current
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
946 ;; completions).
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
947 "Function to add annotations in the *Completions* buffer.
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
948 The function takes a completion and should either return nil, or a string that
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
949 will be displayed next to the completion. The function can access the
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
950 completion table and predicates via `minibuffer-completion-table' and related
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
951 variables.")
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
952
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
953 (defun minibuffer-completion-help ()
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
954 "Display a list of possible completions of the current minibuffer contents."
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
955 (interactive)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
956 (message "Making completion list...")
105601
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
957 (let* ((start (field-beginning))
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
958 (string (field-string))
94211
81b6ecd7be01 (completion-try-completion): Change magic symbol
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94202
diff changeset
959 (completions (completion-all-completions
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
960 string
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
961 minibuffer-completion-table
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
962 minibuffer-completion-predicate
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
963 (- (point) (field-beginning)))))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
964 (message nil)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
965 (if (and completions
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
966 (or (consp (cdr completions))
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
967 (not (equal (car completions) string))))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
968 (with-output-to-temp-buffer "*Completions*"
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
969 (let* ((last (last completions))
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
970 (base-size (cdr last)))
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
971 ;; Remove the base-size tail because `sort' requires a properly
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
972 ;; nil-terminated list.
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
973 (when last (setcdr last nil))
104719
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
974 (setq completions (sort completions 'string-lessp))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
975 (when completion-annotate-function
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
976 (setq completions
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
977 (mapcar (lambda (s)
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
978 (let ((ann
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
979 (funcall completion-annotate-function s)))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
980 (if ann (list s ann) s)))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
981 completions)))
105601
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
982 (with-current-buffer standard-output
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
983 (set (make-local-variable 'completion-base-position)
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
984 ;; FIXME: We should provide the END part as well, but
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
985 ;; currently completion-all-completions does not give
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
986 ;; us the necessary information.
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
987 (list (+ start base-size) nil)))
68686d39c93a Replace completion-base-size by completion-base-position to fix bugs
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105597
diff changeset
988 (display-completion-list completions)))
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
989
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
990 ;; If there are no completions, or if the current input is already the
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
991 ;; only possible completion, then hide (previous&stale) completions.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
992 (let ((window (and (get-buffer "*Completions*")
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
993 (get-buffer-window "*Completions*" 0))))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
994 (when (and (window-live-p window) (window-dedicated-p window))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
995 (condition-case ()
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
996 (delete-window window)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
997 (error (iconify-frame (window-frame window))))))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
998 (ding)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
999 (minibuffer-message
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1000 (if completions "Sole completion" "No completions")))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1001 nil))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1002
104344
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1003 (defun minibuffer-hide-completions ()
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1004 "Get rid of an out-of-date *Completions* buffer."
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1005 ;; FIXME: We could/should use minibuffer-scroll-window here, but it
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1006 ;; can also point to the minibuffer-parent-window, so it's a bit tricky.
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1007 (let ((win (get-buffer-window "*Completions*" 0)))
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1008 (if win (with-selected-window win (bury-buffer)))))
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1009
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1010 (defun exit-minibuffer ()
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1011 "Terminate this minibuffer argument."
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1012 (interactive)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1013 ;; If the command that uses this has made modifications in the minibuffer,
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1014 ;; we don't want them to cause deactivation of the mark in the original
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1015 ;; buffer.
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1016 ;; A better solution would be to make deactivate-mark buffer-local
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1017 ;; (or to turn it into a list of buffers, ...), but in the mean time,
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1018 ;; this should do the trick in most cases.
93937
dfe13eac745b * minibuffer.el (minibuffer): Move group from cus-edit.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93885
diff changeset
1019 (setq deactivate-mark nil)
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1020 (throw 'exit nil))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1021
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1022 (defun self-insert-and-exit ()
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1023 "Terminate minibuffer input."
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1024 (interactive)
101010
4efc7ca085ce Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents: 100929
diff changeset
1025 (if (characterp last-command-event)
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1026 (call-interactively 'self-insert-command)
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1027 (ding))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1028 (exit-minibuffer))
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1029
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1030 ;;; Key bindings.
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1031
95575
d34a432d5863 * keymap.c (Vminibuffer_local_filename_must_match_map):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95426
diff changeset
1032 (define-obsolete-variable-alias 'minibuffer-local-must-match-filename-map
d34a432d5863 * keymap.c (Vminibuffer_local_filename_must_match_map):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95426
diff changeset
1033 'minibuffer-local-filename-must-match-map "23.1")
d34a432d5863 * keymap.c (Vminibuffer_local_filename_must_match_map):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95426
diff changeset
1034
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1035 (let ((map minibuffer-local-map))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1036 (define-key map "\C-g" 'abort-recursive-edit)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1037 (define-key map "\r" 'exit-minibuffer)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1038 (define-key map "\n" 'exit-minibuffer))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1039
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1040 (let ((map minibuffer-local-completion-map))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1041 (define-key map "\t" 'minibuffer-complete)
95172
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
1042 ;; M-TAB is already abused for many other purposes, so we should find
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
1043 ;; another binding for it.
894bae45bf1b (completion-all-sorted-completions): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95145
diff changeset
1044 ;; (define-key map "\e\t" 'minibuffer-force-complete)
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1045 (define-key map " " 'minibuffer-complete-word)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1046 (define-key map "?" 'minibuffer-completion-help))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1047
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1048 (let ((map minibuffer-local-must-match-map))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1049 (define-key map "\r" 'minibuffer-complete-and-exit)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1050 (define-key map "\n" 'minibuffer-complete-and-exit))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1051
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1052 (let ((map minibuffer-local-filename-completion-map))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1053 (define-key map " " nil))
95575
d34a432d5863 * keymap.c (Vminibuffer_local_filename_must_match_map):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95426
diff changeset
1054 (let ((map minibuffer-local-filename-must-match-map))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1055 (define-key map " " nil))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1056
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1057 (let ((map minibuffer-local-ns-map))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1058 (define-key map " " 'exit-minibuffer)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1059 (define-key map "\t" 'exit-minibuffer)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1060 (define-key map "?" 'self-insert-and-exit))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1061
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1062 ;;; Completion tables.
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1063
93945
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1064 (defun minibuffer--double-dollars (str)
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1065 (replace-regexp-in-string "\\$" "$$" str))
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1066
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
1067 (defun completion--make-envvar-table ()
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
1068 (mapcar (lambda (enventry)
101162
64a6da0f9aa2 * minibuffer.el (minibuffer-message): Fix regexp so it doesn't exclude
Juanma Barranquero <lekktu@gmail.com>
parents: 101010
diff changeset
1069 (substring enventry 0 (string-match-p "=" enventry)))
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
1070 process-environment))
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
1071
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1072 (defconst completion--embedded-envvar-re
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1073 (concat "\\(?:^\\|[^$]\\(?:\\$\\$\\)*\\)"
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1074 "$\\([[:alnum:]_]*\\|{\\([^}]*\\)\\)\\'"))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1075
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
1076 (defun completion--embedded-envvar-table (string pred action)
105733
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1077 "Completion table for envvars embedded in a string.
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1078 The envvar syntax (and escaping) rules followed by this table are the
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1079 same as `substitute-in-file-name'."
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1080 ;; We ignore `pred', because the predicates passed to us via
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1081 ;; read-file-name-internal are not 100% correct and fail here:
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1082 ;; e.g. we get predicates like file-directory-p there, whereas the filename
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1083 ;; completed needs to be passed through substitute-in-file-name before it
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1084 ;; can be passed to file-directory-p.
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1085 (when (string-match completion--embedded-envvar-re string)
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1086 (let* ((beg (or (match-beginning 2) (match-beginning 1)))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1087 (table (completion--make-envvar-table))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1088 (prefix (substring string 0 beg)))
105733
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1089 (cond
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1090 ((eq action 'lambda)
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1091 ;; This table is expected to be used in conjunction with some
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1092 ;; other table that provides the "main" completion. Let the
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1093 ;; other table handle the test-completion case.
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1094 nil)
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1095 ((eq (car-safe action) 'boundaries)
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1096 ;; Only return boundaries if there's something to complete,
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1097 ;; since otherwise when we're used in
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1098 ;; completion-table-in-turn, we could return boundaries and
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1099 ;; let some subsequent table return a list of completions.
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1100 ;; FIXME: Maybe it should rather be fixed in
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1101 ;; completion-table-in-turn instead, but it's difficult to
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1102 ;; do it efficiently there.
105733
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1103 (when (try-completion (substring string beg) table nil)
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1104 ;; Compute the boundaries of the subfield to which this
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1105 ;; completion applies.
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1106 (let ((suffix (cdr action)))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1107 (list* 'boundaries
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1108 (or (match-beginning 2) (match-beginning 1))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1109 (when (string-match "[^[:alnum:]_]" suffix)
105733
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1110 (match-beginning 0))))))
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1111 (t
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1112 (if (eq (aref string (1- beg)) ?{)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1113 (setq table (apply-partially 'completion-table-with-terminator
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1114 "}" table)))
104719
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
1115 ;; Even if file-name completion is case-insensitive, we want
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
1116 ;; envvar completion to be case-sensitive.
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
1117 (let ((completion-ignore-case nil))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
1118 (completion-table-with-context
105733
1528571f6bfd (completion--embedded-envvar-table): Fix last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105711
diff changeset
1119 prefix table (substring string beg) nil action)))))))
94055
ec343c7600a2 (completion--embedded-envvar-table, read-file-name-internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 94017
diff changeset
1120
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1121 (defun completion-file-name-table (string pred action)
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1122 "Completion table for file names."
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1123 (ignore-errors
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1124 (cond
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1125 ((eq (car-safe action) 'boundaries)
95228
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1126 (let ((start (length (file-name-directory string)))
101162
64a6da0f9aa2 * minibuffer.el (minibuffer-message): Fix regexp so it doesn't exclude
Juanma Barranquero <lekktu@gmail.com>
parents: 101010
diff changeset
1127 (end (string-match-p "/" (cdr action))))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1128 (list* 'boundaries start end)))
95426
92edde3e7af6 (completion-table-dynamic): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 95394
diff changeset
1129
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1130 ((eq action 'lambda)
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1131 (if (zerop (length string))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1132 nil ;Not sure why it's here, but it probably doesn't harm.
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1133 (funcall (or pred 'file-exists-p) string)))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1134
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1135 (t
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1136 (let* ((name (file-name-nondirectory string))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1137 (specdir (file-name-directory string))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1138 (realdir (or specdir default-directory)))
94055
ec343c7600a2 (completion--embedded-envvar-table, read-file-name-internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 94017
diff changeset
1139
93945
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1140 (cond
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1141 ((null action)
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1142 (let ((comp (file-name-completion name realdir pred)))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1143 (if (stringp comp)
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1144 (concat specdir comp)
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1145 comp)))
94055
ec343c7600a2 (completion--embedded-envvar-table, read-file-name-internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 94017
diff changeset
1146
93945
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1147 ((eq action t)
100623
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
1148 (let ((all (file-name-all-completions name realdir)))
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
1149
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
1150 ;; Check the predicate, if necessary.
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1151 (unless (memq pred '(nil file-exists-p))
93945
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1152 (let ((comp ())
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1153 (pred
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1154 (if (eq pred 'file-directory-p)
93945
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1155 ;; Brute-force speed up for directory checking:
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1156 ;; Discard strings which don't end in a slash.
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1157 (lambda (s)
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1158 (let ((len (length s)))
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1159 (and (> len 0) (eq (aref s (1- len)) ?/))))
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1160 ;; Must do it the hard (and slow) way.
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1161 pred)))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1162 (let ((default-directory (expand-file-name realdir)))
93945
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1163 (dolist (tem all)
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1164 (if (funcall pred tem) (push tem comp))))
94062
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
1165 (setq all (nreverse comp))))
9fefa536be58 * minibuffer.el (completion-all-completion-with-base-size): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94055
diff changeset
1166
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1167 all))))))))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1168
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1169 (defvar read-file-name-predicate nil
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1170 "Current predicate used by `read-file-name-internal'.")
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1171 (make-obsolete-variable 'read-file-name-predicate
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1172 "use the regular PRED argument" "23.2")
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1173
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1174 (defun completion--file-name-table (string pred action)
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1175 "Internal subroutine for `read-file-name'. Do not call this.
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1176 This is a completion table for file names, like `completion-file-name-table'
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1177 except that it passes the file name through `substitute-in-file-name'."
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1178 (cond
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1179 ((eq (car-safe action) 'boundaries)
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1180 ;; For the boundaries, we can't really delegate to
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1181 ;; completion-file-name-table and then fix them up, because it
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1182 ;; would require us to track the relationship between `str' and
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1183 ;; `string', which is difficult. And in any case, if
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1184 ;; substitute-in-file-name turns "fo-$TO-ba" into "fo-o/b-ba", there's
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1185 ;; no way for us to return proper boundaries info, because the
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1186 ;; boundary is not (yet) in `string'.
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1187 (let ((start (length (file-name-directory string)))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1188 (end (string-match-p "/" (cdr action))))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1189 (list* 'boundaries start end)))
93945
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1190
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1191 (t
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1192 (let* ((default-directory
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1193 (if (stringp pred)
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1194 ;; It used to be that `pred' was abused to pass `dir'
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1195 ;; as an argument.
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1196 (prog1 (file-name-as-directory (expand-file-name pred))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1197 (setq pred nil))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1198 default-directory))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1199 (str (condition-case nil
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1200 (substitute-in-file-name string)
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1201 (error string)))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1202 (comp (completion-file-name-table
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1203 str (or pred read-file-name-predicate) action)))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1204
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1205 (cond
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1206 ((stringp comp)
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1207 ;; Requote the $s before returning the completion.
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1208 (minibuffer--double-dollars comp))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1209 ((and (null action) comp
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1210 ;; Requote the $s before checking for changes.
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1211 (setq str (minibuffer--double-dollars str))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1212 (not (string-equal string str)))
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1213 ;; If there's no real completion, but substitute-in-file-name
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1214 ;; changed the string, then return the new string.
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1215 str)
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1216 (t comp))))))
93945
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1217
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
1218 (defalias 'read-file-name-internal
94055
ec343c7600a2 (completion--embedded-envvar-table, read-file-name-internal):
Juanma Barranquero <lekktu@gmail.com>
parents: 94017
diff changeset
1219 (completion-table-in-turn 'completion--embedded-envvar-table
94077
28e2f73174d6 (completion-table-with-terminator): Those completions
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94069
diff changeset
1220 'completion--file-name-table)
94013
bd1b8b62427b * minibuffer.el (complete-with-action, lazy-completion-table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93945
diff changeset
1221 "Internal subroutine for `read-file-name'. Do not call this.")
93945
76ebfa5df8a2 * minibuffer.el (minibuffer--double-dollars, read-file-name-internal):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93944
diff changeset
1222
94300
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1223 (defvar read-file-name-function nil
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1224 "If this is non-nil, `read-file-name' does its work by calling this function.")
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1225
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1226 (defcustom read-file-name-completion-ignore-case
97179
e99e1b5c726e (read-file-name-completion-ignore-case): Add cygwin to the list.
Chong Yidong <cyd@stupidchicken.com>
parents: 97142
diff changeset
1227 (if (memq system-type '(ms-dos windows-nt darwin cygwin))
94300
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1228 t nil)
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1229 "Non-nil means when reading a file name completion ignores case."
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1230 :group 'minibuffer
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1231 :type 'boolean
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1232 :version "22.1")
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1233
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1234 (defcustom insert-default-directory t
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1235 "Non-nil means when reading a filename start with default dir in minibuffer.
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1236
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1237 When the initial minibuffer contents show a name of a file or a directory,
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1238 typing RETURN without editing the initial contents is equivalent to typing
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1239 the default file name.
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1240
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1241 If this variable is non-nil, the minibuffer contents are always
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1242 initially non-empty, and typing RETURN without editing will fetch the
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1243 default name, if one is provided. Note however that this default name
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1244 is not necessarily the same as initial contents inserted in the minibuffer,
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1245 if the initial contents is just the default directory.
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1246
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1247 If this variable is nil, the minibuffer often starts out empty. In
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1248 that case you may have to explicitly fetch the next history element to
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1249 request the default name; typing RETURN without editing will leave
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1250 the minibuffer empty.
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1251
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1252 For some commands, exiting with an empty minibuffer has a special meaning,
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1253 such as making the current buffer visit no file in the case of
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1254 `set-visited-file-name'."
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1255 :group 'minibuffer
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1256 :type 'boolean)
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1257
94315
755dd4bba830 (x-file-dialog): Declare as function.
Glenn Morris <rgm@gnu.org>
parents: 94304
diff changeset
1258 ;; Not always defined, but only called if next-read-file-uses-dialog-p says so.
755dd4bba830 (x-file-dialog): Declare as function.
Glenn Morris <rgm@gnu.org>
parents: 94304
diff changeset
1259 (declare-function x-file-dialog "xfns.c"
755dd4bba830 (x-file-dialog): Declare as function.
Glenn Morris <rgm@gnu.org>
parents: 94304
diff changeset
1260 (prompt dir &optional default-filename mustmatch only-dir-p))
755dd4bba830 (x-file-dialog): Declare as function.
Glenn Morris <rgm@gnu.org>
parents: 94304
diff changeset
1261
94300
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1262 (defun read-file-name (prompt &optional dir default-filename mustmatch initial predicate)
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1263 "Read file name, prompting with PROMPT and completing in directory DIR.
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1264 Value is not expanded---you must call `expand-file-name' yourself.
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1265 Default name to DEFAULT-FILENAME if user exits the minibuffer with
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1266 the same non-empty string that was inserted by this function.
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1267 (If DEFAULT-FILENAME is omitted, the visited file name is used,
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1268 except that if INITIAL is specified, that combined with DIR is used.)
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1269 If the user exits with an empty minibuffer, this function returns
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1270 an empty string. (This can only happen if the user erased the
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1271 pre-inserted contents or if `insert-default-directory' is nil.)
102601
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1272
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1273 Fourth arg MUSTMATCH can take the following values:
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1274 - nil means that the user can exit with any input.
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1275 - t means that the user is not allowed to exit unless
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1276 the input is (or completes to) an existing file.
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1277 - `confirm' means that the user can exit with any input, but she needs
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1278 to confirm her choice if the input is not an existing file.
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1279 - `confirm-after-completion' means that the user can exit with any
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1280 input, but she needs to confirm her choice if she called
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1281 `minibuffer-complete' right before `minibuffer-complete-and-exit'
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1282 and the input is not an existing file.
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1283 - anything else behaves like t except that typing RET does not exit if it
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1284 does non-null completion.
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1285
94300
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1286 Fifth arg INITIAL specifies text to start with.
102601
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1287
94300
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1288 If optional sixth arg PREDICATE is non-nil, possible completions and
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1289 the resulting file name must satisfy (funcall PREDICATE NAME).
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1290 DIR should be an absolute directory name. It defaults to the value of
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1291 `default-directory'.
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1292
102601
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1293 If this command was invoked with the mouse, use a graphical file
68c67342e3bf (read-file-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 102579
diff changeset
1294 dialog if `use-dialog-box' is non-nil, and the window system or X
105824
06f1348e3279 * minibuffer.el (read-file-name): Don't use file dialogs for
Chong Yidong <cyd@stupidchicken.com>
parents: 105763
diff changeset
1295 toolkit in use provides a file dialog box, and DIR is not a
06f1348e3279 * minibuffer.el (read-file-name): Don't use file dialogs for
Chong Yidong <cyd@stupidchicken.com>
parents: 105763
diff changeset
1296 remote file. For graphical file dialogs, any the special values
06f1348e3279 * minibuffer.el (read-file-name): Don't use file dialogs for
Chong Yidong <cyd@stupidchicken.com>
parents: 105763
diff changeset
1297 of MUSTMATCH; `confirm' and `confirm-after-completion' are
06f1348e3279 * minibuffer.el (read-file-name): Don't use file dialogs for
Chong Yidong <cyd@stupidchicken.com>
parents: 105763
diff changeset
1298 treated as equivalent to nil.
94300
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1299
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1300 See also `read-file-name-completion-ignore-case'
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1301 and `read-file-name-function'."
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1302 (unless dir (setq dir default-directory))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1303 (unless (file-name-absolute-p dir) (setq dir (expand-file-name dir)))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1304 (unless default-filename
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1305 (setq default-filename (if initial (expand-file-name initial dir)
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1306 buffer-file-name)))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1307 ;; If dir starts with user's homedir, change that to ~.
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1308 (setq dir (abbreviate-file-name dir))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1309 ;; Likewise for default-filename.
94301
9060af7294b9 (read-file-name): Don't let-bind default-directory.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94300
diff changeset
1310 (if default-filename
9060af7294b9 (read-file-name): Don't let-bind default-directory.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94300
diff changeset
1311 (setq default-filename (abbreviate-file-name default-filename)))
94300
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1312 (let ((insdef (cond
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1313 ((and insert-default-directory (stringp dir))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1314 (if initial
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1315 (cons (minibuffer--double-dollars (concat dir initial))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1316 (length (minibuffer--double-dollars dir)))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1317 (minibuffer--double-dollars dir)))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1318 (initial (cons (minibuffer--double-dollars initial) 0)))))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1319
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1320 (if read-file-name-function
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1321 (funcall read-file-name-function
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1322 prompt dir default-filename mustmatch initial predicate)
94301
9060af7294b9 (read-file-name): Don't let-bind default-directory.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94300
diff changeset
1323 (let ((completion-ignore-case read-file-name-completion-ignore-case)
94300
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1324 (minibuffer-completing-file-name t)
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1325 (pred (or predicate 'file-exists-p))
94300
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1326 (add-to-history nil))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1327
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1328 (let* ((val
105824
06f1348e3279 * minibuffer.el (read-file-name): Don't use file dialogs for
Chong Yidong <cyd@stupidchicken.com>
parents: 105763
diff changeset
1329 (if (or (not (next-read-file-uses-dialog-p))
06f1348e3279 * minibuffer.el (read-file-name): Don't use file dialogs for
Chong Yidong <cyd@stupidchicken.com>
parents: 105763
diff changeset
1330 ;; Graphical file dialogs can't handle remote
06f1348e3279 * minibuffer.el (read-file-name): Don't use file dialogs for
Chong Yidong <cyd@stupidchicken.com>
parents: 105763
diff changeset
1331 ;; files (Bug#99).
06f1348e3279 * minibuffer.el (read-file-name): Don't use file dialogs for
Chong Yidong <cyd@stupidchicken.com>
parents: 105763
diff changeset
1332 (file-remote-p dir))
94301
9060af7294b9 (read-file-name): Don't let-bind default-directory.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94300
diff changeset
1333 ;; We used to pass `dir' to `read-file-name-internal' by
9060af7294b9 (read-file-name): Don't let-bind default-directory.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94300
diff changeset
1334 ;; abusing the `predicate' argument. It's better to
9060af7294b9 (read-file-name): Don't let-bind default-directory.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94300
diff changeset
1335 ;; just use `default-directory', but in order to avoid
9060af7294b9 (read-file-name): Don't let-bind default-directory.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94300
diff changeset
1336 ;; changing `default-directory' in the current buffer,
9060af7294b9 (read-file-name): Don't let-bind default-directory.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94300
diff changeset
1337 ;; we don't let-bind it.
9060af7294b9 (read-file-name): Don't let-bind default-directory.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94300
diff changeset
1338 (lexical-let ((dir (file-name-as-directory
9060af7294b9 (read-file-name): Don't let-bind default-directory.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94300
diff changeset
1339 (expand-file-name dir))))
9060af7294b9 (read-file-name): Don't let-bind default-directory.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94300
diff changeset
1340 (minibuffer-with-setup-hook
9060af7294b9 (read-file-name): Don't let-bind default-directory.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94300
diff changeset
1341 (lambda () (setq default-directory dir))
9060af7294b9 (read-file-name): Don't let-bind default-directory.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94300
diff changeset
1342 (completing-read prompt 'read-file-name-internal
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1343 pred mustmatch insdef
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1344 'file-name-history default-filename)))
102455
03ed2dba14f6 (read-file-name): Only split dir name when
Jason Rumney <jasonr@gnu.org>
parents: 101999
diff changeset
1345 ;; If DEFAULT-FILENAME not supplied and DIR contains
03ed2dba14f6 (read-file-name): Only split dir name when
Jason Rumney <jasonr@gnu.org>
parents: 101999
diff changeset
1346 ;; a file name, split it.
104122
9fb3df55079f (read-file-name): Treat confirm options to
Jason Rumney <jasonr@gnu.org>
parents: 102958
diff changeset
1347 (let ((file (file-name-nondirectory dir))
9fb3df55079f (read-file-name): Treat confirm options to
Jason Rumney <jasonr@gnu.org>
parents: 102958
diff changeset
1348 ;; When using a dialog, revert to nil and non-nil
9fb3df55079f (read-file-name): Treat confirm options to
Jason Rumney <jasonr@gnu.org>
parents: 102958
diff changeset
1349 ;; interpretation of mustmatch. confirm options
9fb3df55079f (read-file-name): Treat confirm options to
Jason Rumney <jasonr@gnu.org>
parents: 102958
diff changeset
1350 ;; need to be interpreted as nil, otherwise
9fb3df55079f (read-file-name): Treat confirm options to
Jason Rumney <jasonr@gnu.org>
parents: 102958
diff changeset
1351 ;; it is impossible to create new files using
9fb3df55079f (read-file-name): Treat confirm options to
Jason Rumney <jasonr@gnu.org>
parents: 102958
diff changeset
1352 ;; dialogs with the default settings.
9fb3df55079f (read-file-name): Treat confirm options to
Jason Rumney <jasonr@gnu.org>
parents: 102958
diff changeset
1353 (dialog-mustmatch
105697
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1354 (not (memq mustmatch
136cf2d23c90 * minibuffer.el (completion-table-with-terminator): Properly implement
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105664
diff changeset
1355 '(nil confirm confirm-after-completion)))))
102455
03ed2dba14f6 (read-file-name): Only split dir name when
Jason Rumney <jasonr@gnu.org>
parents: 101999
diff changeset
1356 (when (and (not default-filename)
03ed2dba14f6 (read-file-name): Only split dir name when
Jason Rumney <jasonr@gnu.org>
parents: 101999
diff changeset
1357 (not (zerop (length file))))
94300
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1358 (setq default-filename file)
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1359 (setq dir (file-name-directory dir)))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1360 (if default-filename
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1361 (setq default-filename
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1362 (expand-file-name default-filename dir)))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1363 (setq add-to-history t)
104122
9fb3df55079f (read-file-name): Treat confirm options to
Jason Rumney <jasonr@gnu.org>
parents: 102958
diff changeset
1364 (x-file-dialog prompt dir default-filename
9fb3df55079f (read-file-name): Treat confirm options to
Jason Rumney <jasonr@gnu.org>
parents: 102958
diff changeset
1365 dialog-mustmatch
94300
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1366 (eq predicate 'file-directory-p)))))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1367
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1368 (replace-in-history (eq (car-safe file-name-history) val)))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1369 ;; If completing-read returned the inserted default string itself
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1370 ;; (rather than a new string with the same contents),
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1371 ;; it has to mean that the user typed RET with the minibuffer empty.
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1372 ;; In that case, we really want to return ""
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1373 ;; so that commands such as set-visited-file-name can distinguish.
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1374 (when (eq val default-filename)
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1375 ;; In this case, completing-read has not added an element
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1376 ;; to the history. Maybe we should.
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1377 (if (not replace-in-history)
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1378 (setq add-to-history t))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1379 (setq val ""))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1380 (unless val (error "No file name specified"))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1381
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1382 (if (and default-filename
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1383 (string-equal val (if (consp insdef) (car insdef) insdef)))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1384 (setq val default-filename))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1385 (setq val (substitute-in-file-name val))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1386
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1387 (if replace-in-history
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1388 ;; Replace what Fcompleting_read added to the history
105664
6a6fcf3e8e4d * minibuffer.el (read-file-name): Check for repeat before putting
Chong Yidong <cyd@stupidchicken.com>
parents: 105601
diff changeset
1389 ;; with what we will actually return. As an exception,
6a6fcf3e8e4d * minibuffer.el (read-file-name): Check for repeat before putting
Chong Yidong <cyd@stupidchicken.com>
parents: 105601
diff changeset
1390 ;; if that's the same as the second item in
6a6fcf3e8e4d * minibuffer.el (read-file-name): Check for repeat before putting
Chong Yidong <cyd@stupidchicken.com>
parents: 105601
diff changeset
1391 ;; file-name-history, it's really a repeat (Bug#4657).
94300
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1392 (let ((val1 (minibuffer--double-dollars val)))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1393 (if history-delete-duplicates
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1394 (setcdr file-name-history
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1395 (delete val1 (cdr file-name-history))))
105664
6a6fcf3e8e4d * minibuffer.el (read-file-name): Check for repeat before putting
Chong Yidong <cyd@stupidchicken.com>
parents: 105601
diff changeset
1396 (if (string= val1 (cadr file-name-history))
6a6fcf3e8e4d * minibuffer.el (read-file-name): Check for repeat before putting
Chong Yidong <cyd@stupidchicken.com>
parents: 105601
diff changeset
1397 (pop file-name-history)
6a6fcf3e8e4d * minibuffer.el (read-file-name): Check for repeat before putting
Chong Yidong <cyd@stupidchicken.com>
parents: 105601
diff changeset
1398 (setcar file-name-history val1)))
94300
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1399 (if add-to-history
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1400 ;; Add the value to the history--but not if it matches
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1401 ;; the last value already there.
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1402 (let ((val1 (minibuffer--double-dollars val)))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1403 (unless (and (consp file-name-history)
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1404 (equal (car file-name-history) val1))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1405 (setq file-name-history
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1406 (cons val1
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1407 (if history-delete-duplicates
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1408 (delete val1 file-name-history)
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1409 file-name-history)))))))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1410 val)))))
b47239d57d36 * lisp/minibuffer.el (read-file-name-function, read-file-name-predicate)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94247
diff changeset
1411
94247
57c8f6a6456a (internal-complete-buffer-except): New function.
Juri Linkov <juri@jurta.org>
parents: 94242
diff changeset
1412 (defun internal-complete-buffer-except (&optional buffer)
57c8f6a6456a (internal-complete-buffer-except): New function.
Juri Linkov <juri@jurta.org>
parents: 94242
diff changeset
1413 "Perform completion on all buffers excluding BUFFER.
101999
efada72951fb * minibuffer.el (internal-complete-buffer-except): Doc fix. (Bug#2315)
Juanma Barranquero <lekktu@gmail.com>
parents: 101327
diff changeset
1414 BUFFER nil or omitted means use the current buffer.
94247
57c8f6a6456a (internal-complete-buffer-except): New function.
Juri Linkov <juri@jurta.org>
parents: 94242
diff changeset
1415 Like `internal-complete-buffer', but removes BUFFER from the completion list."
57c8f6a6456a (internal-complete-buffer-except): New function.
Juri Linkov <juri@jurta.org>
parents: 94242
diff changeset
1416 (lexical-let ((except (if (stringp buffer) buffer (buffer-name buffer))))
57c8f6a6456a (internal-complete-buffer-except): New function.
Juri Linkov <juri@jurta.org>
parents: 94242
diff changeset
1417 (apply-partially 'completion-table-with-predicate
57c8f6a6456a (internal-complete-buffer-except): New function.
Juri Linkov <juri@jurta.org>
parents: 94242
diff changeset
1418 'internal-complete-buffer
57c8f6a6456a (internal-complete-buffer-except): New function.
Juri Linkov <juri@jurta.org>
parents: 94242
diff changeset
1419 (lambda (name)
57c8f6a6456a (internal-complete-buffer-except): New function.
Juri Linkov <juri@jurta.org>
parents: 94242
diff changeset
1420 (not (equal (if (consp name) (car name) name) except)))
57c8f6a6456a (internal-complete-buffer-except): New function.
Juri Linkov <juri@jurta.org>
parents: 94242
diff changeset
1421 nil)))
57c8f6a6456a (internal-complete-buffer-except): New function.
Juri Linkov <juri@jurta.org>
parents: 94242
diff changeset
1422
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1423 ;;; Old-style completion, used in Emacs-21 and Emacs-22.
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1424
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1425 (defun completion-emacs21-try-completion (string table pred point)
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1426 (let ((completion (try-completion string table pred)))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1427 (if (stringp completion)
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1428 (cons completion (length completion))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1429 completion)))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1430
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1431 (defun completion-emacs21-all-completions (string table pred point)
94464
66b02cd7b956 * minibuffer.el (completion-common-substring): Mark obsolete.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94427
diff changeset
1432 (completion-hilit-commonality
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1433 (all-completions string table pred)
100623
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
1434 (length string)
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
1435 (car (completion-boundaries string table pred ""))))
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1436
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1437 (defun completion-emacs22-try-completion (string table pred point)
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1438 (let ((suffix (substring string point))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1439 (completion (try-completion (substring string 0 point) table pred)))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1440 (if (not (stringp completion))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1441 completion
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1442 ;; Merge a trailing / in completion with a / after point.
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1443 ;; We used to only do it for word completion, but it seems to make
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1444 ;; sense for all completions.
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1445 ;; Actually, claiming this feature was part of Emacs-22 completion
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1446 ;; is pushing it a bit: it was only done in minibuffer-completion-word,
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1447 ;; which was (by default) not bound during file completion, where such
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1448 ;; slashes are most likely to occur.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1449 (if (and (not (zerop (length completion)))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1450 (eq ?/ (aref completion (1- (length completion))))
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1451 (not (zerop (length suffix)))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1452 (eq ?/ (aref suffix 0)))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1453 ;; This leaves point after the / .
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1454 (setq suffix (substring suffix 1)))
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1455 (cons (concat completion suffix) (length completion)))))
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1456
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1457 (defun completion-emacs22-all-completions (string table pred point)
100623
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
1458 (let ((beforepoint (substring string 0 point)))
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
1459 (completion-hilit-commonality
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
1460 (all-completions beforepoint table pred)
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
1461 point
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
1462 (car (completion-boundaries beforepoint table pred "")))))
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1463
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1464 ;;; Basic completion.
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1465
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1466 (defun completion--merge-suffix (completion point suffix)
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1467 "Merge end of COMPLETION with beginning of SUFFIX.
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1468 Simple generalization of the \"merge trailing /\" done in Emacs-22.
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1469 Return the new suffix."
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1470 (if (and (not (zerop (length suffix)))
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1471 (string-match "\\(.+\\)\n\\1" (concat completion "\n" suffix)
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1472 ;; Make sure we don't compress things to less
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1473 ;; than we started with.
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1474 point)
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1475 ;; Just make sure we didn't match some other \n.
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1476 (eq (match-end 1) (length completion)))
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1477 (substring suffix (- (match-end 1) (match-beginning 1)))
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1478 ;; Nothing to merge.
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1479 suffix))
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1480
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1481 (defun completion-basic-try-completion (string table pred point)
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1482 (let* ((beforepoint (substring string 0 point))
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1483 (afterpoint (substring string point))
96294
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1484 (bounds (completion-boundaries beforepoint table pred afterpoint)))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1485 (if (zerop (cdr bounds))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1486 ;; `try-completion' may return a subtly different result
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1487 ;; than `all+merge', so try to use it whenever possible.
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1488 (let ((completion (try-completion beforepoint table pred)))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1489 (if (not (stringp completion))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1490 completion
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1491 (cons
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1492 (concat completion
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1493 (completion--merge-suffix completion point afterpoint))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1494 (length completion))))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1495 (let* ((suffix (substring afterpoint (cdr bounds)))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1496 (prefix (substring beforepoint 0 (car bounds)))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1497 (pattern (delete
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1498 "" (list (substring beforepoint (car bounds))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1499 'point
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1500 (substring afterpoint 0 (cdr bounds)))))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1501 (all (completion-pcm--all-completions prefix pattern table pred)))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1502 (if minibuffer-completing-file-name
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1503 (setq all (completion-pcm--filename-try-filter all)))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1504 (completion-pcm--merge-try pattern all prefix suffix)))))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1505
96294
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1506 (defun completion-basic-all-completions (string table pred point)
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1507 (let* ((beforepoint (substring string 0 point))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1508 (afterpoint (substring string point))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1509 (bounds (completion-boundaries beforepoint table pred afterpoint))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1510 (suffix (substring afterpoint (cdr bounds)))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1511 (prefix (substring beforepoint 0 (car bounds)))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1512 (pattern (delete
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1513 "" (list (substring beforepoint (car bounds))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1514 'point
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1515 (substring afterpoint 0 (cdr bounds)))))
f12e581d977f (completion-basic-try-completion): Use the text after
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95799
diff changeset
1516 (all (completion-pcm--all-completions prefix pattern table pred)))
100623
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
1517 (completion-hilit-commonality all point (car bounds))))
94304
bc48ced5cf89 (completion-try-completion): Add `point' argument. Change return value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94301
diff changeset
1518
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1519 ;;; Partial-completion-mode style completion.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1520
104344
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1521 (defvar completion-pcm--delim-wild-regex nil
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1522 "Regular expression matching delimiters controlling the partial-completion.
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1523 Typically, this regular expression simply matches a delimiter, meaning
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1524 that completion can add something at (match-beginning 0), but if it has
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1525 a submatch 1, then completion can add something at (match-end 1).
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1526 This is used when the delimiter needs to be of size zero (e.g. the transition
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1527 from lowercase to uppercase characters).")
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1528
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1529 (defun completion-pcm--prepare-delim-re (delims)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1530 (setq completion-pcm--delim-wild-regex (concat "[" delims "*]")))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1531
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1532 (defcustom completion-pcm-word-delimiters "-_. "
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1533 "A string of characters treated as word delimiters for completion.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1534 Some arcane rules:
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1535 If `]' is in this string, it must come first.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1536 If `^' is in this string, it must not come first.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1537 If `-' is in this string, it must come first or right after `]'.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1538 In other words, if S is this string, then `[S]' must be a valid Emacs regular
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1539 expression (not containing character ranges like `a-z')."
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1540 :set (lambda (symbol value)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1541 (set-default symbol value)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1542 ;; Refresh other vars.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1543 (completion-pcm--prepare-delim-re value))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1544 :initialize 'custom-initialize-reset
94375
f8b940834bbb (completion-pcm-word-delimiters): Add :group.
Juanma Barranquero <lekktu@gmail.com>
parents: 94352
diff changeset
1545 :group 'minibuffer
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1546 :type 'string)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1547
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1548 (defun completion-pcm--pattern-trivial-p (pattern)
100929
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1549 (and (stringp (car pattern))
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1550 ;; It can be followed by `point' and "" and still be trivial.
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1551 (let ((trivial t))
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1552 (dolist (elem (cdr pattern))
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1553 (unless (member elem '(point ""))
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1554 (setq trivial nil)))
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1555 trivial)))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1556
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1557 (defun completion-pcm--string->pattern (string &optional point)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1558 "Split STRING into a pattern.
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1559 A pattern is a list where each element is either a string
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1560 or a symbol chosen among `any', `star', `point'."
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1561 (if (and point (< point (length string)))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1562 (let ((prefix (substring string 0 point))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1563 (suffix (substring string point)))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1564 (append (completion-pcm--string->pattern prefix)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1565 '(point)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1566 (completion-pcm--string->pattern suffix)))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1567 (let ((pattern nil)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1568 (p 0)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1569 (p0 0))
94375
f8b940834bbb (completion-pcm-word-delimiters): Add :group.
Juanma Barranquero <lekktu@gmail.com>
parents: 94352
diff changeset
1570
104344
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1571 (while (and (setq p (string-match completion-pcm--delim-wild-regex
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1572 string p))
102958
ca1d2b3eaecc (completion--try-word-completion): Don't disable
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102614
diff changeset
1573 ;; If the char was added by minibuffer-complete-word, then
ca1d2b3eaecc (completion--try-word-completion): Don't disable
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102614
diff changeset
1574 ;; don't treat it as a delimiter, otherwise "M-x SPC"
ca1d2b3eaecc (completion--try-word-completion): Don't disable
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102614
diff changeset
1575 ;; ends up inserting a "-" rather than listing
ca1d2b3eaecc (completion--try-word-completion): Don't disable
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102614
diff changeset
1576 ;; all completions.
ca1d2b3eaecc (completion--try-word-completion): Don't disable
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102614
diff changeset
1577 (not (get-text-property p 'completion-try-word string)))
104344
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1578 ;; Usually, completion-pcm--delim-wild-regex matches a delimiter,
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1579 ;; meaning that something can be added *before* it, but it can also
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1580 ;; match a prefix and postfix, in which case something can be added
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1581 ;; in-between (e.g. match [[:lower:]][[:upper:]]).
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1582 ;; This is determined by the presence of a submatch-1 which delimits
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1583 ;; the prefix.
ffa2f09da5b2 (minibuffer-hide-completions): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104342
diff changeset
1584 (if (match-end 1) (setq p (match-end 1)))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1585 (push (substring string p0 p) pattern)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1586 (if (eq (aref string p) ?*)
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1587 (progn
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1588 (push 'star pattern)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1589 (setq p0 (1+ p)))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1590 (push 'any pattern)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1591 (setq p0 p))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1592 (incf p))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1593
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1594 ;; An empty string might be erroneously added at the beginning.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1595 ;; It should be avoided properly, but it's so easy to remove it here.
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1596 (delete "" (nreverse (cons (substring string p0) pattern))))))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1597
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1598 (defun completion-pcm--pattern->regex (pattern &optional group)
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1599 (let ((re
104719
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
1600 (concat "\\`"
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
1601 (mapconcat
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
1602 (lambda (x)
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
1603 (case x
97966
52f84cb577bb (completion-pcm--pattern->regex): Undo last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 97934
diff changeset
1604 ((star any point)
52f84cb577bb (completion-pcm--pattern->regex): Undo last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 97934
diff changeset
1605 (if (if (consp group) (memq x group) group)
104719
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
1606 "\\(.*?\\)" ".*?"))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
1607 (t (regexp-quote x))))
8f0f04f98654 (minibuffer-message): If the current buffer is not
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104344
diff changeset
1608 pattern
97966
52f84cb577bb (completion-pcm--pattern->regex): Undo last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 97934
diff changeset
1609 ""))))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1610 ;; Avoid pathological backtracking.
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1611 (while (string-match "\\.\\*\\?\\(?:\\\\[()]\\)*\\(\\.\\*\\?\\)" re)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1612 (setq re (replace-match "" t t re 1)))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1613 re))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1614
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1615 (defun completion-pcm--all-completions (prefix pattern table pred)
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1616 "Find all completions for PATTERN in TABLE obeying PRED.
94375
f8b940834bbb (completion-pcm-word-delimiters): Add :group.
Juanma Barranquero <lekktu@gmail.com>
parents: 94352
diff changeset
1617 PATTERN is as returned by `completion-pcm--string->pattern'."
100623
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
1618 ;; (assert (= (car (completion-boundaries prefix table pred ""))
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
1619 ;; (length prefix)))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1620 ;; Find an initial list of possible completions.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1621 (if (completion-pcm--pattern-trivial-p pattern)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1622
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1623 ;; Minibuffer contains no delimiters -- simple case!
100623
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
1624 (all-completions (concat prefix (car pattern)) table pred)
94375
f8b940834bbb (completion-pcm-word-delimiters): Add :group.
Juanma Barranquero <lekktu@gmail.com>
parents: 94352
diff changeset
1625
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1626 ;; Use all-completions to do an initial cull. This is a big win,
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1627 ;; since all-completions is written in C!
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1628 (let* (;; Convert search pattern to a standard regular expression.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1629 (regex (completion-pcm--pattern->regex pattern))
97966
52f84cb577bb (completion-pcm--pattern->regex): Undo last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 97934
diff changeset
1630 (case-fold-search completion-ignore-case)
52f84cb577bb (completion-pcm--pattern->regex): Undo last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 97934
diff changeset
1631 (completion-regexp-list (cons regex completion-regexp-list))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1632 (compl (all-completions
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1633 (concat prefix (if (stringp (car pattern)) (car pattern) ""))
100623
5a144164af93 (completion-all-completions-with-base-size): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100052
diff changeset
1634 table pred)))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1635 (if (not (functionp table))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1636 ;; The internal functions already obeyed completion-regexp-list.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1637 compl
97966
52f84cb577bb (completion-pcm--pattern->regex): Undo last change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 97934
diff changeset
1638 (let ((poss ()))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1639 (dolist (c compl)
101162
64a6da0f9aa2 * minibuffer.el (minibuffer-message): Fix regexp so it doesn't exclude
Juanma Barranquero <lekktu@gmail.com>
parents: 101010
diff changeset
1640 (when (string-match-p regex c) (push c poss)))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1641 poss)))))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1642
94465
e2562e0fe05e (completion-hilit-commonality): Remove leftover code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94464
diff changeset
1643 (defun completion-pcm--hilit-commonality (pattern completions)
e2562e0fe05e (completion-hilit-commonality): Remove leftover code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94464
diff changeset
1644 (when completions
e2562e0fe05e (completion-hilit-commonality): Remove leftover code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94464
diff changeset
1645 (let* ((re (completion-pcm--pattern->regex pattern '(point)))
100929
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1646 (case-fold-search completion-ignore-case))
94465
e2562e0fe05e (completion-hilit-commonality): Remove leftover code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94464
diff changeset
1647 ;; Remove base-size during mapcar, and add it back later.
100929
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1648 (mapcar
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1649 (lambda (str)
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1650 ;; Don't modify the string itself.
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1651 (setq str (copy-sequence str))
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1652 (unless (string-match re str)
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1653 (error "Internal error: %s does not match %s" re str))
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1654 (let ((pos (or (match-beginning 1) (match-end 0))))
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1655 (put-text-property 0 pos
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1656 'font-lock-face 'completions-common-part
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1657 str)
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1658 (if (> (length str) pos)
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1659 (put-text-property pos (1+ pos)
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1660 'font-lock-face 'completions-first-difference
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1661 str)))
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1662 str)
2677429036c3 (completion-hilit-commonality): Don't presume
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 100908
diff changeset
1663 completions))))
94465
e2562e0fe05e (completion-hilit-commonality): Remove leftover code.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94464
diff changeset
1664
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1665 (defun completion-pcm--find-all-completions (string table pred point
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1666 &optional filter)
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1667 "Find all completions for STRING at POINT in TABLE, satisfying PRED.
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1668 POINT is a position inside STRING.
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1669 FILTER is a function applied to the return value, that can be used, e.g. to
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1670 filter out additional entries (because TABLE migth not obey PRED)."
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1671 (unless filter (setq filter 'identity))
95228
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1672 (let* ((beforepoint (substring string 0 point))
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1673 (afterpoint (substring string point))
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1674 (bounds (completion-boundaries beforepoint table pred afterpoint))
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1675 (prefix (substring beforepoint 0 (car bounds)))
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1676 (suffix (substring afterpoint (cdr bounds)))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1677 firsterror)
95228
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1678 (setq string (substring string (car bounds) (+ point (cdr bounds))))
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1679 (let* ((relpoint (- point (car bounds)))
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1680 (pattern (completion-pcm--string->pattern string relpoint))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1681 (all (condition-case err
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1682 (funcall filter
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1683 (completion-pcm--all-completions
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1684 prefix pattern table pred))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1685 (error (unless firsterror (setq firsterror err)) nil))))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1686 (when (and (null all)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1687 (> (car bounds) 0)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1688 (null (ignore-errors (try-completion prefix table pred))))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1689 ;; The prefix has no completions at all, so we should try and fix
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1690 ;; that first.
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1691 (let ((substring (substring prefix 0 -1)))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1692 (destructuring-bind (subpat suball subprefix subsuffix)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1693 (completion-pcm--find-all-completions
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1694 substring table pred (length substring) filter)
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1695 (let ((sep (aref prefix (1- (length prefix))))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1696 ;; Text that goes between the new submatches and the
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1697 ;; completion substring.
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1698 (between nil))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1699 ;; Eliminate submatches that don't end with the separator.
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1700 (dolist (submatch (prog1 suball (setq suball ())))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1701 (when (eq sep (aref submatch (1- (length submatch))))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1702 (push submatch suball)))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1703 (when suball
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1704 ;; Update the boundaries and corresponding pattern.
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1705 ;; We assume that all submatches result in the same boundaries
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1706 ;; since we wouldn't know how to merge them otherwise anyway.
95228
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1707 ;; FIXME: COMPLETE REWRITE!!!
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1708 (let* ((newbeforepoint
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1709 (concat subprefix (car suball)
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1710 (substring string 0 relpoint)))
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1711 (leftbound (+ (length subprefix) (length (car suball))))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1712 (newbounds (completion-boundaries
95228
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1713 newbeforepoint table pred afterpoint)))
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1714 (unless (or (and (eq (cdr bounds) (cdr newbounds))
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1715 (eq (car newbounds) leftbound))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1716 ;; Refuse new boundaries if they step over
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1717 ;; the submatch.
95228
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1718 (< (car newbounds) leftbound))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1719 ;; The new completed prefix does change the boundaries
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1720 ;; of the completed substring.
95228
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1721 (setq suffix (substring afterpoint (cdr newbounds)))
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1722 (setq string
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1723 (concat (substring newbeforepoint (car newbounds))
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1724 (substring afterpoint 0 (cdr newbounds))))
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1725 (setq between (substring newbeforepoint leftbound
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1726 (car newbounds)))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1727 (setq pattern (completion-pcm--string->pattern
95228
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1728 string
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1729 (- (length newbeforepoint)
451f4028c096 * minibuffer.el (completion-boundaries): Change calling convention, so
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95192
diff changeset
1730 (car newbounds)))))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1731 (dolist (submatch suball)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1732 (setq all (nconc (mapcar
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1733 (lambda (s) (concat submatch between s))
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1734 (funcall filter
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1735 (completion-pcm--all-completions
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1736 (concat subprefix submatch between)
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1737 pattern table pred)))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1738 all)))
95192
042486c3318c (completion-pcm--find-all-completions): Don't add pseudo-completions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95172
diff changeset
1739 ;; FIXME: This can come in handy for try-completion,
042486c3318c (completion-pcm--find-all-completions): Don't add pseudo-completions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95172
diff changeset
1740 ;; but isn't right for all-completions, since it lists
042486c3318c (completion-pcm--find-all-completions): Don't add pseudo-completions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95172
diff changeset
1741 ;; invalid completions.
042486c3318c (completion-pcm--find-all-completions): Don't add pseudo-completions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95172
diff changeset
1742 ;; (unless all
042486c3318c (completion-pcm--find-all-completions): Don't add pseudo-completions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95172
diff changeset
1743 ;; ;; Even though we found expansions in the prefix, none
042486c3318c (completion-pcm--find-all-completions): Don't add pseudo-completions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95172
diff changeset
1744 ;; ;; leads to a valid completion.
042486c3318c (completion-pcm--find-all-completions): Don't add pseudo-completions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95172
diff changeset
1745 ;; ;; Let's keep the expansions, tho.
042486c3318c (completion-pcm--find-all-completions): Don't add pseudo-completions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95172
diff changeset
1746 ;; (dolist (submatch suball)
042486c3318c (completion-pcm--find-all-completions): Don't add pseudo-completions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95172
diff changeset
1747 ;; (push (concat submatch between newsubstring) all)))
042486c3318c (completion-pcm--find-all-completions): Don't add pseudo-completions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95172
diff changeset
1748 ))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1749 (setq pattern (append subpat (list 'any (string sep))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1750 (if between (list between)) pattern))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1751 (setq prefix subprefix)))))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1752 (if (and (null all) firsterror)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1753 (signal (car firsterror) (cdr firsterror))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1754 (list pattern all prefix suffix)))))
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1755
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1756 (defun completion-pcm-all-completions (string table pred point)
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1757 (destructuring-bind (pattern all &optional prefix suffix)
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1758 (completion-pcm--find-all-completions string table pred point)
95394
119c6508d4f8 (completion-pcm-all-completions): Add the base-size.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95228
diff changeset
1759 (when all
119c6508d4f8 (completion-pcm-all-completions): Add the base-size.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95228
diff changeset
1760 (nconc (completion-pcm--hilit-commonality pattern all)
119c6508d4f8 (completion-pcm-all-completions): Add the base-size.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95228
diff changeset
1761 (length prefix)))))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1762
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1763 (defun completion-pcm--merge-completions (strs pattern)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1764 "Extract the commonality in STRS, with the help of PATTERN."
105597
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1765 ;; When completing while ignoring case, we want to try and avoid
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1766 ;; completing "fo" to "foO" when completing against "FOO" (bug#4219).
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1767 ;; So we try and make sure that the string we return is all made up
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1768 ;; of text from the completions rather than part from the
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1769 ;; completions and part from the input.
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1770 ;; FIXME: This reduces the problems of inconsistent capitalization
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1771 ;; but it doesn't fully fix it: we may still end up completing
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1772 ;; "fo-ba" to "foo-BAR" or "FOO-bar" when completing against
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1773 ;; '("foo-barr" "FOO-BARD").
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1774 (cond
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1775 ((null (cdr strs)) (list (car strs)))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1776 (t
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1777 (let ((re (completion-pcm--pattern->regex pattern 'group))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1778 (ccs ())) ;Chopped completions.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1779
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1780 ;; First chop each string into the parts corresponding to each
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1781 ;; non-constant element of `pattern', using regexp-matching.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1782 (let ((case-fold-search completion-ignore-case))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1783 (dolist (str strs)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1784 (unless (string-match re str)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1785 (error "Internal error: %s doesn't match %s" str re))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1786 (let ((chopped ())
105597
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1787 (last 0)
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1788 (i 1)
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1789 next)
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1790 (while (setq next (match-end i))
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1791 (push (substring str last next) chopped)
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1792 (setq last next)
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1793 (setq i (1+ i)))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1794 ;; Add the text corresponding to the implicit trailing `any'.
105597
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1795 (push (substring str last) chopped)
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1796 (push (nreverse chopped) ccs))))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1797
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1798 ;; Then for each of those non-constant elements, extract the
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1799 ;; commonality between them.
105597
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1800 (let ((res ())
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1801 (fixed ""))
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1802 ;; Make the implicit trailing `any' explicit.
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1803 (dolist (elem (append pattern '(any)))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1804 (if (stringp elem)
105597
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1805 (setq fixed (concat fixed elem))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1806 (let ((comps ()))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1807 (dolist (cc (prog1 ccs (setq ccs nil)))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1808 (push (car cc) comps)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1809 (push (cdr cc) ccs))
105597
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1810 ;; Might improve the likelihood to avoid choosing
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1811 ;; different capitalizations in different parts.
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1812 ;; In practice, it doesn't seem to make any difference.
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1813 (setq ccs (nreverse ccs))
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1814 (let* ((prefix (try-completion fixed comps))
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1815 (unique (or (and (eq prefix t) (setq prefix fixed))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1816 (eq t (try-completion prefix comps)))))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1817 (unless (equal prefix "") (push prefix res))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1818 ;; If there's only one completion, `elem' is not useful
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1819 ;; any more: it can only match the empty string.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1820 ;; FIXME: in some cases, it may be necessary to turn an
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1821 ;; `any' into a `star' because the surrounding context has
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1822 ;; changed such that string->pattern wouldn't add an `any'
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1823 ;; here any more.
105597
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1824 (unless unique (push elem res))
117859152fa5 (completion-pcm--merge-completions): Make sure the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105589
diff changeset
1825 (setq fixed "")))))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1826 ;; We return it in reverse order.
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1827 res)))))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1828
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1829 (defun completion-pcm--pattern->string (pattern)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1830 (mapconcat (lambda (x) (cond
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1831 ((stringp x) x)
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1832 ((eq x 'star) "*")
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1833 ((eq x 'any) "")
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1834 ((eq x 'point) "")))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1835 pattern
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1836 ""))
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1837
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1838 ;; We want to provide the functionality of `try', but we use `all'
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1839 ;; and then merge it. In most cases, this works perfectly, but
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1840 ;; if the completion table doesn't consider the same completions in
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1841 ;; `try' as in `all', then we have a problem. The most common such
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1842 ;; case is for filename completion where completion-ignored-extensions
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1843 ;; is only obeyed by the `try' code. We paper over the difference
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1844 ;; here. Note that it is not quite right either: if the completion
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1845 ;; table uses completion-table-in-turn, this filtering may take place
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1846 ;; too late to correctly fallback from the first to the
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1847 ;; second alternative.
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1848 (defun completion-pcm--filename-try-filter (all)
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1849 "Filter to adjust `all' file completion to the behavior of `try'."
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1850 (when all
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1851 (let ((try ())
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1852 (re (concat "\\(?:\\`\\.\\.?/\\|"
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1853 (regexp-opt completion-ignored-extensions)
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1854 "\\)\\'")))
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1855 (dolist (f all)
101162
64a6da0f9aa2 * minibuffer.el (minibuffer-message): Fix regexp so it doesn't exclude
Juanma Barranquero <lekktu@gmail.com>
parents: 101010
diff changeset
1856 (unless (string-match-p re f) (push f try)))
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1857 (or try all))))
101162
64a6da0f9aa2 * minibuffer.el (minibuffer-message): Fix regexp so it doesn't exclude
Juanma Barranquero <lekktu@gmail.com>
parents: 101010
diff changeset
1858
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1859
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1860 (defun completion-pcm--merge-try (pattern all prefix suffix)
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1861 (cond
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1862 ((not (consp all)) all)
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1863 ((and (not (consp (cdr all))) ;Only one completion.
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1864 ;; Ignore completion-ignore-case here.
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1865 (equal (completion-pcm--pattern->string pattern) (car all)))
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1866 t)
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1867 (t
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1868 (let* ((mergedpat (completion-pcm--merge-completions all pattern))
94486
ca90422b8114 (completion--do-completion): Move point even if the completion makes no change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94465
diff changeset
1869 ;; `mergedpat' is in reverse order. Place new point (by
ca90422b8114 (completion--do-completion): Move point even if the completion makes no change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94465
diff changeset
1870 ;; order of preference) either at the old point, or at
ca90422b8114 (completion--do-completion): Move point even if the completion makes no change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94465
diff changeset
1871 ;; the last place where there's something to choose, or
ca90422b8114 (completion--do-completion): Move point even if the completion makes no change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94465
diff changeset
1872 ;; at the very end.
ca90422b8114 (completion--do-completion): Move point even if the completion makes no change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94465
diff changeset
1873 (pointpat (or (memq 'point mergedpat) (memq 'any mergedpat)
94487
432e68e359fa (completion-pcm-try-completion): Typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94486
diff changeset
1874 mergedpat))
94486
ca90422b8114 (completion--do-completion): Move point even if the completion makes no change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94465
diff changeset
1875 ;; New pos from the start.
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1876 (newpos (length (completion-pcm--pattern->string pointpat)))
94486
ca90422b8114 (completion--do-completion): Move point even if the completion makes no change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94465
diff changeset
1877 ;; Do it afterwards because it changes `pointpat' by sideeffect.
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1878 (merged (completion-pcm--pattern->string (nreverse mergedpat))))
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1879
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1880 (setq suffix (completion--merge-suffix merged newpos suffix))
95145
096cfec41046 (completion-boundaries): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94736
diff changeset
1881 (cons (concat prefix merged suffix) (+ newpos (length prefix)))))))
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1882
95799
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1883 (defun completion-pcm-try-completion (string table pred point)
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1884 (destructuring-bind (pattern all prefix suffix)
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1885 (completion-pcm--find-all-completions
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1886 string table pred point
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1887 (if minibuffer-completing-file-name
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1888 'completion-pcm--filename-try-filter))
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1889 (completion-pcm--merge-try pattern all prefix suffix)))
b0653ad2932d (completion--merge-suffix): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95671
diff changeset
1890
104785
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1891 ;;; Initials completion
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1892 ;; Complete /ums to /usr/monnier/src or lch to list-command-history.
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1893
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1894 (defun completion-initials-expand (str table pred)
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1895 (unless (or (zerop (length str))
104792
07bf8d62f7a5 (completion-initials-expand): Fix typo.
Glenn Morris <rgm@gnu.org>
parents: 104786
diff changeset
1896 (string-match completion-pcm--delim-wild-regex str))
104785
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1897 (let ((bounds (completion-boundaries str table pred "")))
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1898 (if (zerop (car bounds))
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1899 (mapconcat 'string str "-")
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1900 ;; If there's a boundary, it's trickier. The main use-case
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1901 ;; we consider here is file-name completion. We'd like
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1902 ;; to expand ~/eee to ~/e/e/e and /eee to /e/e/e.
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1903 ;; But at the same time, we don't want /usr/share/ae to expand
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1904 ;; to /usr/share/a/e just because we mistyped "ae" for "ar",
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1905 ;; so we probably don't want initials to touch anything that
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1906 ;; looks like /usr/share/foo. As a heuristic, we just check that
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1907 ;; the text before the boundary char is at most 1 char.
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1908 ;; This allows both ~/eee and /eee and not much more.
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1909 ;; FIXME: It sadly also disallows the use of ~/eee when that's
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1910 ;; embedded within something else (e.g. "(~/eee" in Info node
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1911 ;; completion or "ancestor:/eee" in bzr-revision completion).
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1912 (when (< (car bounds) 3)
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1913 (let ((sep (substring str (1- (car bounds)) (car bounds))))
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1914 ;; FIXME: the above string-match checks the whole string, whereas
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1915 ;; we end up only caring about the after-boundary part.
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1916 (concat (substring str 0 (car bounds))
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1917 (mapconcat 'string (substring str (car bounds)) sep))))))))
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1918
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1919 (defun completion-initials-all-completions (string table pred point)
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1920 (let ((newstr (completion-initials-expand string table pred)))
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1921 (when newstr
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1922 (completion-pcm-all-completions newstr table pred (length newstr)))))
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1923
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1924 (defun completion-initials-try-completion (string table pred point)
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1925 (let ((newstr (completion-initials-expand string table pred)))
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1926 (when newstr
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1927 (completion-pcm-try-completion newstr table pred (length newstr)))))
7c703efbce29 (completion-try-completion, completion-all-completions):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 104719
diff changeset
1928
94352
add0e6cf4336 (completion-table-with-context): Fix `pred' for the
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94315
diff changeset
1929
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1930 (provide 'minibuffer)
94144
40901fec25aa Add arch tagline
Miles Bader <miles@gnu.org>
parents: 94134
diff changeset
1931
40901fec25aa Add arch tagline
Miles Bader <miles@gnu.org>
parents: 94134
diff changeset
1932 ;; arch-tag: ef8a0a15-1080-4790-a754-04017c02f08f
93885
6c6216b3b878 * lisp/minibuffer.el: New file.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff changeset
1933 ;;; minibuffer.el ends here