瀏覽代碼

Fix an error in a rare edge case

Ryan C. Thompson 9 年之前
父節點
當前提交
e5108573cc
共有 1 個文件被更改,包括 4 次插入1 次删除
  1. 4 1
      ido-ubiquitous.el

+ 4 - 1
ido-ubiquitous.el

@@ -667,7 +667,10 @@ completion for them."
             (if (or ido-ubiquitous-allow-on-functional-collection
                     (memq ido-ubiquitous-active-override
                           '(enable enable-old)))
-                (setq collection (all-completions "" collection predicate))
+                (setq collection (all-completions "" collection predicate)
+                      ;; `all-completions' will apply the predicate,
+                      ;; so it now becomes redundant.
+                      predicate nil)
               (signal 'ido-ubiquitous-fallback
                       "COLLECTION is a function and there is no override")))
           (let ((ido-ubiquitous-enable-next-call t))