--- todo-mode-1.34.el	Thu Jun 14 23:20:01 2001
+++ todo-mode-1.34-srb0.el	Tue Nov 13 15:02:27 2001
@@ -832,14 +842,22 @@
 (defun todo-insert-item-here ()
   "Insert new TODO list entry under the cursor."
   (interactive "")
-  (save-excursion
+  ;; uncomment if you want the cursor to stay where it was before 
+  ;; insertion of this item -- otherwise cursor moves to beginning
+  ;; of next line after this item 
+;   (save-excursion  
     (if (not (string-equal mode-name "TODO")) (todo-show))
+    ;; insert this item immediately above the item the cursor
+    ;; currently located at -- comment this line out if you want
+    ;; the item to be inserted at the cursor's current location
+    (goto-char (todo-item-start))
     (let* ((new-item (concat todo-prefix " "
 			     (read-from-minibuffer
 			      "New TODO entry: "
 			      (if todo-entry-prefix-function
 				  (funcall todo-entry-prefix-function))))))
-      (insert (concat new-item "\n")))))
+      (insert (concat new-item "\n"))));)  ; uncomment if save-excursion 
+				           ; is uncommented
 
 (defun todo-more-important-p (line)
   "Ask whether entry is more important than the one at LINE."