|
@@ -4670,7 +4670,7 @@ This will extract info from a string like \"WAIT(w@/!)\"."
|
|
|
|
|
|
|
|
(defun org-remove-keyword-keys (list)
|
|
(defun org-remove-keyword-keys (list)
|
|
|
(mapcar (lambda (x)
|
|
(mapcar (lambda (x)
|
|
|
- (if (string-match "(..?)$" x)
|
|
|
|
|
|
|
+ (if (string-match "(.*)$" x)
|
|
|
(substring x 0 (match-beginning 0))
|
|
(substring x 0 (match-beginning 0))
|
|
|
x))
|
|
x))
|
|
|
list))
|
|
list))
|
Carsten Dominik