diff options
| author | Stefan Monnier | 2017-03-30 10:44:35 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2017-03-30 10:44:35 -0400 |
| commit | 2c69236b3c1daa8fcadc4b798bc8422e59245690 (patch) | |
| tree | a98c378118a37e770fb6377cbd336ded0ce83013 | |
| parent | 080a425db51e0b26b03f0f4bd06c814fc2b38578 (diff) | |
| download | emacs-2c69236b3c1daa8fcadc4b798bc8422e59245690.tar.gz 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." | |||
| 114 | (and (vectorp obj) (= 4 (length obj)) | 114 | (and (vectorp obj) (= 4 (length obj)) |
| 115 | (vectorp (aref obj 0)) (vectorp (aref obj 1)) | 115 | (vectorp (aref obj 0)) (vectorp (aref obj 1)) |
| 116 | (= (length (aref obj 0)) (length (aref obj 1))) | 116 | (= (length (aref obj 0)) (length (aref obj 1))) |
| 117 | (listp (aref obj 2)) (vectorp (aref obj 3)))) | 117 | (listp (aref obj 2)) (obarrayp (aref obj 3)))) |
| 118 | 118 | ||
| 119 | (defsubst wisent-region (&rest positions) | 119 | (defsubst wisent-region (&rest positions) |
| 120 | "Return the start/end positions of the region including POSITIONS. | 120 | "Return the start/end positions of the region including POSITIONS. |