mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-02 08:22:16 +00:00
Code

org-element: Add `:raw-value' property to special blocks

Browse Source 
* lisp/org-element.el (org-element-special-block-parser): Add
  `:raw-value' property.
This commit is contained in:
Nicolas Goaziou 2014-07-26 16:15:15 +02:00
parent b77a026a24
commit 173ade7078
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-element.el
View File

@ -1518,8 +1518,9 @@ keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `special-block' and CDR is a plist
containing `:type', `:begin', `:end', `:contents-begin',
`:contents-end', `:post-blank' and `:post-affiliated' keywords.
containing `:type', `:raw-value', `:begin', `:end',
`:contents-begin', `:contents-end', `:post-blank' and
`:post-affiliated' keywords.
Assume point is at the beginning of the block."
(let* ((case-fold-search t)
@ -1548,6 +1549,10 @@ Assume point is at the beginning of the block."
(list 'special-block
(nconc
(list :type type
:raw-value
(and contents-begin
(buffer-substring-no-properties
contents-begin contents-end))
:begin begin
:end end
:contents-begin contents-begin