The *orgtbl-default-fmt* is a hook for orgtbl transformations to ensure a destination-sensible default for columns not present in a fmt plist. The leaving the value at nil changes no existing behavior.
Signed-off-by: Jason Riedy <[EMAIL PROTECTED]> --- ChangeLog | 6 ++++++ lisp/org-table.el | 5 ++++- 2 files changed, 10 insertions(+), 1 deletions(-) diff --git a/ChangeLog b/ChangeLog index 15c9602..69710ec 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2008-05-04 Jason Riedy <[EMAIL PROTECTED]> + + * lisp/org-table.el (*orgtbl-default-fmt*): New variable. + (orgtbl-format-line): Use the value of *orgtbl-default-fmt* + when there is no other fmt available. + 2008-05-02 Carsten Dominik <[EMAIL PROTECTED]> * lisp/org.el (org-read-date-analyze): "." as an alias for "+0" in diff --git a/lisp/org-table.el b/lisp/org-table.el index ef1d932..17441cd 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -3631,6 +3631,7 @@ First element has index 0, or I0 if given." ;; Formatting parameters for the current table section. (defvar *orgtbl-hline* nil "Text used for horizontal lines") (defvar *orgtbl-sep* nil "Text used as a column separator") +(defvar *orgtbl-default-fmt* nil "Default format for each entry") (defvar *orgtbl-fmt* nil "Format for each entry") (defvar *orgtbl-efmt* nil "Format for numbers") (defvar *orgtbl-lfmt* nil "Format for an entire line, overrides fmt") @@ -3672,7 +3673,9 @@ First element has index 0, or I0 if given." (orgtbl-apply-fmt efmt (match-string 1 f) (match-string 2 f)) f))) - (orgtbl-apply-fmt (orgtbl-get-fmt *orgtbl-fmt* i) f))) + (orgtbl-apply-fmt (or (orgtbl-get-fmt *orgtbl-fmt* i) + *orgtbl-default-fmt*) + f))) line))) (push (if *orgtbl-lfmt* (orgtbl-apply-fmt *orgtbl-lfmt* line) -- 1.5.5.rc1.121.g1594 _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode