# HG changeset patch
# User Oliver Seidel <os10000@seidel-space.de>
# Date 878075232 0
# Node ID 33e3febd442d90d37493306285b2e42162d32699
# Parent  5c9cedc7dd759d45a03a6ea49f5d844c94c9b6ba
Implemented "insert-under-cursor" as suggested by
Kai Grossjohann <grossjohann@ls6.cs.uni-dortmund.de>.

diff -r 5c9cedc7dd75 -r 33e3febd442d lisp/calendar/todo-mode.el
--- a/lisp/calendar/todo-mode.el	Tue Oct 28 21:37:05 1997 +0000
+++ b/lisp/calendar/todo-mode.el	Tue Oct 28 21:47:12 1997 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Oliver.Seidel@cl.cam.ac.uk (was valid on Aug 2, 1997)
 ;; Created: 2 Aug 1997
-;; Version: $Id: todo-mode.el,v 1.27 1997/10/28 21:26:55 os10000 Exp os10000 $
+;; Version: $Id: todo-mode.el,v 1.28 1997/10/28 21:37:05 os10000 Exp os10000 $
 ;; Keywords: Categorised TODO list editor, todo-mode
 
 ;; This file is part of GNU Emacs.
@@ -96,7 +96,7 @@
 ;;
 ;;      Which version of todo-mode.el does this documentation refer to?
 ;;
-;;      $Id: todo-mode.el,v 1.27 1997/10/28 21:26:55 os10000 Exp os10000 $
+;;      $Id: todo-mode.el,v 1.28 1997/10/28 21:37:05 os10000 Exp os10000 $
 ;;
 ;;  Pre-Requisites
 ;;
@@ -265,6 +265,10 @@
 ;;; Change Log:
 
 ;; $Log: todo-mode.el,v $
+;; Revision 1.28  1997/10/28 21:37:05  os10000
+;; Incorporated simplifying suggestions from
+;; Carsten Dominik <dominik@strw.LeidenUniv.nl>.
+;;
 ;; Revision 1.27  1997/10/28 21:26:55  os10000
 ;; Patch from Paul Stodghill <stodghil@CS.Cornell.EDU>:
 ;; The patch below fixes todo-insert-item so that it will
@@ -615,6 +619,7 @@
     (define-key map "d" 'todo-file-item) ;done/delete
     (define-key map "f" 'todo-file-item)
     (define-key map "i" 'todo-insert-item)
+    (define-key map "I" 'todo-insert-item-here)
     (define-key map "j" 'todo-jump-to-category)
     (define-key map "k" 'todo-delete-item)
     (define-key map "l" 'todo-lower-item)
@@ -782,7 +787,6 @@
   (interactive "P")
   (save-excursion
   (todo-show)
-  )
   (let* ((new-item (concat todo-prefix " "
 			   (read-from-minibuffer
                             "New TODO entry: "
@@ -798,10 +802,22 @@
                     (concat "Category ["
                             current-category "]: ")
                     (todo-category-alist) nil nil nil history))))
-    (todo-add-item-non-interactively new-item category ARG)))
+    (todo-add-item-non-interactively new-item category ARG))))
 
 (defalias 'todo-cmd-inst 'todo-insert-item)
 
+;;;### autoload
+(defun todo-insert-item-here ()
+  "Insert new TODO list entry under the cursor."
+  (interactive)
+  (save-excursion
+    (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")))))
+
 (defun todo-more-important-p (line)
   "Ask whether entry is more important than the one at LINE."
   (if (not (equal todo-previous-line line))
@@ -1101,6 +1117,7 @@
                     ["Edit item"            todo-edit-item t]
                     ["File item"            todo-file-item t]
                     ["Insert new item"      todo-insert-item t]
+                    ["Insert item here"     todo-insert-item-here t]
                     ["Kill item"            todo-delete-item t]
                     "---"
                     ["Lower item priority"  todo-lower-item t]