Merge from trunk.

[gnu-emacs] / lisp / calendar / todos.el

diff --git a/lisp/calendar/todos.el b/lisp/calendar/todos.el
index 4f83ead0d48f059713c53cafc1c0893190ffb302..5b2c465457b8401271a2cfe1e57c56d49530b959 100644 (file)
--- a/lisp/calendar/todos.el
+++ b/lisp/calendar/todos.el
@@ -2795,7 +2795,7 @@ visible."
          ;; When done items are shown, put cursor on first just done item.
          (when opoint (goto-char opoint)))))))
 
-(defun todos-done-item-add-edit-or-delete-comment (&optional arg)
+(defun todos-edit-done-item-comment (&optional arg)
   "Add a comment to this done item or edit an existing comment.
 With prefix ARG delete an existing comment."
   (interactive "P")
@@ -5989,7 +5989,7 @@ Filtered Items mode following todo (not done) items."
     ("et"           todos-edit-item-time)
     ("eyy"          todos-edit-item-diary-inclusion)
     ("eyk"          todos-edit-item-diary-nonmarking)
-    ("ec"           todos-done-item-add-edit-or-delete-comment)
+    ("ec"           todos-edit-done-item-comment)
     ("d"            todos-item-done)
     ("i"            ,todos-insertion-map)
     ("k"            todos-delete-item)