From 6b04f517ce06dbf5284b0bd803fd46fae9754773 Mon Sep 17 00:00:00 2001 From: Oliver Seidel Date: Wed, 3 Dec 1997 12:18:20 +0000 Subject: [PATCH] Added category patch by Michael R Cook . --- lisp/calendar/todo-mode.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index 8032a13da47..bf1ff1a4d4b 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.30 1997/10/28 21:59:48 os10000 Exp os10000 $ +;; Version: $Id: todo-mode.el,v 1.31 1997/10/28 22:16:24 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.30 1997/10/28 21:59:48 os10000 Exp os10000 $ +;; $Id: todo-mode.el,v 1.31 1997/10/28 22:16:24 os10000 Exp os10000 $ ;; ;; Pre-Requisites ;; @@ -267,6 +267,12 @@ ;;; Change Log: ;; $Log: todo-mode.el,v $ +;; Revision 1.31 1997/10/28 22:16:24 os10000 +;; Three insertion options: +;; i without prefix: ask for category, do binary insertion +;; i with prefix: do binary insertion in current category +;; uppercase I: insert directly under cursor +;; ;; Revision 1.30 1997/10/28 21:59:48 os10000 ;; Improved documentation, fixed insertion with prefix. ;; @@ -731,7 +737,7 @@ Use `todo-categories' instead.") ;;;### autoload (defun todo-add-category (cat) "Add new category CAT to the TODO list." - (interactive) + (interactive "sCategory: ") (save-window-excursion (setq todo-categories (cons cat todo-categories)) (find-file todo-file-do) @@ -891,7 +897,7 @@ category." " " "\n\t") "(" (nth todo-category-number todo-categories) ": " - comment ")\n"))) + comment ")"))) (goto-char (todo-item-start)) (let ((temp-point (point))) (if (looking-at (regexp-quote todo-prefix)) @@ -899,7 +905,7 @@ category." ;; Standard prefix -> timestamp ;; Else prefix non-standard item start with timestamp (insert (time-stamp-string))) - (append-to-file temp-point (todo-item-end) todo-file-done) + (append-to-file temp-point (1+ (todo-item-end)) todo-file-done) (delete-region temp-point (1+ (todo-item-end)))) (todo-backward-item) (message "")) -- 2.39.2