emacs/lisp/outline.el

50 Any line whose beginning matches this regexp is considered to start a heading.
51 Note that Outline mode only checks this regexp at the start of a line,
60   "Regular expression to match the end of a heading line.
71     (define-key map "\C-n" 'outline-next-visible-heading)
72     (define-key map "\C-p" 'outline-previous-visible-heading)
77     (define-key map "\C-f" 'outline-forward-same-level)
133     (define-key map [headings outline-forward-same-level]
134       '("Next Same Level" . outline-forward-same-level))
135     (define-key map [headings outline-previous-visible-heading]
136       '("Previous" . outline-previous-visible-heading))
137     (define-key map [headings outline-next-visible-heading]
138       '("Next" . outline-next-visible-heading))
254 (defvar outline-blank-line nil
255   "*Non-nil means to leave unhidden blank line before heading.")
264 invisible, or visible again.  Invisible lines are attached to the end
265 of the heading, so they move with it, if the line is killed and yanked
269 \\[outline-next-visible-heading]   outline-next-visible-heading      move by visible headings
270 \\[outline-previous-visible-heading]   outline-previous-visible-heading
271 \\[outline-forward-same-level]   outline-forward-same-level        similar but skip subheadings
276 \\[show-all]	make everything in buffer visible.
277 \\[hide-sublevels]  make only the first N levels of headers visible.
279 The remaining commands are used when point is on a heading line.
282 \\[show-subtree]   show-subtree	make body and subheadings visible.
283 \\[show-children]   show-children	make direct subheadings visible.
287 \\[show-entry]	   make it visible.
289 		     The subheadings remain visible.
290 \\[show-branches]  make all subheadings at all levels visible.
293 A line is a heading if `outline-regexp' matches something at the
294 beginning of the line.  The longer the match, the deeper the level.
298   (make-local-variable 'line-move-ignore-invisible)
299   (setq line-move-ignore-invisible t)
335 	(set (make-local-variable 'line-move-ignore-invisible) t)
338     (setq line-move-ignore-invisible nil)
347 It can assume point is at the beginning of a header line and that the match
378 Point must be at the beginning of a header line.
385   "Skip forward to just before the next heading line.
386 If there's no following heading line, stop before the newline
388   (if (re-search-forward (concat "\n\\(?:" outline-regexp "\\)")
391   (if (and (bolp) (or outline-blank-line (eobp)) (not (bobp)))
392       (forward-char -1)))
395   "Move to the next (possibly invisible) heading line."
398   (if (and (bolp) (not (eobp))) (forward-char 1))
399   (if (re-search-forward (concat "^\\(?:" outline-regexp "\\)")
404   "Move to the previous (possibly invisible) heading line."
413 (defun outline-visible ()
415 (make-obsolete 'outline-visible 'outline-invisible-p)
418   "Move to previous heading line, or beg of this line if it's a heading.
419 Only visible heading lines are considered, unless INVISIBLE-OK is non-nil."
420   (beginning-of-line)
434   "Return t if point is on a (visible) heading line.
435 If INVISIBLE-OK is non-nil, an invisible heading line is ok too."
437     (beginning-of-line)
455     (unless (bolp) (end-of-line) (newline))
599     (when (re-search-forward (concat "^\\(?:" outline-regexp "\\)") end t)
630     (if (= (char-after) ?\n) (forward-char 1))
640 	;; Moving forward - still need to move over subtree
642 	       (if (= (char-after) ?\n) (forward-char 1))))
650   (if (re-search-forward outline-heading-end-regexp nil 'move)
651       (forward-char -1)))
653 (defun outline-next-visible-heading (arg)
654   "Move to the next visible heading line.
656 A heading line is one that starts with a `*' (or that
660       (beginning-of-line)
661     (end-of-line))
674 			(re-search-forward
679     (if found-heading-p (beginning-of-line))))
681 (defun outline-previous-visible-heading (arg)
682   "Move to the previous heading line.
683 With argument, repeats or can move forward if negative.
684 A heading line is one that starts with a `*' (or that
687   (outline-next-visible-heading (- arg)))
696 	(beginning-of-line)
698       (outline-previous-visible-heading 1))
743 		     (outline-next-visible-heading 1)
760 		      (= 0 (forward-line 1)))))
792   "Hide all body lines in buffer, leaving all headings visible."
813 	    (forward-char (if (looking-at "\n\n") 2 1))
845  			    (if (and outline-blank-line
856 		 ((save-excursion (beginning-of-line)
871                   ;; Keep empty last line, if available.
894 			     (save-excursion (forward-line 1) (point))
903     (if (not (outline-invisible-p (line-end-position)))
925 	;; We stopped at a nonempty line (the next heading).
927 	  ;; Go to end of line before heading
928 	  (forward-char -1)
929           (if (and outline-blank-line (bolp))
930  	      ;; leave blank line before heading
931  	      (forward-char -1))))))
970   "Move to the visible heading line of which the present line is a subheading.
985 	    (outline-previous-visible-heading 1))
991 (defun outline-forward-same-level (arg)
992   "Move forward to the ARG'th subheading at same level as this one.
1011     (outline-next-visible-heading 1)
1013       (outline-next-visible-heading 1))
1039     (outline-previous-visible-heading 1)
1043 	(outline-previous-visible-heading 1))
1050   "Save the visible outline headers in region at the start of the kill ring.