mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(outline-font-lock-level): Remove the

Browse source 
condition-case, test what outline-level returns instead, to ease
debugging.
This commit is contained in:
Gerd Moellmann 2001-05-16 11:35:43 +00:00
parent ccc5e35ff2
commit 21975a1fd9
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/textmodes/outline.el
View file

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