Common subdirectories: planner/{arch} and planner-dev/{arch}
Common subdirectories: planner/.arch-ids and planner-dev/.arch-ids
diff -u planner/planner.el planner-dev/planner.el
--- orig/planner.el	2004-08-17 16:00:54.000000000 -0500
+++ mod/planner.el	2004-09-12 13:23:10.000000000 -0500
@@ -831,7 +831,11 @@
 
 ;;;_ + Mode
 
-(defvar planner-project "WikiPlanner")
+(defcustom planner-project "WikiPlanner"
+  "The name of this project, used when referencing it from other
+Emacs Wiki projects."
+  :type 'string
+  :group 'planner)
 
 (defcustom planner-align-tasks-automatically t
   "Non-nil means align tasks whenever a planner file is saved."
@@ -1820,9 +1824,9 @@
                    (forward-line 1)
                    (skip-chars-forward "\n"))
           (goto-char (point-max)))
-        (unless (= (point) (line-beginning-position)) (insert "\n"))
+        (unless (bolp) (insert "\n"))
         (insert ".#" (number-to-string (1+ total)) " ")
-        (save-excursion (insert "\n\n"))
+        (unless (eobp) (save-excursion (insert "\n\n")))
         (1+ total)))))
 
 (defun planner-narrow-to-note (&optional page note-number)
@@ -2566,8 +2570,7 @@
   (when planner-add-task-at-end-flag
     (while (looking-at "^#")
       (forward-line))
-    (unless (equal (point) (line-beginning-position))
-      (insert "\n"))))
+    (unless (bolp) (insert "\n"))))
 
 (defun planner-copy-or-move-task (&optional date force)
   "Move the current task to DATE.
Common subdirectories: planner/test and planner-dev/test