Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 21:37:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(outline-font-lock-levels): Comment out unused var.

Browse source 
(outline-font-lock-face): Wrap around face list to handle any nesting depth gracefully.
This commit is contained in:
Daniel Pfeiffer 2007-08-30 21:43:41 +00:00
parent b83483d541
commit 550641d385
2 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2007-08-30 Daniel Pfeiffer <occitan@esperanto.org>
* outline.el (outline-font-lock-levels): Comment out unused var.
(outline-font-lock-face): Wrap around face list to handle any
nesting depth gracefully.
2007-08-30 Michael Albinus <michael.albinus@gmx.de>
* net/ange-ftp.el: Add ange-ftp property to 'set-file-modes and

8
lisp/outline.el
View file

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