emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] [PATCH] quote the real csv separator


From: Łukasz Stelmach
Subject: [Orgmode] [PATCH] quote the real csv separator
Date: Sun, 24 Oct 2010 00:56:32 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux)

Hi.

I'd rather use an optional sep argument to the org-quote-csv-field
function but I've got no idea how to stick it into the orgtbl-apply-fmt.
However, the quoting function should use current rather then assume
comma.

--8<---------------cut here---------------start------------->8---
diff --git a/lisp/org.el b/lisp/org.el
index b482b8e..501dd8d 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -18019,7 +18019,7 @@ With prefix arg UNCOMPILED, load the uncompiled 
versions."
 
 (defun org-quote-csv-field (s)
   "Quote field for inclusion in CSV material."
-  (if (string-match "[\",]" s)
+  (if (string-match (concat "[\"" *orgtbl-sep* "]") s)
       (concat "\"" (mapconcat 'identity (split-string s "\"") "\"\"") "\"")
     s))
 
--8<---------------cut here---------------end--------------->8---

-- 
Miłego dnia,
Łukasz Stelmach




reply via email to

[Prev in Thread] Current Thread [Next in Thread]