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

+2014-05-07  Stephen Berman  <stephen.berman@gmx.net>
+
+	* 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  <monnier@iro.umontreal.ca>
 	* emacs-lisp/package.el (package-compute-transaction): Topological sort.

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