From fa72de6cf74735c1983720c818b6d67af832e646 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 18 Jul 2017 12:01:27 -0400 Subject: [PATCH] * 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 c183852fd3b..6ac08d839b1 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))) -- 2.39.2