Mercurial > emacs

comparison src/fns.c @ 48337:9bcf5686b357

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fmap_char_table): Cast `call2'.
author Dave Love <fx@gnu.org>
date Thu, 14 Nov 2002 23:20:16 +0000
parents de5246a3655a
children ecf43ac20827
comparison
equal deleted inserted replaced
48336:e3665d7ef836 48337:9bcf5686b357
1 /* Random utility Lisp functions. 1 /* Random utility Lisp functions.
2 Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 98, 99, 2000, 2001 2 Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 98, 99, 2000, 2001, 2002
3 Free Software Foundation, Inc. 3 Free Software Foundation, Inc.
4 4
5 This file is part of GNU Emacs. 5 This file is part of GNU Emacs.
6 6
7 GNU Emacs is free software; you can redistribute it and/or modify 7 GNU Emacs is free software; you can redistribute it and/or modify
2657 /* The depth of char table is at most 3. */ 2657 /* The depth of char table is at most 3. */
2658 Lisp_Object indices[3]; 2658 Lisp_Object indices[3];
2659 2659
2660 CHECK_CHAR_TABLE (char_table); 2660 CHECK_CHAR_TABLE (char_table);
2661 2661
2662 map_char_table (call2, Qnil, char_table, function, 0, indices); 2662 map_char_table ((void *) call2, Qnil, char_table, function, 0, indices);
2663 return Qnil; 2663 return Qnil;
2664 } 2664 }
2665 2665
2666 /* Return a value for character C in char-table TABLE. Store the 2666 /* Return a value for character C in char-table TABLE. Store the
2667 actual index for that value in *IDX. Ignore the default value of 2667 actual index for that value in *IDX. Ignore the default value of