Mercurial > hg > xemacs-beta

comparison lisp/url/url-hash.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
45 '(make-hashtable 45 '(make-hashtable
46 make-key-weak-hashtable 46 make-key-weak-hashtable
47 make-value-weak-hashtable 47 make-value-weak-hashtable
48 make-weak-hashtable 48 make-weak-hashtable
49 hashtablep 49 hashtablep
50 clrhash
51 maphash
52 copy-hashtable)))
53 ((fboundp 'w3-maphash)
54 (mapcar (function
55 (lambda (sym)
56 (let ((new-sym (intern (format "url-%s" sym)))
57 (old-sym (intern (format "w3-%s" sym))))
58 (defalias new-sym old-sym))))
59 '(make-hashtable
60 make-key-weak-hashtable
61 make-value-weak-hashtable
62 make-weak-hashtable
63 hashtablep
64 puthash
65 gethash
66 clrhash 50 clrhash
67 maphash 51 maphash
68 copy-hashtable))) 52 copy-hashtable)))
69 (t 53 (t
70 (defconst url-hashtable-primes 54 (defconst url-hashtable-primes
123 107
124 (defun url-copy-hashtable (old-table) 108 (defun url-copy-hashtable (old-table)
125 "Make a new hashtable which contains the same keys and values 109 "Make a new hashtable which contains the same keys and values
126 as the given table. The keys and values will not themselves be copied." 110 as the given table. The keys and values will not themselves be copied."
127 (copy-sequence old-table)) 111 (copy-sequence old-table))
128 (mapcar (function
129 (lambda (sym)
130 (let ((new-sym (intern (format "w3-%s" sym)))
131 (old-sym (intern (format "url-%s" sym))))
132 (fset new-sym old-sym))))
133 '(make-hashtable
134 make-key-weak-hashtable
135 make-value-weak-hashtable
136 make-weak-hashtable
137 hashtablep
138 puthash
139 gethash
140 clrhash
141 maphash
142 copy-hashtable))
143 )) 112 ))
144 113
145 (provide 'url-hash) 114 (provide 'url-hash)
146 (provide 'w3-hash)