From 8c177dc832980bd8cf23fc2ae72b18e0b472b59e Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Fri, 14 Aug 2009 17:18:14 +0200
Subject: [PATCH] Avoid text properties on elements in custom variables

---
 lisp/ChangeLog     | 8 ++++++++
 lisp/org-agenda.el | 3 ++-
 lisp/org.el        | 2 +-
 3 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1f3be38d5..a5904f43f 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2009-08-14  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org.el (org-fast-tag-selection): Avoid text properties on tags
+	in the alist.
+
+	* org-agenda.el (org-agenda-get-restriction-and-command): Avoid
+	text properties on the match element.
+
 2009-08-12  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org.el (org-set-regexps-and-options): Make sure the list of done
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index b13edf842..fba7014bc 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -1806,7 +1806,8 @@ s   Search for keywords                 C   Configure custom agenda commands
 	  (delete-region (point) (point-max))
 	  (while (setq entry (pop custom1))
 	    (setq key (car entry) desc (nth 1 entry)
-		  type (nth 2 entry) match (nth 3 entry))
+		  type (nth 2 entry)
+		  match (org-no-properties (copy-sequence (nth 3 entry))))
 	    (if (> (length key) 1)
 		(add-to-list 'prefixes (string-to-char key))
 	      (insert
diff --git a/lisp/org.el b/lisp/org.el
index ceacb18fd..60323be9e 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -11241,7 +11241,7 @@ Returns the new tags string, or nil to not change the current settings."
 	      (insert "\n")
 	      (setq tbl (cdr tbl)))))
 	 (t
-	  (setq tg (car e) c2 nil)
+	  (setq tg (copy-sequence (car e)) c2 nil)
 	  (if (cdr e)
 	      (setq c (cdr e))
 	    ;; automatically assign a character.