HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge from emacs-23; up to 2010-06-01T01:49:15Z!monnier@iro.umontreal.ca
[bpt/emacs.git]
/
lisp
/
org
/
org-taskjuggler.el
diff --git
a/lisp/org/org-taskjuggler.el
b/lisp/org/org-taskjuggler.el
index
da9e156
..
94341d8
100644
(file)
--- a/
lisp/org/org-taskjuggler.el
+++ b/
lisp/org/org-taskjuggler.el
@@
-1,10
+1,10
@@
;;; org-taskjuggler.el --- TaskJuggler exporter for org-mode
;;
;;; org-taskjuggler.el --- TaskJuggler exporter for org-mode
;;
-;; Copyright (C) 2007
, 2008, 2009, 2010
Free Software Foundation, Inc.
+;; Copyright (C) 2007
-2011
Free Software Foundation, Inc.
;;
;; Emacs Lisp Archive Entry
;; Filename: org-taskjuggler.el
;;
;; Emacs Lisp Archive Entry
;; Filename: org-taskjuggler.el
-;; Version: 7.
01
+;; Version: 7.
4
;; Author: Christian Egli
;; Maintainer: Christian Egli
;; Keywords: org, taskjuggler, project planning
;; Author: Christian Egli
;; Maintainer: Christian Egli
;; Keywords: org, taskjuggler, project planning
@@
-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
(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)
(setq id (concat id "_" (org-taskjuggler-clean-id (downcase (pop parts))))))
; if its still not unique add "_"
(while (member id unique-ids)