diff options
author | Christian Egli <christian.egli@sbszh.ch> | 2011-04-28 12:04:11 +0200 |
---|---|---|
committer | Christian Egli <christian.egli@sbszh.ch> | 2011-04-28 12:11:46 +0200 |
commit | 2e21cd424a8a14c93bd2c88cacc58d3e760bb396 (patch) | |
tree | a43dd33ba642f898a35ed37e6324e765a800d185 | |
parent | 9010ae64fbcff3032086297f5b79cdb1d02a7705 (diff) | |
download | org-mode-2e21cd424a8a14c93bd2c88cacc58d3e760bb396.tar.gz |
Taskjuggler: Make sure an id never starts with a number
* org-taskjuggler.el (org-taskjuggler-clean-id): Make sure an
id never starts with a number.
Taskjuggler IDs may not start with a number
-rw-r--r-- | lisp/org-taskjuggler.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/org-taskjuggler.el b/lisp/org-taskjuggler.el index f891634..d2e5c1f 100644 --- a/lisp/org-taskjuggler.el +++ b/lisp/org-taskjuggler.el @@ -542,7 +542,12 @@ finally add more underscore characters (\"_\")." (defun org-taskjuggler-clean-id (id) "Clean and return ID to make it acceptable for taskjuggler." - (and id (replace-regexp-in-string "[^a-zA-Z0-9_]" "_" id))) + (and id + ;; replace non-ascii by _ + (replace-regexp-in-string + "[^a-zA-Z0-9_]" "_" + ;; make sure id doesn't start with a number + (replace-regexp-in-string "^\\([0-9]\\)" "_\\1" id)))) (defun org-taskjuggler-open-project (project) "Insert the beginning of a project declaration. All valid |