Mercurial > hg > xemacs-beta
annotate lib-src/gnudoit @ 4777:c69aeb86b2a3
Serialise non-default hash table rehash thresholds correctly; use this.
src/ChangeLog addition:
2009-12-17 Aidan Kehoe <kehoea@parhasard.net>
* elhash.c (HASH_TABLE_DEFAULT_REHASH_THRESHOLD):
New macro, giving a default value for a hash table's rehash
threshold given its size and test function.
(print_hash_table): Print the hash table's rehash threshold if it
has a non-default value. Ditto for its rehash size.
(Fmake_hash_table): Supply the keyword arguments in a format
understood by #'function-arglist.
lisp/ChangeLog addition:
2009-12-17 Aidan Kehoe <kehoea@parhasard.net>
* mule/make-coding-system.el
(fixed-width-create-decode-encode-tables):
Use a rehash threshold of 0.999 for this hash table, now that hash
table rehash thresholds are serialised correctly; these hash
tables will never be resized, and it's not even that important
that they are *that* fast, for most of the coding systems they're
used a minority of the time.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 17 Dec 2009 13:50:45 +0000 |
| parents | 3ecd8885ac67 |
| children | 061f4f90f874 |
| rev | line source |
|---|---|
| 428 | 1 #! /bin/sh |
| 2 | |
| 3 # This file is part of XEmacs. | |
| 4 | |
| 5 # Copyright (C) 1997 Free Software Foundation, Inc. | |
| 6 | |
| 7 # XEmacs is free software; you can redistribute it and/or modify it | |
| 8 # under the terms of the GNU General Public License as published by the | |
| 9 # Free Software Foundation; either version 2, or (at your option) any | |
| 10 # later version. | |
| 11 | |
| 12 # XEmacs is distributed in the hope that it will be useful, but WITHOUT | |
| 13 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 # for more details. | |
| 16 | |
| 17 # You should have received a copy of the GNU General Public License | |
| 18 # along with XEmacs; see the file COPYING. If not, write to | |
| 19 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 20 # Boston, MA 02111-1307, USA. | |
| 21 | |
| 22 if [ x"$1" = x-q ] | |
| 23 then | |
| 24 quick=-q | |
| 25 shift | |
| 26 fi | |
| 27 | |
| 28 if [ $# -eq 0 ] | |
| 29 then | |
| 30 exec gnuclient $quick -batch | |
| 31 else | |
| 32 # I use "$*" instead of "$@" intentionally -- I don't want to have the | |
| 33 # arguments split. | |
| 34 exec gnuclient $quick -batch -eval "$*" | |
| 35 fi | |
| 36 |