fix: Compile warnings in Emacs 31

elp-revive · Nov 20, 2024 · aba9098 · aba9098
1 parent 875ebc5
commit aba9098
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/company-box-doc.el b/company-box-doc.el
@@ -223,7 +223,7 @@ just grab the first candidate and press forward."
 
 (defun company-box-doc--delete-frame ()
   "Delete the child frame if it exists."
-  (-when-let (frame (frame-local-getq company-box-doc-frame))
+  (-when-let* (frame (frame-local-getq company-box-doc-frame))
     (and (frame-live-p frame)
          (delete-frame frame))
     (frame-local-setq company-box-doc-frame nil)))

diff --git a/company-box-util.el b/company-box-util.el
@@ -79,16 +79,16 @@
 (defmacro company-box--with-selected-frame (frame  &rest body)
   "Execute BODY inside a selected frame."
   (declare (indent 1) (debug t))
-  `(when-let (((frame-live-p ,frame))) (with-selected-frame ,frame ,@body)))
+  `(when-let* (((frame-live-p ,frame))) (with-selected-frame ,frame ,@body)))
 
 (defun company-box--kill-delay (buffer)
   (when (buffer-live-p buffer) (kill-buffer buffer)))
 
 (defun company-box--kill-timer (timer)
   "Kill TIMER the safe way."
   (when (timerp timer) (cancel-timer timer))
-  (when-let (((symbolp timer))
-             (val (ignore-errors (symbol-value timer))))
+  (when-let* (((symbolp timer))
+              (val (ignore-errors (symbol-value timer))))
     (cancel-timer val)))
 
 (defun company-box--frame-show (show frame timer)

diff --git a/company-box.el b/company-box.el
@@ -770,7 +770,7 @@ It doesn't nothing if a font icon is used."
 (defun company-box-show (&optional on-update)
   "Show the completion window."
   (unless on-update
-    (when-let ((frame (company-box--get-frame)))
+    (when-let* ((frame (company-box--get-frame)))
       (make-frame-invisible frame))
     (setq company-box--parent-start (window-start))
     (add-hook 'window-scroll-functions 'company-box--handle-scroll-parent nil t))
@@ -1087,7 +1087,7 @@ COMMAND: See `company-frontends'."
 
 (defun company-box--delete-frame ()
   "Delete the child frame if it exists."
-  (-when-let (frame (company-box--get-frame))
+  (-when-let* (frame (company-box--get-frame))
     (and (frame-live-p frame)
          (delete-frame frame))
     (company-box--set-frame nil)))