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

org-element: Use correct regexp to identify comments at column 0 

* contrib/lisp/org-element.el (org-element-guess-type,
org-element-current-element): Use correct regexp to identify comments
at column 0.
This commit is contained in:
Nicolas Goaziou 2012-01-19 19:06:20 +01:00
parent 3be1f755b0
commit 3bace4b335
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/lisp/org-element.el
View File

@ -2770,7 +2770,7 @@ point is in a section in priority."
"^[ \t]*#\\+end:\\(?:\\s-\\|$\\)"))) "^[ \t]*#\\+end:\\(?:\\s-\\|$\\)")))
(if (not completep) 'paragraph (if (not completep) 'paragraph
(goto-char (car completep)) 'dynamic-block))) (goto-char (car completep)) 'dynamic-block)))
((looking-at "\\(#\\|[ \t]*#\\+\\)\\(?: \\|$\\)") 'comment) ((looking-at "\\(#\\|[ \t]*#\\+\\(?: \\|$\\)\\)") 'comment)
((looking-at "[ \t]*-\\{5,\\}[ \t]*$") 'horizontal-rule) ((looking-at "[ \t]*-\\{5,\\}[ \t]*$") 'horizontal-rule)
((org-at-table-p t) 'table) ((org-at-table-p t) 'table)
((looking-at "[ \t]*#\\+tblfm:") ((looking-at "[ \t]*#\\+tblfm:")
@ -3279,7 +3279,7 @@ more restrictive."
(org-element-dynamic-block-parser) (org-element-dynamic-block-parser)
(org-element-paragraph-parser))) (org-element-paragraph-parser)))
;; Comment. ;; Comment.
((looking-at "\\(#\\|[ \t]*#\\+\\)\\(?: \\|$\\)") ((looking-at "\\(#\\|[ \t]*#\\+\\(?: \\|$\\)\\)")
(org-element-comment-parser)) (org-element-comment-parser))
;; Horizontal rule. ;; Horizontal rule.
((looking-at "[ \t]*-\\{5,\\}[ \t]*$") ((looking-at "[ \t]*-\\{5,\\}[ \t]*$")