ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tiny refactoring 

* lisp/org.el (org-iread-file-name): Refactor.

`read-file-name' already applies `read-file-name-function' when
available.
This commit is contained in:
Nicolas Goaziou 2015-04-22 14:30:59 +02:00
parent 3df8dae3c9
commit ce4e647c21
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org.el
View File

@ -10467,11 +10467,11 @@ See `read-file-name' for a description of parameters."
(org-without-partial-completion (org-without-partial-completion
(if (and org-completion-use-ido (if (and org-completion-use-ido
(fboundp 'ido-read-file-name) (fboundp 'ido-read-file-name)
(boundp 'ido-mode) ido-mode (org-bound-and-true-p ido-mode)
(listp (second args))) (listp (nth 1 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 (or read-file-name-function 'read-file-name) args)))) (apply #'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."