| | 54 | |
|---|
| | 55 | == Patch to trac-wiki.el to reflect changes in xml-rpc.el == |
|---|
| | 56 | |
|---|
| | 57 | At some point xml-rpc.el changed the way it handles datetime. trac-wiki.el needs the patch below applied to use this new format. |
|---|
| | 58 | |
|---|
| | 59 | {{{ |
|---|
| | 60 | #!diff |
|---|
| | 61 | diff -E -b -u trac-wiki.el.1 trac-wiki.el |
|---|
| | 62 | --- trac-wiki.el.1 2007-11-15 03:50:18.000000000 +1300 |
|---|
| | 63 | +++ trac-wiki.el 2011-02-14 23:08:27.000000000 +1300 |
|---|
| | 64 | @@ -1921,24 +1921,8 @@ |
|---|
| | 65 | |
|---|
| | 66 | (defun trac-wiki-convert-to-readable-time-string (str) |
|---|
| | 67 | "Parse STR as ISO format time and return encoded time value." |
|---|
| | 68 | - (if (not (string-match (concat "\\`" |
|---|
| | 69 | - "\\([0-9][0-9][0-9][0-9]\\)" |
|---|
| | 70 | - "\\([0-9][0-9]\\)" |
|---|
| | 71 | - "\\([0-9][0-9]\\)" |
|---|
| | 72 | - "T" |
|---|
| | 73 | - "\\([0-9][0-9]?\\)" |
|---|
| | 74 | - ":" |
|---|
| | 75 | - "\\([0-9][0-9]?\\)" |
|---|
| | 76 | - ":" |
|---|
| | 77 | - "\\([0-9][0-9]?\\)" |
|---|
| | 78 | - "\\([-+][0-9][0-9][0-9][0-9]\\)?" |
|---|
| | 79 | - "\\'") |
|---|
| | 80 | - str)) |
|---|
| | 81 | - (error "Invalid time format: %s" str) |
|---|
| | 82 | - (apply 'format "%s-%s-%s %s:%s:%s%s" |
|---|
| | 83 | - (append (mapcar (lambda (n) |
|---|
| | 84 | - (or (match-string n str) "")) |
|---|
| | 85 | - '(1 2 3 4 5 6 7)))))) |
|---|
| | 86 | + (xml-rpc-datetime-to-string str) |
|---|
| | 87 | +) |
|---|
| | 88 | }}} |
|---|
