From: ueno <ueno>
Date: Fri, 26 Apr 2002 12:23:15 +0000 (+0000)
Subject: * lsdb.el: Check whether make-hash-table is a subr.
X-Git-Tag: lsdb-0_1~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=64815eb7155cd0fa53628cf1be240a53c9aa1ff5;p=elisp%2Flsdb.git

* lsdb.el: Check whether make-hash-table is a subr.
---

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)