diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-03-30 10:44:35 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-03-30 10:44:35 -0400 |
| commit | 2c69236b3c1daa8fcadc4b798bc8422e59245690 (patch) | |
| tree | a98c378118a37e770fb6377cbd336ded0ce83013 | |
| parent | 080a425db51e0b26b03f0f4bd06c814fc2b38578 (diff) | |
| download | emacs-2c69236b3c1daa8fcadc4b798bc8422e59245690.tar.gz emacs-2c69236b3c1daa8fcadc4b798bc8422e59245690.tar.bz2 emacs-2c69236b3c1daa8fcadc4b798bc8422e59245690.zip | |
* lisp/cedet/semantic/wisent/wisent.el (wisent-automaton-p): Use obarrayp.
| -rw-r--r-- | lisp/cedet/semantic/wisent/wisent.el | 2 |
1 files changed, 1 insertions, 1 deletions
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. |