From d255087563f31bae7ed3226db9388b568bb1844e Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 5 Feb 2014 23:55:19 -0500 Subject: Use org-get-heading Somehow I missd this one when I was searching through org.el. --- bog.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'bog.el') diff --git a/bog.el b/bog.el index fe1ac8d..69a5bdc 100644 --- a/bog.el +++ b/bog.el @@ -147,12 +147,10 @@ year, and the first meaningful word in the title)." (save-excursion (save-restriction (widen) - (org-back-to-heading) - (let ((heading (org-element-property :raw-value (org-element-at-point)))) + (let ((heading (org-no-properties (org-get-heading t t)))) (while (and (not (bog-citekey-only-p heading)) (org-up-heading-safe)) - (setq heading - (org-element-property :raw-value (org-element-at-point)))) + (setq heading (org-no-properties (org-get-heading t t)))) (when (not (bog-citekey-only-p heading)) (error "Citekey not found")) heading)))) -- cgit v1.2.3