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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8e5f5f54f169e14781334a20e4bdf76883a995af..f8502bd35bb20e8ea872edffb61b07a58ed9d3ef 100644 (file)
--- 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 ddc3a4843c912eb4d073b323af3b68e4269017b4..4f4aefa6317b73ffc69c532ac7da33d2762e51f6 100644 (file)
--- 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))