From 1f2503a581d35bcb2669254b5a2b58acf3a85e76 Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Fri, 27 May 2005 11:51:14 +0000 Subject: [PATCH] (outline-1, outline-2, outline-3, outline-4) (outline-5, outline-6, outline-7, outline-8): Specify customization group. --- lisp/ChangeLog | 6 +++++- lisp/outline.el | 49 ++++++++++++++++++++++++++++++++++++++++--------- 2 files changed, 45 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 76c39d30a97..d803aebf37c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2005-05-27 Lute Kamstra + * outline.el (outline-1, outline-2, outline-3, outline-4) + (outline-5, outline-6, outline-7, outline-8): Specify + customization group. + * longlines.el: Don't require easy-mmode. (longlines-visible-face): Specify customization group. @@ -15,7 +19,7 @@ * international/code-pages.el: Don't register a coding system into non-iso-charset-alist more than once. (cp-make-coding-system): Likewise. - + 2005-05-26 John Wiegley * eshell/esh-cmd.el (eshell-eval-command): If the return value of diff --git a/lisp/outline.el b/lisp/outline.el index 89e9e193e9c..b807365f733 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -1,6 +1,6 @@ ;;; outline.el --- outline mode commands for Emacs -;; Copyright (C) 1986, 93, 94, 95, 97, 2000, 01, 2004 +;; Copyright (C) 1986, 1993, 1994, 1995, 1997, 2000, 2001, 2004 ;; Free Software Foundation, Inc. ;; Maintainer: FSF @@ -167,14 +167,45 @@ in the file it applies to." 0 '(outline-font-lock-face) nil t))) "Additional expressions to highlight in Outline mode.") -(defface outline-1 '((t :inherit font-lock-function-name-face)) "Level 1.") -(defface outline-2 '((t :inherit font-lock-variable-name-face)) "Level 2.") -(defface outline-3 '((t :inherit font-lock-keyword-face)) "Level 3.") -(defface outline-4 '((t :inherit font-lock-builtin-face)) "Level 4.") -(defface outline-5 '((t :inherit font-lock-comment-face)) "Level 5.") -(defface outline-6 '((t :inherit font-lock-constant-face)) "Level 6.") -(defface outline-7 '((t :inherit font-lock-type-face)) "Level 7.") -(defface outline-8 '((t :inherit font-lock-string-face)) "Level 8.") +(defface outline-1 + '((t :inherit font-lock-function-name-face)) + "Level 1." + :group 'outlines) + +(defface outline-2 + '((t :inherit font-lock-variable-name-face)) + "Level 2." + :group 'outlines) + +(defface outline-3 + '((t :inherit font-lock-keyword-face)) + "Level 3." + :group 'outlines) + +(defface outline-4 + '((t :inherit font-lock-builtin-face)) + "Level 4." + :group 'outlines) + +(defface outline-5 + '((t :inherit font-lock-comment-face)) + "Level 5." + :group 'outlines) + +(defface outline-6 + '((t :inherit font-lock-constant-face)) + "Level 6." + :group 'outlines) + +(defface outline-7 + '((t :inherit font-lock-type-face)) + "Level 7." + :group 'outlines) + +(defface outline-8 + '((t :inherit font-lock-string-face)) + "Level 8." + :group 'outlines) (defvar outline-font-lock-faces [outline-1 outline-2 outline-3 outline-4 -- 2.39.2