Mercurial > emacs
comparison lisp/outline.el @ 62803:5a1fd32a61a2
(outline-1, outline-2, outline-3, outline-4)
(outline-5, outline-6, outline-7, outline-8): Specify customization group.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Fri, 27 May 2005 11:50:04 +0000 |
| parents | be8ba6e58a49 |
| children | 44cf3ecee23f 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
| 62802:e0709d9628b2 | 62803:5a1fd32a61a2 |
|---|---|
| 1 ;;; outline.el --- outline mode commands for Emacs | 1 ;;; outline.el --- outline mode commands for Emacs |
| 2 | 2 |
| 3 ;; Copyright (C) 1986, 93, 94, 95, 97, 2000, 01, 2004 | 3 ;; Copyright (C) 1986, 1993, 1994, 1995, 1997, 2000, 2001, 2004 |
| 4 ;; Free Software Foundation, Inc. | 4 ;; Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Maintainer: FSF | 6 ;; Maintainer: FSF |
| 7 ;; Keywords: outlines | 7 ;; Keywords: outlines |
| 8 | 8 |
| 165 ;; Highlight headings according to the level. | 165 ;; Highlight headings according to the level. |
| 166 (eval . (list (concat "^\\(?:" outline-regexp "\\).+") | 166 (eval . (list (concat "^\\(?:" outline-regexp "\\).+") |
| 167 0 '(outline-font-lock-face) nil t))) | 167 0 '(outline-font-lock-face) nil t))) |
| 168 "Additional expressions to highlight in Outline mode.") | 168 "Additional expressions to highlight in Outline mode.") |
| 169 | 169 |
| 170 (defface outline-1 '((t :inherit font-lock-function-name-face)) "Level 1.") | 170 (defface outline-1 |
| 171 (defface outline-2 '((t :inherit font-lock-variable-name-face)) "Level 2.") | 171 '((t :inherit font-lock-function-name-face)) |
| 172 (defface outline-3 '((t :inherit font-lock-keyword-face)) "Level 3.") | 172 "Level 1." |
| 173 (defface outline-4 '((t :inherit font-lock-builtin-face)) "Level 4.") | 173 :group 'outlines) |
| 174 (defface outline-5 '((t :inherit font-lock-comment-face)) "Level 5.") | 174 |
| 175 (defface outline-6 '((t :inherit font-lock-constant-face)) "Level 6.") | 175 (defface outline-2 |
| 176 (defface outline-7 '((t :inherit font-lock-type-face)) "Level 7.") | 176 '((t :inherit font-lock-variable-name-face)) |
| 177 (defface outline-8 '((t :inherit font-lock-string-face)) "Level 8.") | 177 "Level 2." |
| 178 :group 'outlines) | |
| 179 | |
| 180 (defface outline-3 | |
| 181 '((t :inherit font-lock-keyword-face)) | |
| 182 "Level 3." | |
| 183 :group 'outlines) | |
| 184 | |
| 185 (defface outline-4 | |
| 186 '((t :inherit font-lock-builtin-face)) | |
| 187 "Level 4." | |
| 188 :group 'outlines) | |
| 189 | |
| 190 (defface outline-5 | |
| 191 '((t :inherit font-lock-comment-face)) | |
| 192 "Level 5." | |
| 193 :group 'outlines) | |
| 194 | |
| 195 (defface outline-6 | |
| 196 '((t :inherit font-lock-constant-face)) | |
| 197 "Level 6." | |
| 198 :group 'outlines) | |
| 199 | |
| 200 (defface outline-7 | |
| 201 '((t :inherit font-lock-type-face)) | |
| 202 "Level 7." | |
| 203 :group 'outlines) | |
| 204 | |
| 205 (defface outline-8 | |
| 206 '((t :inherit font-lock-string-face)) | |
| 207 "Level 8." | |
| 208 :group 'outlines) | |
| 178 | 209 |
| 179 (defvar outline-font-lock-faces | 210 (defvar outline-font-lock-faces |
| 180 [outline-1 outline-2 outline-3 outline-4 | 211 [outline-1 outline-2 outline-3 outline-4 |
| 181 outline-5 outline-6 outline-7 outline-8]) | 212 outline-5 outline-6 outline-7 outline-8]) |
| 182 | 213 |