Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

; * test/lisp/emacs-lisp/vtable-tests.el: avoid arity warning

Browse source
This commit is contained in:
Mattias Engdegård 2025-12-22 12:22:16 +01:00
parent 10fdf48635
commit 10dc5824b4
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
test/lisp/emacs-lisp/vtable-tests.el
View file

@ -135,7 +135,8 @@
(let ((text (propertize "XXXXX"
'face 'variable-pitch)))
(face-remap-add-relative 'default :height 1.5)
(cond ((< emacs-major-version 31) ; TODO: Remove the pre-31 test, eventually.
;; TODO: Remove the pre-31 test, eventually.
(cond ((eval-when-compile (< emacs-major-version 31))
(let* ((x-width (string-pixel-width (substring text 0 1)))
(char-limit 2)
(pixel-limit (* char-limit x-width)))