소스 검색

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."