projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(char-db-make-char-spec): New function.
[chise/xemacs-chise.git-]
/
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)
"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)
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)))
(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)
(forward-line 1)
(sit-for 0))
(switch-to-buffer rpt)