diff options
| author | Stefan Monnier | 2008-04-18 12:46:14 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2008-04-18 12:46:14 +0000 |
| commit | d28cfdc285826f77896fb9c32b78d6fb506e0808 (patch) | |
| tree | af11e85221f86ceab78c0bb77ba9adacff1d6332 | |
| parent | 7f48947e795c92819e346788402846183b0d5129 (diff) | |
| download | emacs-d28cfdc285826f77896fb9c32b78d6fb506e0808.tar.gz emacs-d28cfdc285826f77896fb9c32b78d6fb506e0808.zip | |
(completion-table-with-terminator): Fix last fix.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/minibuffer.el | 9 |
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 @@ | |||
| 1 | 2008-04-18 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * minibuffer.el (completion-table-with-terminator): Fix last fix. | ||
| 4 | |||
| 1 | 2008-04-18 Andreas Schwab <schwab@suse.de> | 5 | 2008-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. |