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

org-element: Fix line-break object 

* contrib/lisp/org-element.el (org-element-line-break-parser,
org-element-line-break-interpreter): Fix line-break object.
This commit is contained in:
Nicolas Goaziou 2012-01-12 15:10:43 +01:00
parent 886154898c
commit a566f810e2
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1880,20 +1880,14 @@ Return a list whose car is `line-break', and cdr a plist with
`:begin', `:end' and `:post-blank' keywords.
Assume point is at the beginning of the line break."
(save-excursion
(let* ((begin (point))
(end (progn (end-of-line) (point)))
(post-blank (- (skip-chars-backward " \t")))
(end (point)))
`(line-break
(:begin ,begin
:end ,end
:post-blank ,post-blank)))))
(let ((begin (point))
(end (save-excursion (forward-line) (point))))
`(line-break (:begin ,begin :end ,end :post-blank 0))))
(defun org-element-line-break-interpreter (line-break contents)
"Interpret LINE-BREAK object as Org syntax.
CONTENTS is nil."
(org-element-get-property :value line-break))
"\n")
(defun org-element-line-break-successor (limit)
"Search for the next statistics cookie and return position.