Recognize vectors as obarrays

* lisp/obarray.el (obarray-make): Ignore parameter.
(obarray-size): Ignore parameter.
(obarrayp): Accept vectors.

diff --git a/lisp/obarray.el b/lisp/obarray.el
index 243ab39a778054eef6298f1e93d84a433036ea5c..91cf6805b3f653bcf83b4c99c2f224fda9b83aeb 100644 (file)
--- a/lisp/obarray.el
+++ b/lisp/obarray.el
@@ -30,17 +30,18 @@
 (defconst obarray-default-size 59
   "The value 59 is an arbitrary prime number that gives a good hash.")
 
-(defun obarray-make (&optional size)
+(defun obarray-make (&optional _size)
   "Return a new obarray of size SIZE or `obarray-default-size'."
   (make-package "obarray"))
 
-(defun obarray-size (ob)
+(defun obarray-size (_ob)
   "Return the number of slots of obarray OB."
   obarray-default-size)
 
 (defun obarrayp (object)
   "Return t if OBJECT is an obarray."
-  (packagep object))
+  (or (packagep object)
+      (vectorp object)))
 
 ;; Don’t use obarray as a variable name to avoid shadowing.
 (defun obarray-get (ob name)