Re: use of minibuffer in interactive spec code

[Stefan Monnier]

> It turns out that I now need to bind `minibuffer-completion-predicate' in the
> interactive spec. Otherwise, it has the value that is used for
> `read-directory-name', which is `file-directory-p'.

I cannot reproduce this problem on the trunk.  Can you?
Maybe the problem is that I didn't do quite the same as you did.
I did:

  emacs -Q

  (defun sm-foo (dir)
    (interactive
     (list (read-directory-name
            "Dir: " nil nil
            (and (member cd-path '(nil ("./")))
                 (null (getenv "CDPATH"))))))
    (message "m-c-p=%s" minibuffer-completion-predicate))
  (define-key minibuffer-local-completion-map [?\C-s ?\C-m] 'sm-foo)
  (setq enable-recursive-minibuffers t)

  M-x C-s C-m RET

and I see that minibuffer-completion-predicate was properly reset to commandp.

Can you give another recipe, maybe?


        Stefan