summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-08-18 13:34:27 +0200
committerNicolas Goaziou <n.goaziou@gmail.com>2012-08-18 13:34:27 +0200
commit7a1bd94df1b078b432b072dafa515ba1cf9a97c8 (patch)
tree174e464e8b3012696188bfd33e3520dbe6303314
parentad94a9433b397f11b1041ae60cc0949a6a56f157 (diff)
downloadorg-mode-7a1bd94df1b078b432b072dafa515ba1cf9a97c8.tar.gz
org-element: Fix some code comments
-rw-r--r--lisp/org-element.el18
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/org-element.el b/lisp/org-element.el
index c3cef45..5efa666 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -479,7 +479,7 @@ Assume point is at the beginning of the block."
(let ((case-fold-search t))
(if (not (save-excursion
(re-search-forward "^[ \t]*#\\+END_CENTER" limit t)))
- ;; Incomplete block: parse it as a comment.
+ ;; Incomplete block: parse it as a paragraph.
(org-element-paragraph-parser limit)
(let ((block-end-line (match-beginning 0)))
(let* ((keywords (org-element--collect-affiliated-keywords))
@@ -579,7 +579,7 @@ containing `:block-name', `:begin', `:end', `:hiddenp',
Assume point is at beginning of dynamic block."
(let ((case-fold-search t))
(if (not (save-excursion (re-search-forward org-dblock-end-re limit t)))
- ;; Incomplete block: parse it as a comment.
+ ;; Incomplete block: parse it as a paragraph.
(org-element-paragraph-parser limit)
(let ((block-end-line (match-beginning 0)))
(save-excursion
@@ -1138,7 +1138,7 @@ Assume point is at the beginning of the block."
(let ((case-fold-search t))
(if (not (save-excursion
(re-search-forward "^[ \t]*#\\+END_QUOTE" limit t)))
- ;; Incomplete block: parse it as a comment.
+ ;; Incomplete block: parse it as a paragraph.
(org-element-paragraph-parser limit)
(let ((block-end-line (match-beginning 0)))
(save-excursion
@@ -1220,7 +1220,7 @@ Assume point is at the beginning of the block."
(upcase (match-string-no-properties 1)))))
(if (not (save-excursion
(re-search-forward (concat "^[ \t]*#\\+END_" type) limit t)))
- ;; Incomplete block: parse it as a comment.
+ ;; Incomplete block: parse it as a paragraph.
(org-element-paragraph-parser limit)
(let ((block-end-line (match-beginning 0)))
(save-excursion
@@ -1418,7 +1418,7 @@ Assume point is at comment block beginning."
(let ((case-fold-search t))
(if (not (save-excursion
(re-search-forward "^[ \t]*#\\+END_COMMENT" limit t)))
- ;; Incomplete block: parse it as a comment.
+ ;; Incomplete block: parse it as a paragraph.
(org-element-paragraph-parser limit)
(let ((contents-end (match-beginning 0)))
(save-excursion
@@ -1463,7 +1463,7 @@ containing `:begin', `:end', `:number-lines', `:preserve-indent',
(let ((case-fold-search t))
(if (not (save-excursion
(re-search-forward "^[ \t]*#\\+END_EXAMPLE" limit t)))
- ;; Incomplete block: parse it as a comment.
+ ;; Incomplete block: parse it as a paragraph.
(org-element-paragraph-parser limit)
(let ((contents-end (match-beginning 0)))
(save-excursion
@@ -1542,7 +1542,7 @@ Assume point is at export-block beginning."
(upcase (org-match-string-no-properties 1)))))
(if (not (save-excursion
(re-search-forward (concat "^[ \t]*#\\+END_" type) limit t)))
- ;; Incomplete block: parse it as a comment.
+ ;; Incomplete block: parse it as a paragraph.
(org-element-paragraph-parser limit)
(let ((contents-end (match-beginning 0)))
(save-excursion
@@ -1954,7 +1954,7 @@ containing `:language', `:switches', `:parameters', `:begin',
Assume point is at the beginning of the block."
(let ((case-fold-search t))
(if (not (save-excursion (re-search-forward "^[ \t]*#\\+END_SRC" limit t)))
- ;; Incomplete block: parse it as a comment.
+ ;; Incomplete block: parse it as a paragraph.
(org-element-paragraph-parser limit)
(let ((contents-end (match-beginning 0)))
(save-excursion
@@ -2159,7 +2159,7 @@ Assume point is at beginning of the block."
(let ((case-fold-search t))
(if (not (save-excursion
(re-search-forward "^[ \t]*#\\+END_VERSE" limit t)))
- ;; Incomplete block: parse it as a comment.
+ ;; Incomplete block: parse it as a paragraph.
(org-element-paragraph-parser limit)
(let ((contents-end (match-beginning 0)))
(save-excursion