aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2008-04-18 12:46:14 +0000
committerStefan Monnier2008-04-18 12:46:14 +0000
commitd28cfdc285826f77896fb9c32b78d6fb506e0808 (patch)
treeaf11e85221f86ceab78c0bb77ba9adacff1d6332
parent7f48947e795c92819e346788402846183b0d5129 (diff)
downloademacs-d28cfdc285826f77896fb9c32b78d6fb506e0808.tar.gz
emacs-d28cfdc285826f77896fb9c32b78d6fb506e0808.zip
(completion-table-with-terminator): Fix last fix.
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/minibuffer.el9
2 files changed, 7 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7866ef8c591..11823e65c63 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
12008-04-18 Stefan Monnier <monnier@iro.umontreal.ca>
2
3 * minibuffer.el (completion-table-with-terminator): Fix last fix.
4
12008-04-18 Andreas Schwab <schwab@suse.de> 52008-04-18 Andreas Schwab <schwab@suse.de>
2 6
3 * Makefile.in ($(MH_E_DIR)/mh-loaddefs.el): Depend on 7 * Makefile.in ($(MH_E_DIR)/mh-loaddefs.el): Depend on
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 2adb4c3e7f9..834aa589f2d 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -25,10 +25,8 @@
25;; are meant to be for internal use only. 25;; are meant to be for internal use only.
26 26
27;; TODO: 27;; TODO:
28;; - make the `hide-spaces' arg of all-completions obsolete. 28;; - New command minibuffer-force-complete that chooses one of all-completions.
29 29;; - make the `hide-spaces' arg of all-completions obsolete?
30;; BUGS:
31;; - envvar completion for file names breaks completion-base-size.
32 30
33;;; Code: 31;;; Code:
34 32
@@ -138,8 +136,7 @@ You should give VAR a non-nil `risky-local-variable' property."
138 (if (and (stringp comp) 136 (if (and (stringp comp)
139 (eq (complete-with-action action table comp pred) t)) 137 (eq (complete-with-action action table comp pred) t))
140 (concat comp terminator) 138 (concat comp terminator)
141 comp) 139 comp)))
142 comp))
143 ;; completion-table-with-terminator is always used for 140 ;; completion-table-with-terminator is always used for
144 ;; "sub-completions" so it's only called if the terminator is missing, 141 ;; "sub-completions" so it's only called if the terminator is missing,
145 ;; in which case `test-completion' should return nil. 142 ;; in which case `test-completion' should return nil.