X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fcallers-of-rpt.el;h=104e882f4fde6cbdec93c98a994367774268c4f5;hb=05f75a702ab605f020299ac5845c79ee6046e2fe;hp=8e9c7fc6631b0307458fdf1eedd7eb781d1f1117;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/callers-of-rpt.el b/lisp/callers-of-rpt.el
index 8e9c7fc..104e882 100644
--- a/lisp/callers-of-rpt.el
+++ b/lisp/callers-of-rpt.el
@@ -40,8 +40,8 @@
   "Where the package lisp sources live.")
 
 ;; (makunbound 'caller-table)
-(defconst caller-table (make-hashtable 256 #'equal)
-  "Hashtable keyed on the symbols being required.  Each element will
+(defconst caller-table (make-hash-table :test 'equal)
+  "Hash table keyed on the symbols being required.  Each element will
   be a list of file-names of programs that depend on them.")
 
 ;;./apel/atype.el:(require 'emu)
@@ -91,7 +91,8 @@
 					      (point))
 				    cmd-out))
 	     (lst (gethash key caller-table)))
-	(puthash key (add-to-list 'lst file-name) caller-table))
+	(unless (member file-name lst)
+	  (puthash key (cons file-name lst) caller-table)))
       (forward-line 1)
       (sit-for 0))
     (switch-to-buffer rpt)