diff options
| author | Stefan Monnier | 2017-07-18 12:01:27 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2017-07-18 12:01:27 -0400 |
| commit | fa72de6cf74735c1983720c818b6d67af832e646 (patch) | |
| tree | 5aa75b7f79b7abce9433d2e9c214df66d815e41e | |
| parent | a20f4f02c69544fdc23be9b61bad3387476e102d (diff) | |
| download | emacs-fa72de6cf74735c1983720c818b6d67af832e646.tar.gz emacs-fa72de6cf74735c1983720c818b6d67af832e646.zip | |
* emacs-lisp/cl-lib.el (cl--old-struct-type-of): Accept `[]'
| -rw-r--r-- | lisp/emacs-lisp/cl-lib.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 631 | (require 'cl-seq)) | 631 | (require 'cl-seq)) |
| 632 | 632 | ||
| 633 | (defun cl--old-struct-type-of (orig-fun object) | 633 | (defun cl--old-struct-type-of (orig-fun object) |
| 634 | (or (and (vectorp object) | 634 | (or (and (vectorp object) (> (length object) 0) |
| 635 | (let ((tag (aref object 0))) | 635 | (let ((tag (aref object 0))) |
| 636 | (when (and (symbolp tag) | 636 | (when (and (symbolp tag) |
| 637 | (string-prefix-p "cl-struct-" (symbol-name tag))) | 637 | (string-prefix-p "cl-struct-" (symbol-name tag))) |