浏览代码

Fix bug in org-clock-report.

* org-clock.el (org-clocktable-write-default): Bugfix: falls
back on `org-export-default-language' when no :lang parameter
is set.

Also fix various typo in comments.
Bastien Guerry 14 年之前
父节点
当前提交
93a8fc9849
共有 1 个文件被更改,包括 8 次插入6 次删除
  1. 8 6
      lisp/org-clock.el

+ 8 - 6
lisp/org-clock.el

@@ -2021,13 +2021,15 @@ the currently selected interval size."
 TABLES is a list of tables with clocking data as produced by
 TABLES is a list of tables with clocking data as produced by
 `org-clock-get-table-data'.  PARAMS is the parameter property list obtained
 `org-clock-get-table-data'.  PARAMS is the parameter property list obtained
 from the dynamic block defintion."
 from the dynamic block defintion."
-  ;; This function looks quite complicated, mainly because there are a lot
-  ;; of options which can add or remove columns.  I have massively commented
-  ;; function, to I hope it is understandable.  If someone want to write
-  ;; there own special formatter, this maybe much easier because there can
-  ;; be a fixed format with a well-defined number of columns...
+  ;; This function looks quite complicated, mainly because there are a
+  ;; lot of options which can add or remove columns.  I have massively
+  ;; commented this function, the I hope it is understandable.  If
+  ;; someone wants to write their own special formatter, this maybe
+  ;; much easier because there can be a fixed format with a
+  ;; well-defined number of columns...
   (let* ((hlchars '((1 . "*") (2 . "/")))
   (let* ((hlchars '((1 . "*") (2 . "/")))
-	 (lwords (assoc (plist-get params :lang) 
+	 (lwords (assoc (or (plist-get params :lang) 
+			    org-export-default-language)
 			org-clock-clocktable-language-setup))
 			org-clock-clocktable-language-setup))
 	 (multifile (plist-get params :multifile))
 	 (multifile (plist-get params :multifile))
 	 (block (plist-get params :block))
 	 (block (plist-get params :block))