diff --git a/lisp/ob-table.el b/lisp/ob-table.el index 105aca5e2..f6a5c88e4 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 3d9b1d160..da136cbee 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