org-clock: Fix error when using unknown language

* lisp/org-clock.el (org-clocktable-write-default): Be careful
  that (nth 4 lwords) and (nth 5 lwords) can be nil, if :lang as an
  unknown value.
This commit is contained in:
Nicolas Goaziou 2017-02-17 14:34:19 +01:00
parent 013c0af8b0
commit 7ca2e027a6
1 changed files with 2 additions and 2 deletions

View File

@ -2543,8 +2543,8 @@ from the dynamic block definition."
(if properties ;properties columns, maybe (if properties ;properties columns, maybe
(concat (mapconcat #'identity properties "|") "|") (concat (mapconcat #'identity properties "|") "|")
"") "")
(nth 4 lwords) "|" ;headline (concat (nth 4 lwords) "|") ;headline
(nth 5 lwords) "|" ;time column (concat (nth 5 lwords) "|") ;time column
(make-string (max 0 (1- (min maxlevel (or ntcol 100)))) (make-string (max 0 (1- (min maxlevel (or ntcol 100))))
?|) ;other time columns ?|) ;other time columns
(if (eq formula '%) "%|\n" "\n")) (if (eq formula '%) "%|\n" "\n"))