Mercurial > emacs

changeset 97607:b2300bb89e4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(completion--try-word-completion): Disable partial-completion when considering the addition of a space or hyphen.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 21 Aug 2008 17:28:58 +0000
parents 7593f558bea1
children 2bde8f2e8ed1
files lisp/minibuffer.el
diffstat 1 files changed, 3 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/minibuffer.el	Thu Aug 21 17:28:35 2008 +0000
+++ b/lisp/minibuffer.el	Thu Aug 21 17:28:58 2008 +0000
@@ -615,14 +615,9 @@
         (let ((exts '(" " "-"))
               (before (substring string 0 point))
               (after (substring string point))
-              ;; If the user hasn't entered any text yet, then she
-              ;; presumably hits SPC to see the *completions*, but
-              ;; partial-completion will often find a " " or a "-" to match.
-              ;; So disable partial-completion in that situation.
-              (completion-styles
-               (or (and (equal string "")
-                        (remove 'partial-completion completion-styles))
-                   completion-styles))
+	      ;; Disable partial-completion for this.
+	      (completion-styles
+	       (remove 'partial-completion completion-styles))
 	      tem)
 	  (while (and exts (not (consp tem)))
             (setq tem (completion-try-completion