master c9aff6fe5a 1/2: Traverse record literals in byte-compile--first-symbol-with-pos

[Mattias Engdegård]

branch: master
commit c9aff6fe5a26ca402b0f0bc89f71a2cc46671882
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    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 ee530f95d0..5d16d55089 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))