diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-07-23 00:34:02 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-07-23 00:34:02 +0200 |
commit | bf37cd09b128b4431e1dd1a538fbcc4be3615042 (patch) | |
tree | e735102ab3f8473002eb4221194727b55789a2fb | |
parent | 6e1d7bc8feb6901349e0fa5e025fd10f4580651e (diff) | |
download | org-mode-bf37cd09b128b4431e1dd1a538fbcc4be3615042.tar.gz |
org-table: Do not trim output of radio tables
* lisp/org-table.el (orgtbl-to-generic): Leading and trailing spaces
could be significant, so do not trim result. However, remove the
final newline character.
Reported-by: lom pik <lompikvoila@gmail.com> <>
<http://permalink.gmane.org/gmane.emacs.orgmode/99171>
-rw-r--r-- | lisp/org-table.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-table.el b/lisp/org-table.el index ada1ea4..de9946b 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -4765,7 +4765,8 @@ This may be either a string or a function of two arguments: (when (and backend (symbolp backend) (not (org-export-get-backend backend))) (user-error "Unknown :backend value")) (when (or (not backend) (plist-get params :raw)) (require 'ox-org)) - (org-trim + ;; Remove final newline. + (substring (org-export-string-as ;; Return TABLE as Org syntax. Tolerate non-string cells. (with-output-to-string @@ -4820,7 +4821,8 @@ This may be either a string or a function of two arguments: (table-cell . ,(org-table--to-generic-cell params)) ;; Section. Return contents to avoid garbage around table. (section . (lambda (s c i) c)))) - 'body-only (org-combine-plists params '(:with-tables t)))))) + 'body-only (org-combine-plists params '(:with-tables t))) + 0 -1))) (defun org-table--generic-apply (value name &optional with-cons &rest args) (cond ((null value) nil) |