diff options
| author | Daniel Pfeiffer <occitan@esperanto.org> | 2007-08-30 21:43:41 +0000 |
|---|---|---|
| committer | Daniel Pfeiffer <occitan@esperanto.org> | 2007-08-30 21:43:41 +0000 |
| commit | 550641d385b7d030294d9dbf407c7ce64702c8fa (patch) | |
| tree | bf7360ceac86e8426ee13778206a198c03b9548b /lisp/outline.el | |
| parent | b83483d541d83dbdac93210fc1e0b34da244d709 (diff) | |
| download | emacs-550641d385b7d030294d9dbf407c7ce64702c8fa.tar.gz | |
(outline-font-lock-levels): Comment out unused var.
(outline-font-lock-face): Wrap around face list to handle any nesting depth gracefully.
Diffstat (limited to 'lisp/outline.el')
| -rw-r--r-- | lisp/outline.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/outline.el b/lisp/outline.el index 6eabd8f3d02..294de86ec25 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -215,8 +215,8 @@ in the file it applies to." [outline-1 outline-2 outline-3 outline-4 outline-5 outline-6 outline-7 outline-8]) -(defvar outline-font-lock-levels nil) -(make-variable-buffer-local 'outline-font-lock-levels) +;; (defvar outline-font-lock-levels nil) +;; (make-variable-buffer-local 'outline-font-lock-levels) (defun outline-font-lock-face () ;; (save-excursion @@ -241,9 +241,7 @@ in the file it applies to." (save-excursion (goto-char (match-beginning 0)) (looking-at outline-regexp) - (condition-case nil - (aref outline-font-lock-faces (1- (funcall outline-level))) - (error font-lock-warning-face)))) + (aref outline-font-lock-faces (% (1- (funcall outline-level)) (length outline-font-lock-faces))))) (defvar outline-view-change-hook nil "Normal hook to be run after outline visibility changes.") |