From 6539b0d3f95dcd7bc8531b402e5f75e5d5cb3c32 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 14 Aug 2015 16:46:09 +0200 Subject: [PATCH] org-footnote: Fix remote editing of empty definitions * lisp/org-src.el (org-edit-footnote-reference): Fix remote editing of empty definitions. --- lisp/org-src.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/org-src.el b/lisp/org-src.el index 8cd9781a9..163d7268c 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)) -- 2.11.4.GIT