Sfoglia il codice sorgente

no longer adding extra lines with table output

Eric Schulte 16 anni fa
parent
commit
9b25adfd48
2 ha cambiato i file con 10 aggiunte e 2 eliminazioni
  1. 1 1
      lisp/org-babel.el
  2. 9 1
      org-babel.org

+ 1 - 1
lisp/org-babel.el

@@ -551,7 +551,7 @@ relies on `org-babel-insert-result'."
   "Return the point at the end of the current set of results"
   (save-excursion
     (if (org-at-table-p)
-        (org-table-end)
+        (progn (goto-char (org-table-end)) (forward-line 1) (point))
       (let ((case-fold-search nil))
 	(if (looking-at "#\\+begin_example")
 	    (search-forward "#+end_example" nil t)

+ 9 - 1
org-babel.org

@@ -3029,7 +3029,15 @@ for example
 #+end_src
 
 #+resname: this-doesn't-match-orgtbl
-   
+
+#+srcname: this-probably-also-wont-work
+#+begin_src emacs-lisp :results replace
+'(eric schulte)
+#+end_src
+
+#+resname:
+| eric | schulte |
+
 ** PROPOSED allow un-named arguments
 
 #+srcname: f(x)