From b2dffa997e59702dfd6480363adb66d0e1e62adf Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Thu, 28 Feb 2013 19:40:46 +0800 Subject: [PATCH 36/36] Allow calc-group-digits to be specified in TBLFMT format string. --- lisp/org-table.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org-table.el b/lisp/org-table.el index 9cfb4b9..8c684b2 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -2504,6 +2504,7 @@ of the new mark." (if (stringp var) (setq var (assoc var '(("D" calc-angle-mode deg) ("R" calc-angle-mode rad) + ("G" calc-group-digits t) ("F" calc-prefer-frac t) ("S" calc-symbolic-mode t))) value (nth 2 var) var (nth 1 var))) @@ -2611,7 +2612,7 @@ not overwrite the stored one." (if (string-match "E" fmt) (setq keep-empty t fmt (replace-match "" t t fmt))) - (while (string-match "[DRFS]" fmt) + (while (string-match "[DRFGS]" fmt) (setq org-tbl-calc-modes (org-set-calc-mode (match-string 0 fmt))) (setq fmt (replace-match "" t t fmt))) (unless (string-match "\\S-" fmt) -- 1.8.1.4