summaryrefslogtreecommitdiff
path: root/lisp/cus-start.el
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2019-10-06 20:53:18 +0200
committerJuanma Barranquero <lekktu@gmail.com>2019-10-06 20:53:18 +0200
commit8de2e69f021b5b2920a07d82c9869bb394171d41 (patch)
tree34b57d6b999d9ec668044b16627b1d773a24f4e5 /lisp/cus-start.el
parent29db34e3e0cd5be78b7ab4604050c0ba05835414 (diff)
downloademacs-8de2e69f021b5b2920a07d82c9869bb394171d41.tar.gz
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) <display-line-numbers-major-tick> <display-line-numbers-major-tick>: Defvar new options. (syms_of_xdisp) <line-number-major-tick, line-number-minor-tick>: 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 <rpluim@gmail.com>
Diffstat (limited to 'lisp/cus-start.el')
-rw-r--r--lisp/cus-start.el14
1 files changed, 14 insertions, 0 deletions
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