Everything seems to work in Harald Melands Emacs 20.02 and

my Emacs 19.34.  Beware of the spelling in some of the
variable names.  I looked up "threshold" in a dictionary
and here in Britain this appears to be the way to spell it.

diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index c2c6009d014eafe05d11ffacd3d9de6cad90d8eb..723549071d568c4e1449a6f5ee3ac8058e8071cf 100644 (file)
--- 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.16 1997/10/15 14:00:12 os10000 Exp os10000 $
+;; Version: $Id: todo-mode.el,v 1.17 1997/10/15 14:30:41 os10000 Exp os10000 $
 ;; Keywords: Categorised TODO list editor, todo-mode
 
 ;; This file is part of GNU Emacs.
@@ -168,7 +168,7 @@
 ;; mode preparations have been completed.
 ;;
 ;;
-;; --- todo-insert-treshold
+;; --- todo-insert-threshold
 ;;
 ;; Another nifty feature is the insertion accuracy.  If you have 8 items
 ;; in your TODO list, then you may get asked 4 questions by the binary
@@ -225,6 +225,9 @@
 ;;; Change Log:
 
 ;; $Log: todo-mode.el,v $
+;; Revision 1.17  1997/10/15  14:30:41  os10000
+;; Attempted to reconcile Harald's changes with mine since 1.15.
+;;
 ;; Revision 1.16  1997/10/15  14:00:12  os10000
 ;; Fixed 'file-item' and added 20.02 split-string function.
 ;;
@@ -315,13 +318,14 @@
 (defvar todo-file-done "~/.todo-done"  "*TODO mode archive file.")
 (defvar todo-mode-hook nil             "*TODO mode hooks.")
 (defvar todo-edit-mode-hook nil                "*TODO Edit mode hooks.")
-(defvar todo-insert-treshold 0         "*TODO mode insertion accuracy.")
+(defvar todo-insert-threshold 0                "*TODO mode insertion accuracy.")
 (defvar todo-edit-buffer " *TODO Edit*"        "TODO Edit buffer name.")
 
 ;; Thanks for the ISO time stamp format go to Karl Eichwalder <ke@suse.de>
 ;; My format string for the appt.el package is "%3b %2d, %y, %02I:%02M%p".
 ;;
-(defvar todo-time-string-format "%y-%02m-%02d %02H:%02M"
+(defvar todo-time-string-format
+  "%:y-%02m-%02d %02H:%02M"
   "TODO mode time string format for done entries.
 For details see the variable `time-stamp-format'.")
 
@@ -483,7 +487,7 @@ For details see the variable `time-stamp-format'.")
     (setq todo-previous-line 0)
     (let ((top 1)
          (bottom (1+ (count-lines (point-min) (point-max)))))
-      (while (> (- bottom top) todo-insert-treshold)
+      (while (> (- bottom top) todo-insert-threshold)
        (let* ((current (/ (+ top bottom) 2))
               (answer (if (< current bottom)
                           (todo-more-important-p current) nil)))
@@ -556,22 +560,23 @@ For details see the variable `time-stamp-format'.")
   (if (> (count-lines (point-min) (point-max)) 0)
       (let ((comment (read-from-minibuffer "Comment: "))
            (time-stamp-format todo-time-string-format))
-       (goto-char (todo-item-end))
-       (insert (if (save-excursion (beginning-of-line)
-                                   (looking-at (regexp-quote todo-prefix)))
-                   " "
-                 "\n\t")
-               "(" (nth todo-category-number todo-categories) ": "
-               comment ")\n")
+       (if (> (length comment) 0)
+           (progn
+             (goto-char (todo-item-end))
+             (insert (if (save-excursion (beginning-of-line)
+                                         (looking-at (regexp-quote todo-prefix)))
+                         " "
+                       "\n\t")
+                     "(" (nth todo-category-number todo-categories) ": "
+                     comment ")\n")))
        (goto-char (todo-item-start))
        (let ((temp-point (point)))
-       (if (looking-at (regexp-quote todo-prefix))
-           (replace-match (time-stamp-string)) ; Standard prefix -> timestamp
-         ;; Else prefix non-standard item start with timestamp
-         (insert (time-stamp-string)))
+         (if (looking-at (regexp-quote todo-prefix))
+             (replace-match (time-stamp-string)) ; 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)
-         (delete-region temp-point (1+ (todo-item-end)))
-         )
+         (delete-region temp-point (1+ (todo-item-end))))
        (todo-backward-item)
        (message ""))
     (error "No TODO list entry to file away")))