Add more DEPRECATED tags

For Emacs 25 functionality that'll be removed when 25.x support is
dropped.
This commit is contained in:
Henrik Lissner 2019-08-19 21:04:11 -04:00
parent fb619bdb0f
commit 2eb8035f15
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 3 additions and 1 deletions

View file

@ -67,6 +67,7 @@ visual-line-mode is on, this skips relative and uses visual instead.
See `display-line-numbers' for what these values mean."
(interactive)
(defvar doom--line-number-style display-line-numbers-type)
;; DEPRECATED
(let* ((styles `(t ,(if (and EMACS26+ visual-line-mode) 'visual 'relative) nil))
(order (cons display-line-numbers-type (remq display-line-numbers-type styles)))
(queue (memq doom--line-number-style order))
@ -74,6 +75,7 @@ See `display-line-numbers' for what these values mean."
(car order)
(car (cdr queue)))))
(setq doom--line-number-style next)
;; DEPRECATED
(if EMACS26+
(setq display-line-numbers next)
(pcase next