Appease the byte-compiler

modules/ui/modeline/autoload/settings.el

@@ -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))

modules/ui/modeline/config.el

@@ -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)

modules/ui/popup/+hacks.el

@@ -173,7 +173,7 @@ the command buffer."
   (set-popup-rule! "^\\*helm" :ignore t)
 
   ;; Fix left-over popup window when closing persistent help for `helm-M-x'
-  (defun +popup*helm-elisp--persistent-help (candidate fun &optional name)
+  (defun +popup*helm-elisp--persistent-help (candidate _fun &optional _name)
     (let (win)
       (when (and (helm-attr 'help-running-p)
                  (string= candidate (helm-attr 'help-current-symbol))

modules/ui/popup/autoload/popup.el

@@ -212,6 +212,7 @@ restoring it if `+popup-buffer-mode' is disabled."
       (let ((m (if (bound-and-true-p +popup-buffer-mode) +popup-margin-width)))
         (set-window-margins nil m m)))))
 
+(defvar hide-mode-line-format)
 ;;;###autoload
 (defun +popup|set-modeline-on-enable ()
   "Don't show modeline in popup windows without a `modeline' window-parameter.

modules/ui/pretty-code/autoload.el

@@ -92,7 +92,7 @@ Pretty symbols can be unset for emacs-lisp-mode with:
     (if (null (car-safe rest))
         (delq (assq mode +pretty-code-symbols-alist)
               +pretty-code-symbols-alist)
-      (let (results merge key alist)
+      (let (results merge key)
         (while rest
           (setq key (pop rest))
           (pcase key