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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3ab962a..f82c29d 100644 (file)
--- 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 edce1e8..6690456 100644 (file)
--- 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)