diff options
| author | Romain Francoise <romain@orebokech.com> | 2007-09-06 17:12:17 +0000 |
|---|---|---|
| committer | Romain Francoise <romain@orebokech.com> | 2007-09-06 17:12:17 +0000 |
| commit | 9a8b3a5cd45083e212979e75bedaaef31e5aa68b (patch) | |
| tree | e91a1ed54af3d40bbf310681af2eb2d1b4169277 /lisp/complete.el | |
| parent | 8aee12d0337c075441bacd287a5673be7be98493 (diff) | |
| download | emacs-9a8b3a5cd45083e212979e75bedaaef31e5aa68b.tar.gz | |
2007-09-06 Sean O'Rourke <sorourke@cs.ucsd.edu>
* complete.el (PC-do-completion): Don't try to treat
empty string as an abbreviation.
Diffstat (limited to 'lisp/complete.el')
| -rw-r--r-- | lisp/complete.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/complete.el b/lisp/complete.el index 01db126c5f8..bc581052508 100644 --- a/lisp/complete.el +++ b/lisp/complete.el @@ -596,9 +596,10 @@ GOTO-END is non-nil, however, it instead replaces up to END." (setq poss (all-completions (if env-on basestr str) table pred)) - (unless poss + (unless (or poss (string-equal str "")) ;; Try completion as an abbreviation, e.g. "mvb" -> - ;; "m-v-b" -> "multiple-value-bind" + ;; "m-v-b" -> "multiple-value-bind", but only for + ;; non-empty strings. (setq origstr str abbreviated t) (if filename |