[Emacs-diffs] Changes to emacs/lisp/complete.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/04/21 21:18:08

Index: complete.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/complete.el,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -b -r1.84 -r1.85
--- complete.el 14 Apr 2008 18:09:49 -0000      1.84
+++ complete.el 21 Apr 2008 21:18:07 -0000      1.85
@@ -966,7 +966,7 @@
                    (+ (point) 2)
                    (point-min)))
           (minibuffer-completion-table 'PC-read-file-name-internal)
-          (minibuffer-completion-predicate "")
+          (minibuffer-completion-predicate nil)
           (PC-not-minibuffer t))
      (goto-char end)
      (PC-do-completion nil beg end)))
@@ -1096,7 +1096,7 @@
          (setq sorted (cdr sorted)))
        compressed))))
 
-(defun PC-read-file-name-internal (string dir action)
+(defun PC-read-file-name-internal (string pred action)
   "Extend `read-file-name-internal' to handle include files.
 This is only used by "
   (if (string-match "<\\([^\"<>]*\\)>?\\'" string)
@@ -1112,7 +1112,7 @@
          ((eq action 'lambda) (test-completion str2 completion-table nil))
          ((eq action nil) (PC-try-completion str2 completion-table nil))
          ((eq action t) (all-completions str2 completion-table nil))))
-    (read-file-name-internal string dir action)))
+    (read-file-name-internal string pred action)))
 
 
 (provide 'complete)