diff options
author | Glenn Morris <rgm@gnu.org> | 2012-11-09 20:40:48 -0500 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2012-11-09 20:40:48 -0500 |
commit | 19e0987902a902967992f788e5f202ba1870d74e (patch) | |
tree | 647b9d2a39795c5ab0f3d48aa331b5aa27e3c9ae /lisp/term.el | |
parent | 02969baf0f063df25d1464e4852579f375595a8f (diff) | |
download | emacs-19e0987902a902967992f788e5f202ba1870d74e.tar.gz |
Face names should not end in -face (term-face)
* lisp/term.el (term): Rename from `term-face'.
(term-current-face, ansi-term-color-vector)
(term-default-fg-color, term-default-bg-color, term-ansi-reset):
Update all users.
* doc/emacs/misc.texi (Terminal emulator): Rename `term-face' to `term'.
* etc/NEWS: Related edit.
Diffstat (limited to 'lisp/term.el')
-rw-r--r-- | lisp/term.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/term.el b/lisp/term.el index 7567bd38f5a..860b5336b56 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -452,7 +452,7 @@ state 4: term-terminal-parameter contains pending output.") "A queue of strings whose echo we want suppressed.") (defvar term-terminal-parameter) (defvar term-terminal-previous-parameter) -(defvar term-current-face 'term-face) +(defvar term-current-face 'term) (defvar term-scroll-start 0 "Top-most line (inclusive) of scrolling region.") (defvar term-scroll-end) ; Number of line (zero-based) after scrolling region. (defvar term-pager-count nil @@ -759,7 +759,7 @@ Buffer local variable.") ;;; Faces (defvar ansi-term-color-vector - [term-face + [term term-color-black term-color-red term-color-green @@ -771,17 +771,17 @@ Buffer local variable.") (defcustom term-default-fg-color nil "If non-nil, default color for foreground in Term mode. -This is deprecated in favor of customizing the `term-face' face." +This is deprecated in favor of customizing the `term' face." :group 'term :type 'string) (defcustom term-default-bg-color nil "If non-nil, default color for foreground in Term mode. -This is deprecated in favor of customizing the `term-face' face." +This is deprecated in favor of customizing the `term' face." :group 'term :type 'string) -(defface term-face +(defface term `((t :foreground ,term-default-fg-color :background ,term-default-bg-color @@ -988,7 +988,7 @@ is buffer-local." dt)) (defun term-ansi-reset () - (setq term-current-face 'term-face) + (setq term-current-face 'term) (setq term-ansi-current-underline nil) (setq term-ansi-current-bold nil) (setq term-ansi-current-reverse nil) |