bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

outline should have its own face definitions


From: Hannu Koivisto
Subject: outline should have its own face definitions
Date: Sun, 08 Dec 2002 20:37:21 +0200
User-agent: Gnus/5.090007 (Oort Gnus v0.07) Emacs/21.2 (i686-pc-linux-gnu)

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the address@hidden mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.2.2 (i686-pc-linux-gnu, X toolkit)
 of 2002-03-26 on lynx
configured using `configure  --prefix=/usr/local/emacs-21 --with-xpm 
--with-jpeg --with-tiff --with-gif'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: address@hidden
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: iso-latin-9
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

Currently outline-mode uses faces such as
font-lock-function-name-face and font-lock-variable-name-face for
fontifying heading lines at different levels.  This makes it
impossible for user to customize the fontification of outline
heading lines without affecting fontification of other modes.

If you want to default to the currently used faces, perhaps
outline-specific faces could inherit from them by default.

If you are not interested in fixing this before the next release
comes out or at all, perhaps a new PROBLEMS entry could be
introduced that mentions that something along the lines of of the
example code below can be used to work around the problem in one's
personal .emacs.

(defface outline-1-face
  '((t (:bold t)))
  "Outline face for level 1.")

(defface outline-2-face
  '((t (:foreground "DarkBlue")))
  "Outline face for level 2.")

(defface outline-3-face
  '((t (:foreground "FireBrick4")))
  "Outline face for level 3.")

(defface outline-4-face
  '((t (:foreground "Purple4")))
  "Outline face for level 4.")

(defface outline-5-face
  '((t ()))
  "Outline face for level 5.")

(defface outline-6-face
  '((t ()))
  "Outline face for level 6.")

(defface outline-7-face
  '((t ()))
  "Outline face for level 7.")

(defface outline-8-face
  '((t ()))
  "Outline face for level 8.")

(defvar
 outline-font-lock-keywords
 ;; Highlight headings according to the level.
 '((eval . (list (concat "^" outline-regexp ".+")
                 0 '(or (cdr (assq (outline-font-lock-level)
                                   '((1 . outline-1-face)
                                     (2 . outline-2-face)
                                     (3 . outline-3-face)
                                     (4 . outline-4-face)
                                     (5 . outline-5-face)
                                     (6 . outline-6-face)
                                     (7 . outline-7-face)
                                     (8 . outline-8-face))))
                        font-lock-warning-face)
                 nil t))))

-- 
Hannu



reply via email to

[Prev in Thread] Current Thread [Next in Thread]