From 4df091b43193256398757375a8111b5680e333b2 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Tue, 18 Nov 2014 10:43:50 +0100
Subject: [PATCH] Tiny refactoring

* lisp/org.el (org-entry-properties): Tiny refactoring.
---
 lisp/org.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index f8c83ebe5..dbd2cb700 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -15730,8 +15730,7 @@ strings."
 			      (if p (setcdr p (concat value " " (cdr p)))
 				(push (cons key value) props))))))))))))
 	  (unless (assoc "CATEGORY" props)
-	    (goto-char beg)
-	    (push (cons "CATEGORY" (org-get-category)) props)
+	    (push (cons "CATEGORY" (org-get-category beg)) props)
 	    (when (string= specific "CATEGORY") (throw 'exit props)))
 	  ;; Return value.
 	  (append (get-text-property beg 'org-summaries) props))))))
-- 
2.11.4.GIT