From: Stephen Berman Date: Fri, 25 Jul 2014 21:53:52 +0000 (+0200) Subject: * calendar/todo-mode.el (todo-edit-item--next-key): If next key is X-Git-Tag: emacs-24.3.93~42 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e72e6612763d178bc283e8c8ec72325b85aa2384;p=emacs.git * calendar/todo-mode.el (todo-edit-item--next-key): If next key is not a character, ignore it instead of raising an error. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7869bee211c..b1c21261017 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-07-25 Stephen Berman + + * calendar/todo-mode.el (todo-edit-item--next-key): If next key is + not a character, ignore it instead of raising an error. + 2014-07-25 Stephen Berman * calendar/todo-mode.el: Fix handling of marked items and make diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index 60f798792d1..6a857a10fda 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -5551,8 +5551,8 @@ already entered and those still available." '(add/edit delete)) " comment")))) params " ")) - (this-key (char-to-string - (read-key (concat todo-edit-item--prompt p->k)))) + (this-key (let ((key (read-key (concat todo-edit-item--prompt p->k)))) + (and (characterp key) (char-to-string key)))) (this-param (car (rassoc this-key params)))) (pcase this-param (`edit (todo-edit-item--text))