Mercurial > emacs
changeset 83789:f24652d06ede
(org-set-regexps-and-options): Use `org-remove-keyword-keys'.
(org-remove-keyword-keys): New function.
| author | Carsten Dominik <dominik@science.uva.nl> |
|---|---|
| date | Thu, 30 Aug 2007 13:56:28 +0000 |
| parents | ccdcb900589c |
| children | 2aeb19284040 |
| files | lisp/textmodes/org.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/org.el Thu Aug 30 13:55:48 2007 +0000 +++ b/lisp/textmodes/org.el Thu Aug 30 13:56:28 2007 +0000 @@ -5,7 +5,7 @@ ;; Author: Carsten Dominik <dominik at science dot uva dot nl> ;; Keywords: outlines, hypermedia, calendar, wp ;; Homepage: http://www.astro.uva.nl/~dominik/Tools/org/ -;; Version: 5.07 +;; Version: 5.08 ;; ;; This file is part of GNU Emacs. ;; @@ -3827,7 +3827,7 @@ kws0) kwsa (if kwsa (append '((:startgroup)) kwsa '((:endgroup)))) hw (car kws1) - dws (if sep (cdr sep) (last kws1)) + dws (if sep (org-remove-keyword-keys (cdr sep)) (last kws1)) tail (list inter hw (car dws) (org-last dws))) (add-to-list 'org-todo-heads hw 'append) (push kws1 org-todo-sets) @@ -3936,6 +3936,12 @@ (org-set-font-lock-defaults))) +(defun org-remove-keyword-keys (list) + (mapcar (lambda (x) + (if (string-match "(.)$" x) + (substring x 0 (match-beginning 0)) + x)) + list)) ;;; Some variables ujsed in various places