summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2015-08-14 16:46:09 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2015-08-14 16:48:41 +0200
commit6539b0d3f95dcd7bc8531b402e5f75e5d5cb3c32 (patch)
tree7eee441069692bc1b4908cfa05423a701f94314c
parent6a0454e4f053353a18687186e0fd93b9a6d78748 (diff)
downloadorg-mode-6539b0d3f95dcd7bc8531b402e5f75e5d5cb3c32.tar.gz
org-footnote: Fix remote editing of empty definitions
* lisp/org-src.el (org-edit-footnote-reference): Fix remote editing of empty definitions.
-rw-r--r--lisp/org-src.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/org-src.el b/lisp/org-src.el
index 8cd9781..163d726 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -719,6 +719,7 @@ If BUFFER is non-nil, test it instead."
(unless label (user-error "Cannot edit remotely anonymous footnotes"))
(let* ((definition (org-with-wide-buffer
(org-footnote-goto-definition label)
+ (backward-char)
(org-element-context)))
(inline (eq (org-element-type definition) 'footnote-reference))
(contents
@@ -756,7 +757,9 @@ If BUFFER is non-nil, test it instead."
;; table's structure.
(when ,(org-element-lineage definition '(table-cell))
(while (search-forward "\n" nil t) (delete-char -1)))))
- contents
+ (concat contents
+ (and (not (org-element-property :contents-begin definition))
+ " "))
'remote))
;; Report success.
t))