Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix byte-compilation warnings on Emacs 28

Browse source 
* eat.el (eat-term-input-event): Fix byte-compilation warnings
on Emacs 28, caused by calling 'posn-col-row' with two
arguments on Emacs >= 29, which is not available on Emacs 28.
This commit is contained in:
Akib Azmain Turja 2022-11-30 22:40:11 +06:00
parent b378306e36
commit 29a6ab9141
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 18 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
eat.el
View file

@ -3320,7 +3320,9 @@ client process may get confused."
(event-start mouse)))
(x-y (if (< emacs-major-version 29)
(posn-col-row pos)
(posn-col-row pos 'use-window)))
(with-suppressed-warnings
((callargs posn-col-row))
(posn-col-row pos 'use-window))))
(x (1+ (car x-y)))
(y (1+ (cdr x-y)))
(button
@ -3335,9 +3337,12 @@ client process may get confused."
(cl-incf b 16))
b)))
(when ref-pos
(let ((ref-x-y (if (< emacs-major-version 29)
(posn-col-row ref-pos)
(posn-col-row ref-pos 'use-window))))
(let ((ref-x-y
(if (< emacs-major-version 29)
(posn-col-row ref-pos)
(with-suppressed-warnings
((callargs posn-col-row))
(posn-col-row ref-pos 'use-window)))))
(cl-decf x (car ref-x-y))
(cl-decf y (cdr ref-x-y))))
(when (and (<= 1 x (eat--t-disp-width disp))
@ -3413,7 +3418,9 @@ client process may get confused."
(let* ((pos (event-start movement))
(x-y (if (< emacs-major-version 29)
(posn-col-row pos)
(posn-col-row pos 'use-window)))
(with-suppressed-warnings
((callargs posn-col-row))
(posn-col-row pos 'use-window))))
(x (1+ (car x-y)))
(y (1+ (cdr x-y)))
(button
@ -3422,9 +3429,12 @@ client process may get confused."
32)
35)))
(when ref-pos
(let ((ref-x-y (if (< emacs-major-version 29)
(posn-col-row ref-pos)
(posn-col-row ref-pos 'use-window))))
(let ((ref-x-y
(if (< emacs-major-version 29)
(posn-col-row ref-pos)
(with-suppressed-warnings
((callargs posn-col-row))
(posn-col-row ref-pos 'use-window)))))
(cl-decf x (car ref-x-y))
(cl-decf y (cdr ref-x-y))))
(when (and (or (eq (eat--t-term-mouse-mode terminal)