master 4b3de748b0b: ; eieio-test-persist.el: namespace hygiene

[Mattias Engdegård]

branch: master
commit 4b3de748b0b04407d2492500c77905de56de1180
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    ; eieio-test-persist.el: namespace hygiene
    
    * test/lisp/emacs-lisp/eieio-tests/eieio-test-persist.el
    (hash-equal): Rename to `eieio-test--hash-equal`.
---
 test/lisp/emacs-lisp/eieio-tests/eieio-test-persist.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test/lisp/emacs-lisp/eieio-tests/eieio-test-persist.el 
b/test/lisp/emacs-lisp/eieio-tests/eieio-test-persist.el
index 4e5d2f36cf8..4f13881dbd4 100644
--- a/test/lisp/emacs-lisp/eieio-tests/eieio-test-persist.el
+++ b/test/lisp/emacs-lisp/eieio-tests/eieio-test-persist.el
@@ -40,7 +40,7 @@ This is usually a symbol that starts with `:'."
        (car tuple)
       nil)))
 
-(defun hash-equal (hash1 hash2)
+(defun eieio-test--hash-equal (hash1 hash2)
   "Compare two hash tables to see whether they are equal."
   (and (= (hash-table-count hash1)
           (hash-table-count hash2))
@@ -78,7 +78,7 @@ This is usually a symbol that starts with `:'."
        (if initarg-p
            (unless
                (cond ((and (hash-table-p origvalue) (hash-table-p 
fromdiskvalue))
-                      (hash-equal origvalue fromdiskvalue))
+                      (eieio-test--hash-equal origvalue fromdiskvalue))
                      (t (equal origvalue fromdiskvalue)))
              (error "Slot %S Original Val %S != Persistent Val %S"
                     oneslot origvalue fromdiskvalue))
@@ -87,7 +87,7 @@ This is usually a symbol that starts with `:'."
                (diskval fromdiskvalue))
            (unless
                (cond ((and (hash-table-p origval) (hash-table-p diskval))
-                      (hash-equal origval diskval))
+                      (eieio-test--hash-equal origval diskval))
                      (t (equal origval diskval)))
            (error "Slot %S Persistent Val %S != Default Value %S"
                   oneslot diskval origvalue))))))))