summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2018-03-25 22:55:24 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2018-03-25 22:55:24 +0200
commit8c9ebc81f087a30c84e6333e133c17ffc27e40ed (patch)
treeb22ff44ec4774cfdaa2b1344e968cca32bb294a0
parent9e70db6babcbfa457461bea3745410d372cc241a (diff)
downloadorg-mode-8c9ebc81f087a30c84e6333e133c17ffc27e40ed.tar.gz
Revert "ob-table: Fix org-sbe's handling of quotes in cell values"
This reverts commit 5b59e16c9ea7ffa04ab71f8d37f8b8677e89f735.
-rw-r--r--lisp/ob-table.el2
-rw-r--r--testing/lisp/test-ob-table.el22
2 files changed, 1 insertions, 23 deletions
diff --git a/lisp/ob-table.el b/lisp/ob-table.el
index 105aca5..f6a5c88 100644
--- a/lisp/ob-table.el
+++ b/lisp/ob-table.el
@@ -112,7 +112,7 @@ as shown in the example below.
(prog1 nil (setq quote t))
(prog1
(cond
- (quote (format "%S" el))
+ (quote (format "\"%s\"" el))
((stringp el) (org-no-properties el))
(t el))
(setq quote nil))))
diff --git a/testing/lisp/test-ob-table.el b/testing/lisp/test-ob-table.el
index 3d9b1d1..da136cb 100644
--- a/testing/lisp/test-ob-table.el
+++ b/testing/lisp/test-ob-table.el
@@ -30,28 +30,6 @@
;; (org-test-at-id "6d2ff4ce-4489-4e2a-9c65-e3f71f77d975"
;; (should (= 2 (sbe take-sqrt (n "4"))))))
-(ert-deftest test-ob-table/sbe-quote ()
- "Test that `org-sbe' can correctly handle cell values containing quotes."
- (org-test-table-target-expect
- "
-#+name: identity
-#+begin_src emacs-lisp :eval yes
- x
-#+end_src
-
-| a\"b\"c | replace |
-"
- "
-#+name: identity
-#+begin_src emacs-lisp :eval yes
- x
-#+end_src
-
-| a\"b\"c | a\"b\"c |
-"
- 1
- "#+TBLFM: $2 = '(org-sbe identity (x $$1))"))
-
(provide 'test-ob-table)
;;; test-ob-table.el ends here