Mercurial > emacs

changeset 69250:85c3b33d6427

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 03 Mar 2006 11:37:54 +0000
parents 0e61e61dc819
children ce55668597eb
files lisp/allout.el
diffstat 1 files changed, 8 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/allout.el	Fri Mar 03 11:33:34 2006 +0000
+++ b/lisp/allout.el	Fri Mar 03 11:37:54 2006 +0000
@@ -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)