--- todo-mode-1.34.el	Thu Jun 14 23:20:01 2001
+++ todo-mode-1.34-srb0.el	Wed Nov 14 22:20:00 2001
@@ -723,14 +725,19 @@
 
 (defun todo-edit-item () "Edit current TODO list entry."
   (interactive)
-  (let ((item (todo-item-string)))
+  (let ((item (todo-item-string))
+	;; cursor position within item prior to editing
+	(current-point (- (point) (todo-item-start) -1)))
     (if (todo-string-multiline-p item)
         (todo-edit-multiline)
-      (let ((new (read-from-minibuffer "Edit: " item)))
+      (let ((new (read-from-minibuffer "Edit: " (cons item current-point))))
         (todo-remove-item)
         (insert new "\n")
         (todo-backward-item)
-        (message "")))))
+	;; make cursor position after editing the same as before editing
+	(forward-char (1- current-point)) 
+        (message ""))
+      )))
 (defalias 'todo-cmd-edit 'todo-edit-item)
 
 (defun todo-edit-multiline ()