+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)
allout-mode
) ; let*
) ; defun
+;;;_ > allout-minor-mode
+(defalias 'allout-minor-mode 'allout-mode)
;;;_ - Position Assessment
;;;_ > allout-hidden-p (&optional pos)
"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
;;;_ #4 Navigation
+;;;_ - Position Assessment
;;;_ : Location Predicates
;;;_ > allout-on-current-heading-p ()
(defun allout-on-current-heading-p ()
"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))
;; 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)