emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] [PATCH] Fix an error in org-taskjuggler-get-unique-id


From: Christian Egli
Subject: [Orgmode] [PATCH] Fix an error in org-taskjuggler-get-unique-id
Date: Tue, 19 Oct 2010 09:17:16 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1 (gnu/linux)

Don't try to pop from an empty list and downcase the result
---
 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)
-- 
1.7.0.4




reply via email to

[Prev in Thread] Current Thread [Next in Thread]