1 |
@c -*-texinfo-*- |
@c -*-texinfo-*- |
2 |
@c This is part of the GNU Emacs Lisp Reference Manual. |
@c This is part of the GNU Emacs Lisp Reference Manual. |
3 |
@c Copyright (C) 1999 Free Software Foundation, Inc. |
@c Copyright (C) 1999 Free Software Foundation, Inc. |
4 |
@c See the file elisp.texi for copying conditions. |
@c See the file elisp.texi for copying conditions. |
5 |
@setfilename ../info/hash |
@setfilename ../info/hash |
6 |
@node Hash Tables, Symbols, Sequences Arrays Vectors, Top |
@node Hash Tables, Symbols, Sequences Arrays Vectors, Top |
176 |
@end defun |
@end defun |
177 |
|
|
178 |
@tindex puthash |
@tindex puthash |
179 |
@defun puthash key value table |
@defun puthash key value table |
180 |
This function enters an association for @var{key} in @var{table}, with |
This function enters an association for @var{key} in @var{table}, with |
181 |
value @var{value}. If @var{key} already has an association in |
value @var{value}. If @var{key} already has an association in |
182 |
@var{table}, @var{value} replaces the old associated value. |
@var{table}, @var{value} replaces the old associated value. |
270 |
(defun case-fold-string-hash (a) |
(defun case-fold-string-hash (a) |
271 |
(sxhash (upcase a))) |
(sxhash (upcase a))) |
272 |
|
|
273 |
(define-hash-table-test 'case-fold 'case-fold-string= |
(define-hash-table-test 'case-fold 'case-fold-string= |
274 |
'case-fold-string-hash)) |
'case-fold-string-hash)) |
275 |
|
|
276 |
(make-hash-table :test 'case-fold) |
(make-hash-table :test 'case-fold) |