diff --git a/lisp/corfu-hack.el b/lisp/corfu-hack.el index 75a1406..639cc6a 100644 --- a/lisp/corfu-hack.el +++ b/lisp/corfu-hack.el @@ -57,7 +57,7 @@ ;; (get-focused-monitor-geometry) -(defun advise-corfu-make-frame-with-monitor-awareness (orig-fun frame x y width height buffer) +(defun advise-corfu-make-frame-with-monitor-awareness (orig-fun frame x y width height) "Advise `corfu--make-frame` to be monitor-aware, adjusting X and Y according to the focused monitor." ;; Get the geometry of the currently focused monitor (let* ((monitor-geometry (get-focused-monitor-geometry)) @@ -72,7 +72,7 @@ (new-y (+ monitor-y y))) ;; Call the original function with potentially adjusted coordinates - (funcall orig-fun frame new-x new-y width height buffer))) + (funcall orig-fun frame new-x new-y width height))) (advice-add 'corfu--make-frame :around #'advise-corfu-make-frame-with-monitor-awareness)