From: Mattias Engdegård Date: Sun, 29 May 2022 08:49:13 +0000 (+0200) Subject: Traverse record literals in byte-compile--first-symbol-with-pos X-Git-Tag: emacs-29.0.90~1910^2~355 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c9aff6fe5a26ca402b0f0bc89f71a2cc46671882;p=emacs.git 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. --- 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))