From 8de2e69f021b5b2920a07d82c9869bb394171d41 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sun, 6 Oct 2019 20:53:18 +0200 Subject: Set alternate faces for some line numbers (bug#27734) * lisp/faces.el (line-number-major-tick, line-number-minor-tick): New faces. * lisp/cus-start.el (display-line-numbers-major-tick) (display-line-numbers-minor-tick): Add customization info. * lisp/frame.el: Add `display-line-numbers-major-tick' and `display-line-numbers-minor-tick' to list of variables which should trigger redisplay of the current buffer. * src/xdisp.c (syms_of_xdisp) : Defvar new options. (syms_of_xdisp) : Defsym new faces. (maybe_produce_line_number): Use new faces for line numbers that are multiple of `display-line-numbers-major-tick' and `display-line-numbers-minor-tick'. * etc/NEWS (value): Announce new feature. * doc/emacs/display.texi (Display Custom): Describe it. Wording by Robert Pluim --- lisp/cus-start.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'lisp/cus-start.el') diff --git a/lisp/cus-start.el b/lisp/cus-start.el index e61c1954a1f..89a96a9f51c 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -655,6 +655,20 @@ since it could result in memory overflow and make Emacs crash." (const :tag "Count lines from beginning of narrowed region" :value nil)) "26.1") + (display-line-numbers-major-tick + display-line-numbers + (choice + (const :tag "No line" 0) + (integer :tag "Multiples of" + :value 10)) + "27.1") + (display-line-numbers-minor-tick + display-line-numbers + (choice + (const :tag "No line" 0) + (integer :tag "Multiples of" + :value 5)) + "27.1") (display-fill-column-indicator display-fill-column-indicator -- cgit v1.2.1