ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-element: Fix interpretation of empty items 

* lisp/org-element.el (org-element-item-interpreter): This patch fixes
  "(wrong-type-argument arrayp nil)" error when trying to interpret
  empty items.
* testing/lisp/test-org-element.el: Add test.
This commit is contained in:
Nicolas Goaziou 2013-07-06 00:39:28 +02:00
parent e5630add27
commit 0aa0fdd971
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-element.el
View File

@ -1142,10 +1142,11 @@ CONTENTS is the contents of the element."
(off "[ ] ") (off "[ ] ")
(trans "[-] ")) (trans "[-] "))
(and tag (format "%s :: " tag)) (and tag (format "%s :: " tag))
(let ((contents (replace-regexp-in-string (when contents
"\\(^\\)[ \t]*\\S-" ind contents nil nil 1))) (let ((contents (replace-regexp-in-string
(if item-starts-with-par-p (org-trim contents) "\\(^\\)[ \t]*\\S-" ind contents nil nil 1)))
(concat "\n" contents)))))) (if item-starts-with-par-p (org-trim contents)
(concat "\n" contents)))))))
;;;; Plain List ;;;; Plain List

4
testing/lisp/test-org-element.el
View File

@ -2168,7 +2168,9 @@ Outside list"
(equal (org-test-parse-and-interpret "-\n | a | b |") (equal (org-test-parse-and-interpret "-\n | a | b |")
"- \n | a | b |\n")) "- \n | a | b |\n"))
;; Special case: correctly handle "*" bullets. ;; Special case: correctly handle "*" bullets.
(should (org-test-parse-and-interpret " * item")))) (should (org-test-parse-and-interpret " * item"))
;; Special case: correctly handle empty items.
(should (org-test-parse-and-interpret "-"))))
(ert-deftest test-org-element/quote-block-interpreter () (ert-deftest test-org-element/quote-block-interpreter ()
"Test quote block interpreter." "Test quote block interpreter."