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

org-element: Remove an obsolete defconst 

* contrib/lisp/org-element.el (org-element--element-block-re): Remove
  variable.
This commit is contained in:
Nicolas Goaziou 2012-05-05 11:31:05 +02:00
parent ed9a748057
commit 761add3580
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -868,8 +868,7 @@ CONTENTS is the contents of the element."
;; type and add that new type to `org-element-all-elements'. ;; type and add that new type to `org-element-all-elements'.
;; As a special case, when the newly defined type is a block type, ;; As a special case, when the newly defined type is a block type,
;; `org-element-non-recursive-block-alist' has to be modified ;; `org-element-block-name-alist' has to be modified accordingly.
;; accordingly.
;;;; Babel Call ;;;; Babel Call
@ -3000,8 +2999,7 @@ element or object type."
;; ;;
;; `org-element-current-element' is the core function of this section. ;; `org-element-current-element' is the core function of this section.
;; It returns the Lisp representation of the element starting at ;; It returns the Lisp representation of the element starting at
;; point. It uses `org-element--element-block-re' for quick access to ;; point.
;; a common regexp.
;; ;;
;; `org-element-current-element' makes use of special modes. They are ;; `org-element-current-element' makes use of special modes. They are
;; activated for fixed element chaining (i.e. `plain-list' > `item') ;; activated for fixed element chaining (i.e. `plain-list' > `item')
@ -3009,14 +3007,6 @@ element or object type."
;; `section'). Special modes are: `section', `quote-section', `item' ;; `section'). Special modes are: `section', `quote-section', `item'
;; and `table-row'. ;; and `table-row'.
(defconst org-element--element-block-re
(format "[ \t]*#\\+BEGIN_\\(%s\\)\\(?: \\|$\\)"
(mapconcat
'regexp-quote
(mapcar 'car org-element-non-recursive-block-alist) "\\|"))
"Regexp matching the beginning of a non-recursive block type.
Used internally by `org-element-current-element'.")
(defun org-element-current-element (&optional granularity special structure) (defun org-element-current-element (&optional granularity special structure)
"Parse the element starting at point. "Parse the element starting at point.