From cb22a0355f1ccbe13a535df77efe40244a0d1094 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 12 Mar 2014 09:05:50 +0100 Subject: [PATCH] org-element: Fix parsing of bold objects at the beginning of a headline * lisp/org-element.el (org-element-context): Fix parsing of bold objects at the beginning of a headline. * testing/lisp/test-org-element.el (test-org-element/context): Add test. --- lisp/org-element.el | 4 ++-- testing/lisp/test-org-element.el | 8 +++++++- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/org-element.el b/lisp/org-element.el index 68b830eec..a7c6cefeb 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -4868,8 +4868,8 @@ Providing it allows for quicker computation." ;; their title. ((memq type '(headline inlinetask)) (goto-char (org-element-property :begin element)) - (skip-chars-forward "* ") - (if (and (>= origin (point)) (< origin (line-end-position))) + (skip-chars-forward "*") + (if (and (> origin (point)) (< origin (line-end-position))) (narrow-to-region (point) (line-end-position)) (throw 'objects-forbidden element))) ;; At a paragraph, a table-row or a verse block, objects are diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el index 7cc8dd820..c65151e1d 100644 --- a/testing/lisp/test-org-element.el +++ b/testing/lisp/test-org-element.el @@ -3076,7 +3076,13 @@ Paragraph \\alpha." (org-test-with-temp-text "Some *text with _underline_ text*" (progn (search-forward "under") - (org-element-type (org-element-context (org-element-at-point)))))))) + (org-element-type (org-element-context (org-element-at-point))))))) + ;; Special case: bold object at the beginning of a headline. + (should + (eq 'bold + (org-test-with-temp-text "* *bold*" + (search-forward "bo") + (org-element-type (org-element-context)))))) (provide 'test-org-element)