From 1ddb2150e64c2d07bd91a3883a0028a0b8599d76 Mon Sep 17 00:00:00 2001 From: Stephen Berman Date: Wed, 7 May 2014 11:31:27 +0200 Subject: [PATCH] todo-mode.el: Don't drop full parameter list. * calendar/todo-mode.el (todo-insert-item--apply-args): When all four slots of the parameter list are filled, make sure to pass it to the argument list of todo-insert-item--basic. --- lisp/ChangeLog | 6 ++++++ lisp/calendar/todo-mode.el | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8e5f5f54f16..f8502bd35bb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2014-05-07 Stephen Berman + + * calendar/todo-mode.el (todo-insert-item--apply-args): When all + four slots of the parameter list are filled, make sure to pass it + to the argument list of todo-insert-item--basic. + 2014-05-06 Stefan Monnier * emacs-lisp/package.el (package-compute-transaction): Topological sort. diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index ddc3a4843c9..4f4aefa6317 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -5360,7 +5360,8 @@ occupied by `nil'." (list (car (todo-insert-item--argsleft (todo-insert-item--this-key) todo-insert-item--argsleft))))) - (arglist (unless (= 4 (length args)) + (arglist (if (= 4 (length args)) + args (let ((v (make-vector 4 nil)) elt) (while args (setq elt (pop args)) -- 2.39.5