Bug fix for next-allowed-value in column view.

lisp/ChangeLog

@@ -1,5 +1,9 @@
 2008-06-16  Carsten Dominik  <dominik@science.uva.nl>
 
+	* org-colview.el (org-columns-next-allowed-value): Bug fix.
+
+	* org-colview-xemacs.el (org-columns-next-allowed-value): Bug fix.
+
 	* org-agenda.el (org-agenda-get-closed): Get the end time into the
 	agenda prefix as well.
 

lisp/org-colview-xemacs.el

@@ -750,7 +750,8 @@ an integer, select that value."
 	(setq nval (or (car (cdr (member value allowed)))
 		       (car allowed)))
 	(if (equal nval value)
-	    (error "Only one allowed value for this property")))))
+	    (error "Only one allowed value for this property")))
+       (t (setq nval (car allowed)))))
     (cond
      ((equal major-mode 'org-agenda-mode)
       (org-columns-eval '(org-entry-put pom key nval))

lisp/org-colview.el

@@ -553,7 +553,8 @@ an integer, select that value."
 	(setq nval (or (car (cdr (member value allowed)))
 		       (car allowed)))
 	(if (equal nval value)
-	    (error "Only one allowed value for this property")))))
+	    (error "Only one allowed value for this property")))
+       (t (setq nval (car allowed)))))
     (cond
      ((equal major-mode 'org-agenda-mode)
       (org-columns-eval '(org-entry-put pom key nval))