diff options
| author | Stephen Berman <stephen.berman@gmx.net> | 2014-05-07 11:31:27 +0200 |
|---|---|---|
| committer | Stephen Berman <stephen.berman@gmx.net> | 2014-05-07 11:31:27 +0200 |
| commit | 1ddb2150e64c2d07bd91a3883a0028a0b8599d76 (patch) | |
| tree | 9bccdc197f847f3efc9b9b9008f17f2e7e52d90d | |
| parent | 5e87fcb1d7c55532cfb7163b1de68e7ddaed4201 (diff) | |
| download | emacs-1ddb2150e64c2d07bd91a3883a0028a0b8599d76.tar.gz | |
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.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/calendar/todo-mode.el | 3 |
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)) |