[Emacs-diffs] master fa72de6: * emacs-lisp/cl-lib.el (cl--old-struct-type-of): Accept `[]'

[Stefan Monnier]

branch: master
commit fa72de6cf74735c1983720c818b6d67af832e646
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * emacs-lisp/cl-lib.el (cl--old-struct-type-of): Accept `[]'
---
 lisp/emacs-lisp/cl-lib.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el
index c183852..6ac08d8 100644
--- a/lisp/emacs-lisp/cl-lib.el
+++ b/lisp/emacs-lisp/cl-lib.el
@@ -631,7 +631,7 @@ If ALIST is non-nil, the new pairs are prepended to it."
   (require 'cl-seq))
 
 (defun cl--old-struct-type-of (orig-fun object)
-  (or (and (vectorp object)
+  (or (and (vectorp object) (> (length object) 0)
            (let ((tag (aref object 0)))
              (when (and (symbolp tag)
                         (string-prefix-p "cl-struct-" (symbol-name tag)))