From 0491e5305ecf564122b046796c5f6d010eab573d Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 15 Feb 2011 18:25:43 +0100 Subject: [PATCH] `org-export-default-language': Better docstring. --- lisp/org-exp.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/org-exp.el b/lisp/org-exp.el index b4f700a31..9450372ca 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -204,8 +204,9 @@ or use the +OPTION lines for a per-file setting." (string :tag "Footnotes")))) (defcustom org-export-default-language "en" - "The default language of HTML export, as a string. -This should have an association in `org-export-language-setup'." + "The default language for export and clocktable translations, as a string. +This should have an association in `org-export-language-setup' +and in `org-clock-clocktable-language-setup'." :group 'org-export-general :type 'string) @@ -1718,6 +1719,7 @@ table line. If it is a link, add it to the line containing the link." cap shortn attr label end) (while (re-search-forward re nil t) (cond + ;; there is a caption ((match-end 1) (progn (setq cap (concat cap (if cap " " "") (org-trim (match-string 1)))) @@ -1725,10 +1727,12 @@ table line. If it is a link, add it to the line containing the link." (setq shortn (match-string 1 cap) cap (match-string 2 cap))) (delete-region (point-at-bol) (min (1+ (point-at-eol)) (point-max))))) + ;; there is an attribute ((match-end 2) (progn (setq attr (concat attr (if attr " " "") (org-trim (match-string 2)))) (delete-region (point-at-bol) (min (1+ (point-at-eol)) (point-max))))) + ;; there is a label ((match-end 3) (progn (setq label (org-trim (match-string 3))) -- 2.11.4.GIT