diff options
author | Jason Rumney <jasonr@gnu.org> | 2007-12-20 15:19:44 +0000 |
---|---|---|
committer | Jason Rumney <jasonr@gnu.org> | 2007-12-20 15:19:44 +0000 |
commit | 0526b9d0b7a5c27d03de5e20a51eccd0d62db19a (patch) | |
tree | b676c360ba3c8084e01dc226f020daac7a4e9a71 /lisp/nxml/nxml-outln.el | |
parent | 92bbfd0ded8c7cae87028eb009f1d399cb34b9e0 (diff) | |
download | emacs-0526b9d0b7a5c27d03de5e20a51eccd0d62db19a.tar.gz |
(nxml-heading, nxml-outline-indicator)
(nxml-outline-active-indicator, nxml-outline-ellipsis):
Rename, removing -face suffix.
(nxml-highlighted-less-than, nxml-highlighted-greater-than)
(nxml-highlighted-colon, nxml-highlighted-slash)
(nxml-highlighted-ellipsis, nxml-highlighted-inactive-minus)
(nxml-highlighted-active-minus, nxml-highlighted-active-plus)
(nxml-highlighted-qname, nxml-outline-display-heading):
Use new face names.
Diffstat (limited to 'lisp/nxml/nxml-outln.el')
-rw-r--r-- | lisp/nxml/nxml-outln.el | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/lisp/nxml/nxml-outln.el b/lisp/nxml/nxml-outln.el index 841e0e70146..96d8cebf5dc 100644 --- a/lisp/nxml/nxml-outln.el +++ b/lisp/nxml/nxml-outln.el @@ -111,25 +111,25 @@ See the variable `nxml-section-element-name-regexp' for more details." :group 'nxml :type 'integer) -(defface nxml-heading-face +(defface nxml-heading '((t (:weight bold))) "Face used for the contents of abbreviated heading elements." - :group 'nxml-highlighting-faces) + :group 'nxml-faces) -(defface nxml-outline-indicator-face +(defface nxml-outline-indicator '((t (:inherit default))) "Face used for `+' or `-' before element names in outlines." - :group 'nxml-highlighting-faces) + :group 'nxml-faces) -(defface nxml-outline-active-indicator-face - '((t (:box t :inherit nxml-outline-indicator-face))) +(defface nxml-outline-active-indicator + '((t (:box t :inherit nxml-outline-indicator))) "Face used for clickable `+' or `-' before element names in outlines." - :group 'nxml-highlighting-faces) + :group 'nxml-faces) -(defface nxml-outline-ellipsis-face +(defface nxml-outline-ellipsis '((t (:bold t :inherit default))) "Face used for `...' in outlines." - :group 'nxml-highlighting-faces) + :group 'nxml-faces) (defvar nxml-heading-scan-distance 1000 "Maximum distance from section to scan for heading.") @@ -514,19 +514,19 @@ non-transparent child section." had-children)) (defconst nxml-highlighted-less-than - (propertize "<" 'face 'nxml-tag-delimiter-face)) + (propertize "<" 'face 'nxml-tag-delimiter)) (defconst nxml-highlighted-greater-than - (propertize ">" 'face 'nxml-tag-delimiter-face)) + (propertize ">" 'face 'nxml-tag-delimiter)) (defconst nxml-highlighted-colon - (propertize ":" 'face 'nxml-element-colon-face)) + (propertize ":" 'face 'nxml-element-colon)) (defconst nxml-highlighted-slash - (propertize "/" 'face 'nxml-tag-slash-face)) + (propertize "/" 'face 'nxml-tag-slash)) (defconst nxml-highlighted-ellipsis - (propertize "..." 'face 'nxml-outline-ellipsis-face)) + (propertize "..." 'face 'nxml-outline-ellipsis)) (defconst nxml-highlighted-empty-end-tag (concat nxml-highlighted-ellipsis @@ -535,13 +535,13 @@ non-transparent child section." nxml-highlighted-greater-than)) (defconst nxml-highlighted-inactive-minus - (propertize "-" 'face 'nxml-outline-indicator-face)) + (propertize "-" 'face 'nxml-outline-indicator)) (defconst nxml-highlighted-active-minus - (propertize "-" 'face 'nxml-outline-active-indicator-face)) + (propertize "-" 'face 'nxml-outline-active-indicator)) (defconst nxml-highlighted-active-plus - (propertize "+" 'face 'nxml-outline-active-indicator-face)) + (propertize "+" 'face 'nxml-outline-active-indicator)) (defun nxml-display-section (last-pos section-start-pos @@ -642,14 +642,14 @@ non-transparent child section." (if colon (concat (propertize (substring qname 0 colon) 'face - 'nxml-element-prefix-face) + 'nxml-element-prefix) nxml-highlighted-colon (propertize (substring qname (1+ colon)) 'face - 'nxml-element-local-name-face)) + 'nxml-element-local-name)) (propertize qname 'face - 'nxml-element-local-name-face)))) + 'nxml-element-local-name)))) (defun nxml-outline-display-single-line-end-tag (last-pos) (nxml-outline-set-overlay 'nxml-outline-display-hide @@ -727,7 +727,7 @@ non-transparent child section." (put 'nxml-outline-display-heading 'help-echo nxml-outline-show-help) (put 'nxml-outline-display-heading 'nxml-outline-display t) (put 'nxml-outline-display-heading 'evaporate t) -(put 'nxml-outline-display-heading 'face 'nxml-heading-face) +(put 'nxml-outline-display-heading 'face 'nxml-heading) (defvar nxml-outline-hiding-tag-map (let ((map (make-sparse-keymap))) |