From 672bfc4e495ec4da128f939c25283d432c422fe6 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 16 Jun 2008 18:23:18 +0200 Subject: [PATCH] Bug fix for next-allowed-value in column view. --- lisp/ChangeLog | 4 ++++ lisp/org-colview-xemacs.el | 3 ++- lisp/org-colview.el | 3 ++- 3 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 94187b908..f20bafcff 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2008-06-16 Carsten Dominik + * 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. diff --git a/lisp/org-colview-xemacs.el b/lisp/org-colview-xemacs.el index ade982344..eb24d8707 100644 --- a/lisp/org-colview-xemacs.el +++ b/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)) diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 81c6f33c7..a547056ab 100644 --- a/lisp/org-colview.el +++ b/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)) -- 2.11.4.GIT