org.el: Respect read-file-name-function

* org (org-iread-file-name): Respect read-file-name-function.
This commit is contained in:
Rasmus 2015-04-16 17:35:53 +02:00
parent b80ed6124f
commit d8494b5668

View file

@ -10471,7 +10471,7 @@ See `read-file-name' for a description of parameters."
(listp (second args))) (listp (second args)))
(let ((ido-enter-matching-directory nil)) (let ((ido-enter-matching-directory nil))
(apply 'ido-read-file-name args)) (apply 'ido-read-file-name args))
(apply 'read-file-name args)))) (apply (or read-file-name-function 'read-file-name) args))))
(defun org-completing-read (&rest args) (defun org-completing-read (&rest args)
"Completing-read with SPACE being a normal character." "Completing-read with SPACE being a normal character."