diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-05-29 10:49:13 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-05-29 10:52:09 +0200 |
| commit | c9aff6fe5a26ca402b0f0bc89f71a2cc46671882 (patch) | |
| tree | 77f841a09b36eb58ec4f1f79e3fcf86dc51cb57a /lisp/emacs-lisp/bytecomp.el | |
| parent | 96d056b3aa7bc689e2550bddd56f51a88c69fe2f (diff) | |
| download | emacs-c9aff6fe5a26ca402b0f0bc89f71a2cc46671882.tar.gz emacs-c9aff6fe5a26ca402b0f0bc89f71a2cc46671882.tar.bz2 emacs-c9aff6fe5a26ca402b0f0bc89f71a2cc46671882.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |