From f06552d4636fc7f4d262fce4a27bc93b54375dca Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 15 Apr 1998 06:28:28 +0000 Subject: [PATCH] (outline-font-lock-level): New function. --- lisp/textmodes/outline.el | 23 +++++++++++++++++------ 1 file changed, 17 insertions(+), 6 deletions(-) diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el index 80e4f5c5d76..8e596a0efe2 100644 --- a/lisp/textmodes/outline.el +++ b/lisp/textmodes/outline.el @@ -47,7 +47,7 @@ in the file it applies to. See also outline-heading-end-regexp." ;; already assigned a local value to it. (or (default-value 'outline-regexp) (setq-default outline-regexp "[*\^L]+")) - + (defcustom outline-heading-end-regexp "\n" "*Regular expression to match the end of a heading line. You can assume that point is at the beginning of a heading when this @@ -163,6 +163,17 @@ in the file it applies to." nil t))) "Additional expressions to highlight in Outline mode.") +(defun outline-font-lock-level () + (let ((count 1)) + (save-excursion + (outline-back-to-heading) + (condition-case nil + (while (not (bobp)) + (outline-up-heading 1) + (setq count (1+ count))) + (error))) + count)) + (defvar outline-view-change-hook nil "Normal hook to be run after outline visibility changes.") @@ -170,10 +181,10 @@ in the file it applies to." (defun outline-mode () "Set major mode for editing outlines with selective display. Headings are lines which start with asterisks: one for major headings, -two for subheadings, etc. Lines not starting with asterisks are body lines. +two for subheadings, etc. Lines not starting with asterisks are body lines. Body text or subheadings under a heading can be made temporarily -invisible, or visible again. Invisible lines are attached to the end +invisible, or visible again. Invisible lines are attached to the end of the heading, so they move with it, if the line is killed and yanked back. A heading with text hidden under it is marked with an ellipsis (...). @@ -441,7 +452,7 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden." ;; or delete it entirely (if it is contained in beg...end). (if (< (overlay-start o) beg) (if (> (overlay-end o) end) - (progn + (progn (setq o1 (outline-copy-overlay o)) (move-overlay o1 (overlay-start o1) beg) (move-overlay o end (overlay-end o))) @@ -644,7 +655,7 @@ Stop at the first and last subheadings of a superior heading." (outline-back-to-heading) (while (> arg 0) (let ((point-to-move-to (save-excursion - (outline-get-next-sibling)))) + (outline-get-next-sibling)))) (if point-to-move-to (progn (goto-char point-to-move-to) @@ -663,7 +674,7 @@ Stop at the first and last subheadings of a superior heading." (if (< (funcall outline-level) level) nil (point)))) - + (defun outline-backward-same-level (arg) "Move backward to the ARG'th subheading at same level as this one. Stop at the first and last subheadings of a superior heading." -- 2.39.2