tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-src: Fix editing remotely empty footnote definitions

Browse source 
* lisp/org-src.el (org-src--element-contents-area):
(org-edit-footnote-reference): Take into consideration
that :contents-begin and :contents-end may be nil.

Reported-by: Rasmus <rasmus@gmx.us>
<http://permalink.gmane.org/gmane.emacs.orgmode/97262>
This commit is contained in:
Nicolas Goaziou 2015-04-28 00:22:20 +02:00
parent 7b8dacc348
commit 21b6b1d9a2
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/org-src.el
View file

@ -274,10 +274,10 @@ positions."
(let ((type (org-element-type element)))
(cond
((eq type 'footnote-definition)
(cons (org-with-wide-buffer
(goto-char (org-element-property :post-affiliated element))
(search-forward "]"))
(org-element-property :contents-end element)))
(let ((beg (org-with-wide-buffer
(goto-char (org-element-property :post-affiliated element))
(search-forward "]"))))
(cons beg (or (org-element-property :contents-end element) beg))))
((org-element-property :contents-begin element)
(cons (org-element-property :contents-begin element)
(org-element-property :contents-end element)))
@ -705,13 +705,14 @@ If BUFFER is non-nil, test it instead."
'read-only "Cannot edit footnote label"
'front-sticky t
'rear-nonsticky t)
(org-with-wide-buffer
(buffer-substring-no-properties
(progn
(goto-char (org-element-property :contents-begin definition))
(skip-chars-backward " \r\t\n")
(point))
(org-element-property :contents-end definition))))
(and (org-element-property :contents-begin definition)
(org-with-wide-buffer
(buffer-substring-no-properties
(progn
(goto-char (org-element-property :contents-begin definition))
(skip-chars-backward " \r\t\n")
(point))
(org-element-property :contents-end definition)))))
'remote))
;; Report success.
t))