Mercurial > hg > xemacs-beta

comparison lisp/callers-of-rpt.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 0e522484dd2a
children
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
38 "Where the XEmacs 20 lisp sources live.") 38 "Where the XEmacs 20 lisp sources live.")
39 (defvar xemacs-pkg-lisp-dir "/home/xemacs/packages/" 39 (defvar xemacs-pkg-lisp-dir "/home/xemacs/packages/"
40 "Where the package lisp sources live.") 40 "Where the package lisp sources live.")
41 41
42 ;; (makunbound 'caller-table) 42 ;; (makunbound 'caller-table)
43 (defconst caller-table (make-hashtable 256 #'equal) 43 (defconst caller-table (make-hash-table :test 'equal)
44 "Hashtable keyed on the symbols being required. Each element will 44 "Hash table keyed on the symbols being required. Each element will
45 be a list of file-names of programs that depend on them.") 45 be a list of file-names of programs that depend on them.")
46 46
47 ;;./apel/atype.el:(require 'emu) 47 ;;./apel/atype.el:(require 'emu)
48 ;;./apel/atype.el:(require 'alist) 48 ;;./apel/atype.el:(require 'alist)
49 ;;./apel/emu-e19.el: (require 'emu-xemacs)) 49 ;;./apel/emu-e19.el: (require 'emu-xemacs))
89 (let* ((key (buffer-substring (point) (progn 89 (let* ((key (buffer-substring (point) (progn
90 (skip-chars-forward "^) ") 90 (skip-chars-forward "^) ")
91 (point)) 91 (point))
92 cmd-out)) 92 cmd-out))
93 (lst (gethash key caller-table))) 93 (lst (gethash key caller-table)))
94 (puthash key (add-to-list 'lst file-name) caller-table)) 94 (unless (member file-name lst)
95 (puthash key (cons file-name lst) caller-table)))
95 (forward-line 1) 96 (forward-line 1)
96 (sit-for 0)) 97 (sit-for 0))
97 (switch-to-buffer rpt) 98 (switch-to-buffer rpt)
98 (buffer-disable-undo rpt) 99 (buffer-disable-undo rpt)
99 (erase-buffer rpt) 100 (erase-buffer rpt)