Browse Source

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

Carsten Dominik 17 years ago
parent
commit
672bfc4e49
3 changed files with 8 additions and 2 deletions
  1. 4 0
      lisp/ChangeLog
  2. 2 1
      lisp/org-colview-xemacs.el
  3. 2 1
      lisp/org-colview.el

+ 4 - 0
lisp/ChangeLog

@@ -1,5 +1,9 @@
 2008-06-16  Carsten Dominik  <dominik@science.uva.nl>
 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
 	* org-agenda.el (org-agenda-get-closed): Get the end time into the
 	agenda prefix as well.
 	agenda prefix as well.
 
 

+ 2 - 1
lisp/org-colview-xemacs.el

@@ -750,7 +750,8 @@ an integer, select that value."
 	(setq nval (or (car (cdr (member value allowed)))
 	(setq nval (or (car (cdr (member value allowed)))
 		       (car allowed)))
 		       (car allowed)))
 	(if (equal nval value)
 	(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
     (cond
      ((equal major-mode 'org-agenda-mode)
      ((equal major-mode 'org-agenda-mode)
       (org-columns-eval '(org-entry-put pom key nval))
       (org-columns-eval '(org-entry-put pom key nval))

+ 2 - 1
lisp/org-colview.el

@@ -553,7 +553,8 @@ an integer, select that value."
 	(setq nval (or (car (cdr (member value allowed)))
 	(setq nval (or (car (cdr (member value allowed)))
 		       (car allowed)))
 		       (car allowed)))
 	(if (equal nval value)
 	(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
     (cond
      ((equal major-mode 'org-agenda-mode)
      ((equal major-mode 'org-agenda-mode)
       (org-columns-eval '(org-entry-put pom key nval))
       (org-columns-eval '(org-entry-put pom key nval))