Mercurial > emacs
changeset 37751:ac83181a33d0
(outline-font-lock-level): Remove the
condition-case, test what outline-level returns instead, to ease
debugging.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Wed, 16 May 2001 11:35:43 +0000 |
parents | 321506783c09 |
children | 1085e1cfebaf |
files | lisp/textmodes/outline.el |
diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/outline.el Wed May 16 11:12:57 2001 +0000 +++ b/lisp/textmodes/outline.el Wed May 16 11:35:43 2001 +0000 @@ -1,6 +1,7 @@ ;;; outline.el --- outline mode commands for Emacs -;; Copyright (C) 1986, 93, 94, 95, 97, 2000 Free Software Foundation, Inc. +;; Copyright (C) 1986, 93, 94, 95, 97, 2000, 2001 +;; Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: outlines @@ -165,12 +166,11 @@ (let ((count 1)) (save-excursion (outline-back-to-heading t) - (condition-case nil - (while (not (bobp)) - (outline-up-heading-all 1) - (setq count (1+ count))) - (error))) - count)) + (while (and (not (bobp)) + (not (eq (funcall outline-level) 1))) + (outline-up-heading-all 1) + (setq count (1+ count))) + count))) (defvar outline-view-change-hook nil "Normal hook to be run after outline visibility changes.")