From 46771bb390ff60ac06389c726489d0af3091e19b Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 3 Mar 2006 11:38:43 +0000
Subject: [PATCH] Restablished intermediate missing comment header to preserve
 outline structure. (allout-beginning-of-current-entry): Wasn't skipping
 invisible text - fixed. (allout-open-topic): Was failing when opening a topic
 at end-of-buffer - fixed. (allout-minor-mode): Moved nearer to allout-mode
 function.

---
 lisp/ChangeLog | 10 ++++++++++
 lisp/allout.el | 13 ++++++++-----
 2 files changed, 18 insertions(+), 5 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3ab962ac96e..f82c29d6ba5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2006-03-03  Ken Manheimer  <ken.manheimer@gmail.com>
+
+	allout.el: Restablished intermediate missing comment header to
+	preserve outline structure.
+	(allout-beginning-of-current-entry): Wasn't skipping invisible
+	text - fixed.
+	(allout-open-topic): Was failing when opening a topic at
+	end-of-buffer - fixed.
+	(allout-minor-mode): Moved nearer to allout-mode function.
+
 2006-03-02  Carsten Dominik  <dominik@science.uva.nl>
 
 	* textmodes/org.el (org-paste-subtree): Removed forgotten (debug)
diff --git a/lisp/allout.el b/lisp/allout.el
index edce1e8d61e..6690456123e 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -1605,6 +1605,8 @@ OPEN:	A topic that is not closed, though its offspring or body may be."
     allout-mode
     )					; let*
   )  					; defun
+;;;_  > allout-minor-mode
+(defalias 'allout-minor-mode 'allout-mode)
 
 ;;;_  - Position Assessment
 ;;;_   > allout-hidden-p (&optional pos)
@@ -1612,9 +1614,6 @@ OPEN:	A topic that is not closed, though its offspring or body may be."
   "Non-nil if the character after point is invisible."
   (get-char-property (or pos (point)) 'invisible))
 
-;;;_  > allout-minor-mode
-(defalias 'allout-minor-mode 'allout-mode)
-
 ;;;_  > allout-overlay-insert-in-front-handler (ol after beg end
 ;;;                                                &optional prelen)
 (defun allout-overlay-insert-in-front-handler (ol after beg end
@@ -1753,6 +1752,7 @@ to return the current depth of the most recently matched topic."
 
 ;;;_ #4 Navigation
 
+;;;_  - Position Assessment
 ;;;_   : Location Predicates
 ;;;_    > allout-on-current-heading-p ()
 (defun allout-on-current-heading-p ()
@@ -2236,9 +2236,10 @@ Returns the value of point."
   "When not already there, position point at beginning of current topic header.
 
 If already there, move cursor to bullet for hot-spot operation.
-\(See `allout-mode' doc string for details on hot-spot operation.)"
+\(See `allout-mode' doc string for details of hot-spot operation.)"
   (interactive)
   (let ((start-point (point)))
+    (move-beginning-of-line 1)
     (allout-end-of-prefix)
     (if (and (interactive-p)
 	     (= (point) start-point))
@@ -2927,7 +2928,9 @@ Nuances:
             ;; Going inwards - double-space if first offspring is
             ;; double-spaced, otherwise snug up.
             (allout-end-of-entry)
-            (line-move 1)
+            (if (eobp)
+                (newline 1)
+              (line-move 1))
             (allout-beginning-of-current-line)
             (backward-char 1)
             (if (bolp)
-- 
2.39.5