Browse Source

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

This reverts commit 5b59e16c9ea7ffa04ab71f8d37f8b8677e89f735.
Nicolas Goaziou 1 year ago
parent
commit
8c9ebc81f0
2 changed files with 1 additions and 23 deletions
  1. 1 1
      lisp/ob-table.el
  2. 0 22
      testing/lisp/test-ob-table.el

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

+ 0 - 22
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