diff options
author | Christian Egli <christian.egli@alumni.ethz.ch> | 2010-10-19 12:17:16 +0000 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2010-10-20 14:07:17 +0200 |
commit | 9542f8fa985cd94e9982868a72b3862dd017b1c7 (patch) | |
tree | fb9e880042c44b6e1774ac537d530cbe3e1edd3b | |
parent | 92531f3049523476005b6cc236980cf3d2285d14 (diff) | |
download | org-mode-9542f8fa985cd94e9982868a72b3862dd017b1c7.tar.gz |
Fix an error in org-taskjuggler-get-unique-id
Don't try to pop from an empty list and downcase the result
-rw-r--r-- | lisp/org-taskjuggler.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-taskjuggler.el b/lisp/org-taskjuggler.el index 23f4b62..6367b7a 100644 --- a/lisp/org-taskjuggler.el +++ b/lisp/org-taskjuggler.el @@ -503,7 +503,7 @@ finally add more underscore characters (\"_\")." (parts (split-string headline)) (id (org-taskjuggler-clean-id (downcase (pop parts))))) ; try to add more parts of the headline to make it unique - (while (member id unique-ids) + (while (and (member id unique-ids) (car parts)) (setq id (concat id "_" (org-taskjuggler-clean-id (downcase (pop parts)))))) ; if its still not unique add "_" (while (member id unique-ids) |