forked from mirrors/org-mode
ox: Fix code comment
* lisp/ox.el (org-export-output-file-name): Fix code comment.
This commit is contained in:
parent
75c93f7c21
commit
24aaa53573
|
@ -5980,8 +5980,7 @@ Return file name as a string."
|
||||||
(let* ((visited-file (buffer-file-name (buffer-base-buffer)))
|
(let* ((visited-file (buffer-file-name (buffer-base-buffer)))
|
||||||
(base-name
|
(base-name
|
||||||
;; File name may come from EXPORT_FILE_NAME subtree
|
;; File name may come from EXPORT_FILE_NAME subtree
|
||||||
;; property, assuming point is at beginning of said
|
;; property.
|
||||||
;; sub-tree.
|
|
||||||
(file-name-sans-extension
|
(file-name-sans-extension
|
||||||
(or (and subtreep (org-entry-get nil "EXPORT_FILE_NAME" 'selective))
|
(or (and subtreep (org-entry-get nil "EXPORT_FILE_NAME" 'selective))
|
||||||
;; File name may be extracted from buffer's associated
|
;; File name may be extracted from buffer's associated
|
||||||
|
|
Loading…
Reference in New Issue