diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-04-28 18:09:10 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-04-28 18:09:10 +0200 |
| commit | c3ac2cbf73516d2414c845087cac8fc7ec1ce5d7 (patch) | |
| tree | 6767ba0ab44954d0b8363bf6024993d48d758232 /lisp/faces.el | |
| parent | 214f85a0a68b96a552ca605d601b33f6eef5c4ca (diff) | |
| download | emacs-c3ac2cbf73516d2414c845087cac8fc7ec1ce5d7.tar.gz emacs-c3ac2cbf73516d2414c845087cac8fc7ec1ce5d7.tar.bz2 emacs-c3ac2cbf73516d2414c845087cac8fc7ec1ce5d7.zip | |
Add a new face for non-breaking hyphen characters
* doc/emacs/display.texi (Standard Faces): Mention nobreak-hyphen.
(Text Display): Ditto.
* lisp/faces.el (nobreak-hyphen): New face (bug#12048).
* src/xdisp.c (get_next_display_element): Use it instead of
the escape-glyph face.
* src/xdisp.c (syms_of_xdisp): New symbil Qnobreak_hyphen.
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index c9cc611a97a..552a7be9c93 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -2428,13 +2428,21 @@ If you set `term-file-prefix' to nil, this function does nothing." :version "22.1") (defface nobreak-space - '((((class color) (min-colors 88)) :inherit escape-glyph :underline t) - (((class color) (min-colors 8)) :background "magenta") - (t :inverse-video t)) + '((((background dark)) :foreground "cyan") + (((type pc)) :foreground "magenta") + (t :foreground "brown")) "Face for displaying nobreak space." :group 'basic-faces :version "22.1") +(defface nobreak-hyphen + '((((background dark)) :foreground "cyan") + (((type pc)) :foreground "magenta") + (t :foreground "brown")) + "Face for displaying nobreak hyphens." + :group 'basic-faces + :version "25.2") + (defgroup mode-line-faces nil "Faces used in the mode line." :group 'mode-line |