diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-08-18 13:34:27 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-08-18 13:34:27 +0200 |
commit | 7a1bd94df1b078b432b072dafa515ba1cf9a97c8 (patch) | |
tree | 174e464e8b3012696188bfd33e3520dbe6303314 | |
parent | ad94a9433b397f11b1041ae60cc0949a6a56f157 (diff) | |
download | org-mode-7a1bd94df1b078b432b072dafa515ba1cf9a97c8.tar.gz |
org-element: Fix some code comments
-rw-r--r-- | lisp/org-element.el | 18 |
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 |