From a718ddfee1ec76e8d5aa1088206f148ffc53172b Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 5 Feb 2014 01:46:51 -0500 Subject: Rename bog-citekey-heading New name, `bog-citekey-from-heading-title', provides a clearer indication of what it is doing. --- bog.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bog.el') diff --git a/bog.el b/bog.el index 44514f5..0b97b40 100644 --- a/bog.el +++ b/bog.el @@ -114,7 +114,7 @@ from the first parent heading that matches `bog-citekey-format'. ACTION will be called with the resulting citekey as an argument." (let* ((citekey (and ask-citekey (funcall ask-func))) (citekey (or (bog-citekey-at-point) - (bog-citekey-heading)))) + (bog-citekey-from-heading-title)))) (funcall action citekey))) (defun bog-select-citekey (citekeys) @@ -141,7 +141,7 @@ year, and the first meaningful word in the title)." (bog-citekey-only-p maybe-citekey)) maybe-citekey))) -(defun bog-citekey-heading () +(defun bog-citekey-from-heading-title () "Return first org heading that matches `bog-citekey-format'." (save-excursion (save-restriction -- cgit v1.2.3