From c9aff6fe5a26ca402b0f0bc89f71a2cc46671882 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sun, 29 May 2022 10:49:13 +0200 Subject: [PATCH] Traverse record literals in byte-compile--first-symbol-with-pos * lisp/emacs-lisp/bytecomp.el (byte-compile--first-symbol-with-pos): Traverse record literals as well as vectors. Either is rather pointless but there were some strong feelings about it. --- lisp/emacs-lisp/bytecomp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index ee530f95d09..5d16d55089e 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1195,7 +1195,7 @@ Order is by depth-first search." (setq form (cdr form))) (or sym (and form (byte-compile--first-symbol-with-pos form)))))) - ((vectorp form) + ((or (vectorp form) (recordp form)) (let ((len (length form)) (i 0) (sym nil)) -- 2.39.2