diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2013-07-14 16:20:49 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2013-07-14 16:20:49 -0600 |
commit | ca56230fc1cf55ee66df2be35de9bdea8549345f (patch) | |
tree | 7ddae8d0a51b31ace8b14fa822d31fafbcdd0eb2 | |
parent | 4899c79e66be48b81238ba201398e1e8e55b807c (diff) | |
download | org-mode-ca56230fc1cf55ee66df2be35de9bdea8549345f.tar.gz |
more robust sbe macro
-rw-r--r-- | lisp/ob-table.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ob-table.el b/lisp/ob-table.el index 869d992..8b3e36d 100644 --- a/lisp/ob-table.el +++ b/lisp/ob-table.el @@ -97,9 +97,11 @@ as shown in the example below. (lambda (el) (if (eq '$ el) (prog1 nil (setq quote t)) - (prog1 (if quote - (format "\"%s\"" el) - (org-no-properties el)) + (prog1 + (cond + (quote (format "\"%s\"" el)) + ((stringp el) (org-no-properties el)) + (t el)) (setq quote nil)))) (cdr var))))) variables))) |