Revert "ob-table: Fix org-sbe's handling of quotes in cell values"

This reverts commit 5b59e16c9e.
This commit is contained in:
Nicolas Goaziou 2018-03-25 22:55:24 +02:00
parent 9e70db6bab
commit 8c9ebc81f0
2 changed files with 1 additions and 23 deletions

View File

@ -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))))

View File

@ -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