Mercurial > emacs

changeset 95192:042486c3318c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(completion-pcm--find-all-completions): Don't add pseudo-completions.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 22 May 2008 04:26:41 +0000
parents cd142460f0cc
children d90ff358ee27
files lisp/ChangeLog lisp/minibuffer.el
diffstat 2 files changed, 13 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu May 22 03:49:18 2008 +0000
+++ b/lisp/ChangeLog	Thu May 22 04:26:41 2008 +0000
@@ -1,5 +1,8 @@
 2008-05-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* minibuffer.el (completion-pcm--find-all-completions):
+	Don't add pseudo-completions.
+
 	* icomplete.el (icomplete-eoinput): Remove.
 	(icomplete-overlay): New var to replace it.
 	(icomplete-tidy): Rewrite.
--- a/lisp/minibuffer.el	Thu May 22 03:49:18 2008 +0000
+++ b/lisp/minibuffer.el	Thu May 22 04:26:41 2008 +0000
@@ -48,7 +48,6 @@
 
 ;; - add support for ** to pcm.
 ;; - Make read-file-name-predicate obsolete.
-;; - New command minibuffer-force-complete that chooses one of all-completions.
 ;; - Add vc-file-name-completion-table to read-file-name-internal.
 ;; - A feature like completing-help.el.
 ;; - Make the `hide-spaces' arg of all-completions obsolete?
@@ -1476,12 +1475,16 @@
                                        (concat subprefix submatch between)
                                        pattern table pred))
                                      all)))
-                  (unless all
-                    ;; Even though we found expansions in the prefix, none
-                    ;; leads to a valid completion.
-                    ;; Let's keep the expansions, tho.
-                    (dolist (submatch suball)
-                      (push (concat submatch between newsubstring) all)))))
+                  ;; FIXME: This can come in handy for try-completion,
+                  ;; but isn't right for all-completions, since it lists
+                  ;; invalid completions.
+                  ;; (unless all
+                  ;;   ;; Even though we found expansions in the prefix, none
+                  ;;   ;; leads to a valid completion.
+                  ;;   ;; Let's keep the expansions, tho.
+                  ;;   (dolist (submatch suball)
+                  ;;     (push (concat submatch between newsubstring) all)))
+                  ))
               (setq pattern (append subpat (list 'any (string sep))
                                     (if between (list between)) pattern))
               (setq prefix subprefix)))))