mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

* allout.el (allout-back-to-current-heading): Base on lower-level

Browse Source 
routines to get proper disqualification of aberrant topics.
This commit is contained in:
Chong Yidong 2006-10-09 23:34:11 +00:00
parent 4169c18629
commit 80f66ef4df
2 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2006-10-09 Ken Manheimer <ken.manheimer@gmail.com>
* allout.el (allout-back-to-current-heading): Base on lower-level
routines to get proper disqualification of aberrant topics.
2006-10-09 Richard Stallman <rms@gnu.org>
* textmodes/two-column.el (2C-two-columns): Doc fix.

28
lisp/allout.el
View File

@ -2736,24 +2736,22 @@ otherwise skip white space between bullet and ensuing text."
(1- allout-recent-prefix-end)))
;;;_ > allout-back-to-current-heading ()
(defun allout-back-to-current-heading ()
"Move to heading line of current topic, or beginning if already on the line.
"Move to heading line of current topic, or beginning if not in a topic.
Return value of point, unless we started outside of (before any) topics,
in which case we return nil."
If interactive, we position at the end of the prefix.
Return value of resulting point, unless we started outside
of (before any) topics, in which case we return nil."
(allout-beginning-of-current-line)
(if (or (allout-on-current-heading-p)
(and (re-search-backward (concat "^\\(" allout-regexp "\\)")
nil 'move)
(progn (while (allout-hidden-p)
(allout-beginning-of-current-line)
(if (not (looking-at allout-regexp))
(re-search-backward allout-regexp
nil 'move)))
(allout-prefix-data))))
(if (interactive-p)
(allout-end-of-prefix)
(point))))
(let ((bol-point (point)))
(allout-goto-prefix-doublechecked)
(if (<= (point) bol-point)
(if (interactive-p)
(allout-end-of-prefix)
(point))
(goto-char (point-min))
nil)))
;;;_ > allout-back-to-heading ()
(defalias 'allout-back-to-heading 'allout-back-to-current-heading)
;;;_ > allout-pre-next-prefix ()