Mercurial > emacs
comparison lisp/faces.el @ 63594:4c33b0ac74a3
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-435
Implement tty vertical-divider face
2005-06-20 Miles Bader <miles@gnu.org>
* lisp/faces.el (vertical-divider): New face.
2005-06-20 Miles Bader <miles@gnu.org>
* man/display.texi (Faces): Add `vertical-divider'.
2005-06-20 Miles Bader <miles@gnu.org>
* src/xfaces.c (Qvertical_divider): New variable.
(realize_basic_faces): Realize its face.
(syms_of_xfaces): Initialize it.
* src/dispextern.h (enum face_id): Add `VERTICAL_DIVIDER_FACE_ID'.
* src/dispnew.c (build_frame_matrix_from_leaf_window): Display vertical
window-separator on ttys using `vertical-divider' face by default.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 20 Jun 2005 10:45:31 +0000 |
| parents | c449f070995c |
| children | de897c139738 5b54039912f4 |
comparison
equal
deleted
inserted
replaced
| 63593:5300b48844ca | 63594:4c33b0ac74a3 |
|---|---|
| 1867 "Basic mode line face for highlighting." | 1867 "Basic mode line face for highlighting." |
| 1868 :version "22.1" | 1868 :version "22.1" |
| 1869 :group 'modeline | 1869 :group 'modeline |
| 1870 :group 'basic-faces) | 1870 :group 'basic-faces) |
| 1871 | 1871 |
| 1872 (defface vertical-divider | |
| 1873 '((default :inherit mode-line-inactive)) | |
| 1874 "Face used for vertical window dividers on ttys." | |
| 1875 :version "22.1" | |
| 1876 :group 'modeline | |
| 1877 :group 'basic-faces) | |
| 1878 | |
| 1872 ;; Make `modeline' an alias for `mode-line', for compatibility. | 1879 ;; Make `modeline' an alias for `mode-line', for compatibility. |
| 1873 (put 'modeline 'face-alias 'mode-line) | 1880 (put 'modeline 'face-alias 'mode-line) |
| 1874 (put 'modeline-inactive 'face-alias 'mode-line-inactive) | 1881 (put 'modeline-inactive 'face-alias 'mode-line-inactive) |
| 1875 (put 'modeline-highlight 'face-alias 'mode-line-highlight) | 1882 (put 'modeline-highlight 'face-alias 'mode-line-highlight) |
| 1876 | 1883 |