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 ee530f95d0969e9a1d8f3e4a286ad44420372dbb..5d16d55089e116838fad0e2f273339bb36b0319b 100644 (file)
--- 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))