Selaa lähdekoodia

org-footnote: Fix remote editing of empty definitions

* lisp/org-src.el (org-edit-footnote-reference): Fix remote editing of
  empty definitions.
Nicolas Goaziou 9 vuotta sitten
vanhempi
commit
6539b0d3f9
1 muutettua tiedostoa jossa 4 lisäystä ja 1 poistoa
  1. 4 1
      lisp/org-src.el

+ 4 - 1
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))