diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-14 16:46:09 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-14 16:48:41 +0200 |
commit | 6539b0d3f95dcd7bc8531b402e5f75e5d5cb3c32 (patch) | |
tree | 7eee441069692bc1b4908cfa05423a701f94314c | |
parent | 6a0454e4f053353a18687186e0fd93b9a6d78748 (diff) | |
download | org-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.el | 5 |
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)) |