From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 30 Mar 2017 14:44:35 +0000 (-0400)
Subject: * lisp/cedet/semantic/wisent/wisent.el (wisent-automaton-p): Use obarrayp.
X-Git-Tag: emacs-26.0.90~522^2~18
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c69236b3c1daa8fcadc4b798bc8422e59245690;p=emacs.git

* lisp/cedet/semantic/wisent/wisent.el (wisent-automaton-p): Use obarrayp.
---

diff --git a/lisp/cedet/semantic/wisent/wisent.el b/lisp/cedet/semantic/wisent/wisent.el
index 36dff019792..08cad524aed 100644
--- a/lisp/cedet/semantic/wisent/wisent.el
+++ b/lisp/cedet/semantic/wisent/wisent.el
@@ -114,7 +114,7 @@ If OBJ is a symbol check its value."
   (and (vectorp obj) (= 4 (length obj))
        (vectorp (aref obj 0)) (vectorp (aref obj 1))
        (= (length (aref obj 0)) (length (aref obj 1)))
-       (listp (aref obj 2)) (vectorp (aref obj 3))))
+       (listp (aref obj 2)) (obarrayp (aref obj 3))))
 
 (defsubst wisent-region (&rest positions)
   "Return the start/end positions of the region including POSITIONS.