From: Oliver Seidel <os10000@seidel-space.de>
Date: Tue, 28 Oct 1997 21:26:55 +0000 (+0000)
Subject: Patch from Paul Stodghill <stodghil@CS.Cornell.EDU>:
X-Git-Tag: emacs-20.3~2878
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49b2ae0e10aa8c11b0efc7335439130c184e4a37;p=emacs.git

Patch from Paul Stodghill <stodghil@CS.Cornell.EDU>:
The patch below fixes todo-insert-item so that it will
insert the item in place, instead of at the top of the
buffer, when invoked with a prefix argument.
---

diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index 721e312aeb9..93514ab4f56 100644
--- a/lisp/calendar/todo-mode.el
+++ b/lisp/calendar/todo-mode.el
@@ -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.25 1997/10/28 20:03:27 os10000 Exp os10000 $
+;; Version: $Id: todo-mode.el,v 1.26 1997/10/28 21:14:51 os10000 Exp os10000 $
 ;; Keywords: Categorised TODO list editor, todo-mode
 
 ;; This file is part of GNU Emacs.
@@ -91,7 +91,7 @@
 ;;
 ;;      Which version of todo-mode.el does this documentation refer to?
 ;;
-;;      $Id: todo-mode.el,v 1.25 1997/10/28 20:03:27 os10000 Exp os10000 $
+;;      $Id: todo-mode.el,v 1.26 1997/10/28 21:14:51 os10000 Exp os10000 $
 ;;
 ;;  Pre-Requisites
 ;;
@@ -249,6 +249,12 @@
 ;;; Change Log:
 
 ;; $Log: todo-mode.el,v $
+;; Revision 1.26  1997/10/28 21:14:51  os10000
+;; Improvements sent in by Dave Love <d.love@dl.ac.uk>:
+;; todo-mode.el: Doc fixes.  Customization.
+;; (todo-add-item-non-interactively): New arg -- don't dynamically bind ARG.
+;; (todo-insert-item): Use it.
+;;
 ;; Revision 1.25  1997/10/28 20:03:27  os10000
 ;; Harald Backer <harald.backer@fou.telenor.no> sent the following:
 ;; Added `todo-save-top-priorities' and option to automatically save top
@@ -714,7 +720,8 @@ Use `todo-categories' instead.")
 (defun todo-add-item-non-interactively (new-item category ARG)
   "Insert NEW-ITEM in TODO list as a new entry in CATEGORY."
   (save-excursion
-    (todo-show)
+    (todo-show))
+  (save-excursion
     (if (string= "" category)
         (setq category (nth todo-category-number todo-categories)))
     (let ((cat-exists (member category todo-categories)))
@@ -751,7 +758,9 @@ Use `todo-categories' instead.")
 With a prefix argument solicit the category, otherwise use the current
 category."
   (interactive "P")
+  (save-excursion
   (todo-show)
+  )
   (let* ((new-item (concat todo-prefix " "
 			   (read-from-minibuffer
                             "New TODO entry: "