summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2014-03-12 09:05:50 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2014-03-12 09:05:50 +0100
commitcb22a0355f1ccbe13a535df77efe40244a0d1094 (patch)
treec0dcdd428a9780cb94301f3b133e765b16e23f03
parentffc60fd494a911c0dc440ae7c2c17c11ddf78cd9 (diff)
downloadorg-mode-cb22a0355f1ccbe13a535df77efe40244a0d1094.tar.gz
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.
-rw-r--r--lisp/org-element.el4
-rw-r--r--testing/lisp/test-org-element.el8
2 files changed, 9 insertions, 3 deletions
diff --git a/lisp/org-element.el b/lisp/org-element.el
index 68b830e..a7c6cef 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 7cc8dd8..c65151e 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)