From 64815eb7155cd0fa53628cf1be240a53c9aa1ff5 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Fri, 26 Apr 2002 12:23:15 +0000
Subject: [PATCH] * lsdb.el: Check whether make-hash-table is a subr.

---
 lsdb.el |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lsdb.el b/lsdb.el
index c18e28a..610b4df 100644
--- a/lsdb.el
+++ b/lsdb.el
@@ -196,7 +196,8 @@ where the last element is optional."
   "An obarray used to complete an entry name.")
 
 ;;;_. Hash Table Emulation
-(if (fboundp 'make-hash-table)
+(if (and (fboundp 'make-hash-table)
+	 (subrp (symbol-function 'make-hash-table)))
     (progn
       (defalias 'lsdb-puthash 'puthash)
       (defalias 'lsdb-gethash 'gethash)
-- 
1.7.10.4