diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-05-08 18:13:06 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-05-08 18:13:06 +0200 |
commit | 7e4c7edb8a077149c8da7ede0a4e42e7861a32d9 (patch) | |
tree | c861111f0199f96bf08349278e41064379e64f57 | |
parent | 16f12e0aef9fab4bdc575ebee8c463846377ef8b (diff) | |
download | org-mode-7e4c7edb8a077149c8da7ede0a4e42e7861a32d9.tar.gz |
ox: Small refactoring
* lisp/ox.el (org-export-expand-include-keyword): Avoid using `read'
to determine file name.
-rw-r--r-- | lisp/ox.el | 16 |
1 files changed, 7 insertions, 9 deletions
@@ -3267,15 +3267,13 @@ paths." ;; Extract arguments from keyword's value. (let* ((value (org-element-property :value element)) (ind (org-get-indentation)) - (file (let ((f (if (eq (aref value 0) ?\") (read value) - (and (string-match "^\\S-+" value) - (match-string 0 value))))) - (setq value - (progn - (string-match (format "^\"?%s\"?[ \t]*" f) - value) - (replace-match "" nil nil value))) - (expand-file-name f dir))) + (file (and (string-match + "^\\(\".+?\"\\|\\S-+\\)\\(?:\\s-+\\|$\\)" value) + (prog1 (expand-file-name + (org-remove-double-quotes + (match-string 1 value)) + dir) + (setq value (replace-match "" nil nil value))))) (lines (and (string-match ":lines +\"\\(\\(?:[0-9]+\\)?-\\(?:[0-9]+\\)?\\)\"" |