mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-13 16:38:24 +00:00
Code

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

Browse Source
This commit is contained in:
Carsten Dominik 2008-06-16 18:23:18 +02:00
parent e1c22570b7
commit 672bfc4e49
3 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

3
lisp/org-colview-xemacs.el
View File

@ -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))

3
lisp/org-colview.el
View File

@ -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))