emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Appease the byte-compiler

Browse source
This commit is contained in:
Henrik Lissner 2018-07-30 12:10:11 +02:00
parent c935f3e4da
commit cbc59f9333
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
9 changed files with 14 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
modules/ui/modeline/autoload/settings.el
View file

@ -37,7 +37,7 @@ keep them left and right aligned respectively."
(while (keywordp (car body))
(setq body (cddr body)))
;;
(cl-destructuring-bind (&key init faces on-hooks on-set activate deactivate &allow-other-keys)
(cl-destructuring-bind (&key init faces on-hooks on-set &allow-other-keys)
rest
(let ((realvar (if (and body faces)
(intern (format "+modeline--var-%s" name))

6
modules/ui/modeline/config.el
View file

@ -21,14 +21,14 @@
"The function that returns the buffer name display for file-visiting
buffers.")
;; Convenience aliases
(defvaralias 'mode-line-format-left '+modeline-format-left)
(defvaralias 'mode-line-format-right '+modeline-format-right)
;;
(defvar-local +modeline-format-left () "TODO")
(defvar-local +modeline-format-right () "TODO")
(put '+modeline-format-left 'risky-local-variable t)
(put '+modeline-format-right 'risky-local-variable t)
;; Convenience aliases
(defvaralias 'mode-line-format-left '+modeline-format-left)
(defvaralias 'mode-line-format-right '+modeline-format-right)
;; externs
(defvar anzu--state nil)