Explorar o código

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

* org (org-iread-file-name): Respect read-file-name-function.
Rasmus %!s(int64=10) %!d(string=hai) anos
pai
achega
d8494b5668
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      lisp/org.el

+ 1 - 1
lisp/org.el

@@ -10471,7 +10471,7 @@ See `read-file-name' for a description of parameters."
             (listp (second args)))
        (let ((ido-enter-matching-directory nil))
          (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)
   "Completing-read with SPACE being a normal character."