(g2-UU+5B73): Add `=decomposition@hanyo-denshi'.

[chise/xemacs-chise.git.1] / lisp / callers-of-rpt.el

diff --git a/lisp/callers-of-rpt.el b/lisp/callers-of-rpt.el
index 8e9c7fc..104e882 100644 (file)
--- 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)