Parent Directory | Revision Log | Patch
revision 1.18 by rms, Sun Mar 6 18:15:56 2005 UTC | revision 1.19 by rms, Tue Aug 9 12:01:28 2005 UTC | |
---|---|---|
# | Line 281 compared case-insensitively. | Line 281 compared case-insensitively. |
281 | (defun case-fold-string-hash (a) | (defun case-fold-string-hash (a) |
282 | (sxhash (upcase a))) | (sxhash (upcase a))) |
283 | ||
284 | (define-hash-table-test 'case-fold 'case-fold-string= | (define-hash-table-test 'case-fold |
285 | 'case-fold-string-hash)) | 'case-fold-string= 'case-fold-string-hash) |
286 | ||
287 | (make-hash-table :test 'case-fold) | (make-hash-table :test 'case-fold) |
288 | @end example | @end example |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |