Minor refactors

+ cl-flet* -> cl-flet
+ refactor display-line-numbers-mode
This commit is contained in:
Henrik Lissner 2018-09-19 19:43:05 -04:00
parent 9970fdac2c
commit 1e710e94e3
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 4 additions and 4 deletions

View file

@ -73,12 +73,12 @@ To change the type of line numbers displayed by default,
customize `display-line-numbers-type'. To change the type while
the mode is on, set `display-line-numbers' directly."
:lighter nil
(cond ((eq display-line-numbers-type 'relative)
(cond ((null display-line-numbers-type))
((eq display-line-numbers-type 'relative)
(if display-line-numbers-mode
(nlinum-relative-off)
(nlinum-relative-on)))
((not (null display-line-numbers-type))
(nlinum-mode (if display-line-numbers-mode +1 -1)))))
((nlinum-mode (if display-line-numbers-mode +1 -1)))))
(defun display-line-numbers--turn-on ()
"Turn on `display-line-numbers-mode'."