Mercurial > hg > xemacs-beta

comparison lisp/oobr/hash-test.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
4 ;; SUMMARY: Interactively test functions from hasht.el. 4 ;; SUMMARY: Interactively test functions from hasht.el.
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: extensions, maint, tools 6 ;; KEYWORDS: extensions, maint, tools
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: Motorola Inc. 9 ;; ORG: InfoDock Associates
10 ;; 10 ;;
11 ;; ORIG-DATE: 16-Mar-90 at 03:38:48 11 ;; ORIG-DATE: 16-Mar-90 at 03:38:48
12 ;; LAST-MOD: 14-Apr-95 at 15:37:49 by Bob Weiner 12 ;; LAST-MOD: 20-Feb-97 at 07:04:19 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1990-1995 Free Software Foundation, Inc. 14 ;; Copyright (C) 1990-1995, 1997 Free Software Foundation, Inc.
15 ;; See the file BR-COPY for license information. 15 ;; See the file BR-COPY for license information.
16 ;; 16 ;;
17 ;; This file is part of the OO-Browser. 17 ;; This file is part of the OO-Browser.
18 ;; 18 ;;
19 ;; DESCRIPTION: 19 ;; DESCRIPTION:
74 ; => ("e1" "e2") 74 ; => ("e1" "e2")
75 (hash-lookup "b" hs3) 75 (hash-lookup "b" hs3)
76 ; => ("b1" "b2") 76 ; => ("b1" "b2")
77 77
78 (hash-make -3) 78 (hash-make -3)
79 ; => (error ("(hash-make): Initializer must be >= 0, not '-3'")) 79 ; => (error ("(hash-make): Initializer must be >= 0, not `-3'"))
80 80
81 (hash-replace '("e11" "e22") "e" hs3) 81 (hash-replace '("e11" "e22") "e" hs3)
82 ; => ("e11" "e22") 82 ; => ("e11" "e22")
83 (hash-lookup "e" hs3) 83 (hash-lookup "e" hs3)
84 ; => ("e11" "e22") 84 ; => ("e11" "e22")