[Emacs-diffs] Changes to emacs/lisp/allout.el

[Eli Zaretskii]

Index: emacs/lisp/allout.el
diff -u emacs/lisp/allout.el:1.68 emacs/lisp/allout.el:1.69
--- emacs/lisp/allout.el:1.68   Thu Feb 23 16:37:46 2006
+++ emacs/lisp/allout.el        Fri Mar  3 11:37:54 2006
@@ -1605,6 +1605,8 @@
     allout-mode
     )                                  ; let*
   )                                    ; defun
+;;;_  > allout-minor-mode
+(defalias 'allout-minor-mode 'allout-mode)
 
 ;;;_  - Position Assessment
 ;;;_   > allout-hidden-p (&optional pos)
@@ -1612,9 +1614,6 @@
   "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 @@
 
 ;;;_ #4 Navigation
 
+;;;_  - Position Assessment
 ;;;_   : Location Predicates
 ;;;_    > allout-on-current-heading-p ()
 (defun allout-on-current-heading-p ()
@@ -2236,9 +2236,10 @@
   "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 @@
             ;; 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)