diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-03-12 09:05:50 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-03-12 09:05:50 +0100 |
commit | cb22a0355f1ccbe13a535df77efe40244a0d1094 (patch) | |
tree | c0dcdd428a9780cb94301f3b133e765b16e23f03 | |
parent | ffc60fd494a911c0dc440ae7c2c17c11ddf78cd9 (diff) | |
download | org-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.el | 4 | ||||
-rw-r--r-- | 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 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) |