diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2006-03-03 11:38:43 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2006-03-03 11:38:43 +0000 |
| commit | 46771bb390ff60ac06389c726489d0af3091e19b (patch) | |
| tree | bbf6a873381b911613082ceadee1abba991ecb7d /lisp/allout.el | |
| parent | 36ba2f7dd343dda819d0c3f8b978b16b24bb2781 (diff) | |
| download | emacs-46771bb390ff60ac06389c726489d0af3091e19b.tar.gz | |
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.
Diffstat (limited to 'lisp/allout.el')
| -rw-r--r-- | lisp/allout.el | 13 |
1 files changed, 8 insertions, 5 deletions
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) |