[Emacs-diffs] emacs-24 r117076: todo-mode.el: Don't drop full parameter list.

[Stephen Berman]

------------------------------------------------------------
revno: 117076
revision-id: address@hidden
parent: address@hidden
author: Stephen Berman  <address@hidden>
committer: Stephen Berman <address@hidden>
branch nick: emacs-24
timestamp: Wed 2014-05-07 11:31:27 +0200
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/calendar/todo-mode.el     todos.el-20120911155047-0ytqo2nidwqquefa-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-05-06 18:11:16 +0000
+++ b/lisp/ChangeLog    2014-05-07 09:31:27 +0000
@@ -1,3 +1,9 @@
+2014-05-07  Stephen Berman  <address@hidden>
+
+       * 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  <address@hidden>
 
        * emacs-lisp/package.el (package-compute-transaction): Topological sort.

=== modified file 'lisp/calendar/todo-mode.el'
--- a/lisp/calendar/todo-mode.el        2014-05-02 14:10:11 +0000
+++ b/lisp/calendar/todo-mode.el        2014-05-07 09:31:27 +0000
@@ -5360,7 +5360,8 @@
                      (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))