From a513bac4fb7c77a001c37c55d7e1464b95d3600a Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Fri, 31 Oct 2014 11:56:01 -0400 Subject: Use org-before-first-heading-p --- bog.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/bog.el b/bog.el index 1b87e84..cd1d26c 100644 --- a/bog.el +++ b/bog.el @@ -280,9 +280,9 @@ be preceded by a characters in `bog-allowed-before-citekey'." (bog-citekey-from-property))) (defun bog-citekey-from-heading-title () - (--if-let (ignore-errors (org-no-properties (org-get-heading t t))) - (when (bog-citekey-p it) - it))) + (unless (org-before-first-heading-p) + (let ((heading (org-no-properties (org-get-heading t t)))) + (when (bog-citekey-p heading) heading)))) (defun bog-citekey-from-property () (--when-let (org-entry-get (point) bog-citekey-property) -- cgit v1.2.3