From: Carsten Dominik <dominik@science.uva.nl>
Date: Thu, 30 Aug 2007 13:56:28 +0000 (+0000)
Subject: (org-set-regexps-and-options): Use `org-remove-keyword-keys'.
X-Git-Tag: emacs-pretest-23.0.90~11189
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a2ac8d7658a78061df666a1976f76ef87e27a9fa;p=emacs.git

(org-set-regexps-and-options): Use `org-remove-keyword-keys'.
	(org-remove-keyword-keys): New function.
---

diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el
index 98874754664..55aa0b82684 100644
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -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 @@ means to push this value onto the list in the variable.")
 			     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 @@ means to push this value onto the list in the variable.")
 
     (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