comparison lispref/hash.texi @ 71922:797e05668794

fix bad page breaks
author Karl Berry <karl@gnu.org>
date Sun, 16 Jul 2006 18:25:23 +0000
parents c68bfe90878a
children 61cb5aae3bc3
comparison
equal deleted inserted replaced
71921:7f765ee64c55 71922:797e05668794
267 compared case-insensitively. 267 compared case-insensitively.
268 268
269 @example 269 @example
270 (defun case-fold-string= (a b) 270 (defun case-fold-string= (a b)
271 (compare-strings a nil nil b nil nil t)) 271 (compare-strings a nil nil b nil nil t))
272
273 (defun case-fold-string-hash (a) 272 (defun case-fold-string-hash (a)
274 (sxhash (upcase a))) 273 (sxhash (upcase a)))
275 274
276 (define-hash-table-test 'case-fold 275 (define-hash-table-test 'case-fold
277 'case-fold-string= 'case-fold-string-hash) 276 'case-fold-string= 'case-fold-string-hash)