aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/complete.el5
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 187f9183a5d..0982a0b026f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12007-09-06 Sean O'Rourke <sorourke@cs.ucsd.edu>
2
3 * complete.el (PC-do-completion): Don't try to treat
4 empty string as an abbreviation.
5
12007-09-06 Johan Bockg,Ae(Brd <bojohan@dd.chalmers.se> 62007-09-06 Johan Bockg,Ae(Brd <bojohan@dd.chalmers.se>
2 7
3 * help-fns.el (describe-variable): Keep doc's text properties. 8 * help-fns.el (describe-variable): Keep doc's text properties.
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."
596 (setq poss (all-completions (if env-on basestr str) 596 (setq poss (all-completions (if env-on basestr str)
597 table 597 table
598 pred)) 598 pred))
599 (unless poss 599 (unless (or poss (string-equal str ""))
600 ;; Try completion as an abbreviation, e.g. "mvb" -> 600 ;; Try completion as an abbreviation, e.g. "mvb" ->
601 ;; "m-v-b" -> "multiple-value-bind" 601 ;; "m-v-b" -> "multiple-value-bind", but only for
602 ;; non-empty strings.
602 (setq origstr str 603 (setq origstr str
603 abbreviated t) 604 abbreviated t)
604 (if filename 605 (if filename