awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-27 14:23:43 -05:00
Code Issues Packages Projects Releases 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
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)