浏览代码

Fixed bug for customization of user-defined skipping condition.

The customize setup for this was broken.  Reported by Max Mikhanosha.
Carsten Dominik 17 年之前
父节点
当前提交
bdcafa20a3
共有 2 个文件被更改,包括 7 次插入3 次删除
  1. 5 0
      lisp/ChangeLog
  2. 2 3
      lisp/org-agenda.el

+ 5 - 0
lisp/ChangeLog

@@ -1,3 +1,8 @@
+2008-07-17  Carsten Dominik  <dominik@science.uva.nl>
+
+	* org-agenda.el (org-agenda-custom-commands-local-options): Fixed
+	bug with user-define skipping condition.
+
 2008-07-16  Carsten Dominik  <dominik@science.uva.nl>
 2008-07-16  Carsten Dominik  <dominik@science.uva.nl>
 
 
 	* org-agenda.el (org-agenda-get-restriction-and-command): Fixed typo.
 	* org-agenda.el (org-agenda-get-restriction-and-command): Fixed typo.

+ 2 - 3
lisp/org-agenda.el

@@ -211,9 +211,8 @@ you can \"misuse\" it to also add other text to the header.  However,
 			     (const :tag "no deadline" 'notdeadline))))))
 			     (const :tag "no deadline" 'notdeadline))))))
 	    (list :tag "Non-standard skipping condition"
 	    (list :tag "Non-standard skipping condition"
 		  :value (org-agenda-skip-function)
 		  :value (org-agenda-skip-function)
-		  (list
-		   (const org-agenda-skip-function)
-		   (sexp :tag "Function or form (quoted!)")))))
+		  (const org-agenda-skip-function)
+		  (sexp :tag "Function or form (quoted!)"))))
   "Selection of examples for agenda command settings.
   "Selection of examples for agenda command settings.
 This will be spliced into the custom type of
 This will be spliced into the custom type of
 `org-agenda-custom-commands'.")
 `org-agenda-custom-commands'.")