branch: externals/org-real
commit 573df4390fe5d42dc35f64e44f4a16a30b5a42bb
Author: Tyler Grinn <tylergr...@gmail.com>
Commit: Tyler Grinn <tylergr...@gmail.com>
Removed reference to org-collect-keywords
---
org-real.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/org-real.el b/org-real.el
index ca5f3d7..fdfba3d 100644
--- a/org-real.el
+++ b/org-real.el
@@ -1559,8 +1559,8 @@ set to the :loc slot of each box."
(defun org-real--parse-headlines ()
"Create an org real box from the current buffer's headlines."
(let* ((headlines (cddr (org-element-parse-buffer 'headline)))
- (title (or (cadr (car (org-collect-keywords '("TITLE"))))
- (file-name-base (buffer-file-name))
+ (filename (buffer-file-name))
+ (title (or (concat (file-name-base filename) "." (file-name-extension
filename))
"Document"))
(world (org-real-box))
(document (org-real-box :name title)))
