Rename obarray-p to obarrayp

* lisp/obarray.el (obarrayp): New name.
* test/automated/obarray-tests.el: Update the tests.

diff --git a/lisp/obarray.el b/lisp/obarray.el
index 0e57381a9c5ee67c4ccbf814ab44363032b2a898..bf8bb3ee2ca8e6cc2dec4222409120b60f429f92 100644 (file)
--- a/lisp/obarray.el
+++ b/lisp/obarray.el
@@ -37,7 +37,7 @@
         (make-vector size 0)
       (signal 'wrong-type-argument '(size 0)))))
 
-(defun obarray-p (object)
+(defun obarrayp (object)
   "Return t if OBJECT is an obarray."
   (and (vectorp object)
        (< 0 (length object))))

diff --git a/test/automated/obarray-tests.el b/test/automated/obarray-tests.el
index 97df3b3b6a61e3dfac6969457596dd69ca1a9639..4cc61b6903fed9019b4788e93b7389b6ed7e3f61 100644 (file)
--- a/test/automated/obarray-tests.el
+++ b/test/automated/obarray-tests.el
@@ -26,30 +26,30 @@
 (require 'obarray)
 (require 'ert)
 
-(ert-deftest obarray-p-test ()
+(ert-deftest obarrayp-test ()
   "Should assert that given object is an obarray."
-  (should-not (obarray-p 42))
-  (should-not (obarray-p "aoeu"))
-  (should-not (obarray-p '()))
-  (should-not (obarray-p []))
-  (should (obarray-p (make-vector 7 0))))
+  (should-not (obarrayp 42))
+  (should-not (obarrayp "aoeu"))
+  (should-not (obarrayp '()))
+  (should-not (obarrayp []))
+  (should (obarrayp (make-vector 7 0))))
 
-(ert-deftest obarray-p-unchecked-content-test ()
+(ert-deftest obarrayp-unchecked-content-test ()
   "Should fail to check content of passed obarray."
   :expected-result :failed
-  (should-not (obarray-p ["a" "b" "c"]))
-  (should-not (obarray-p [1 2 3])))
+  (should-not (obarrayp ["a" "b" "c"]))
+  (should-not (obarrayp [1 2 3])))
 
 (ert-deftest obarray-make-default-test ()
   (let ((table (obarray-make)))
-    (should (obarray-p table))
+    (should (obarrayp table))
     (should (equal (make-vector 59 0) table))))
 
 (ert-deftest obarray-make-with-size-test ()
   (should-error (obarray-make -1) :type 'wrong-type-argument)
   (should-error (obarray-make 0) :type 'wrong-type-argument)
   (let ((table (obarray-make 1)))
-    (should (obarray-p table))
+    (should (obarrayp table))
     (should (equal (make-vector 1 0) table))))
 
 (ert-deftest obarray-get-test ()