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.")