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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 187f9183a5d597301bf4c880a4ebf9c3e30dbf04..0982a0b026ff5f731c064dda12f24f9de19a93d8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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.
+
 2007-09-06  Johan Bockg\e,Ae\e(Brd  <bojohan@dd.chalmers.se>
 
        * help-fns.el (describe-variable): Keep doc's text properties.

diff --git a/lisp/complete.el b/lisp/complete.el
index 01db126c5f8baa347d05b65eb49e1d6f5fbd765c..bc581052508e196c0b9c1699f5412e5e5f2f7398 100644 (file)
--- 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