فهرست منبع

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

* org (org-iread-file-name): Respect read-file-name-function.
Rasmus 10 سال پیش
والد
کامیت
d8494b5668
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  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."