From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 16 May 2001 11:35:43 +0000 (+0000)
Subject: (outline-font-lock-level): Remove the
X-Git-Tag: emacs-pretest-21.0.104~487
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=21975a1fd9ce30f56830e186f0270d139fa140f3;p=emacs.git

(outline-font-lock-level): Remove the
condition-case, test what outline-level returns instead, to ease
debugging.
---

diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el
index a03c524aeed..354223034e6 100644
--- a/lisp/textmodes/outline.el
+++ b/lisp/textmodes/outline.el
@@ -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 @@ in the file it applies to."
   (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.")