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.

2 files changed, 8 insertions, 1 deletions

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