Mercurial > hg > xemacs-beta

comparison src/keymap.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents 71477bc21fe8
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
252 mark_object (keymap->name); 252 mark_object (keymap->name);
253 return keymap->table; 253 return keymap->table;
254 } 254 }
255 255
256 static void 256 static void
257 print_keymap (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 257 print_keymap (Lisp_Object obj, Lisp_Object printcharfun,
258 int UNUSED (escapeflag))
258 { 259 {
259 /* This function can GC */ 260 /* This function can GC */
260 Lisp_Keymap *keymap = XKEYMAP (obj); 261 Lisp_Keymap *keymap = XKEYMAP (obj);
261 if (print_readably) 262 if (print_readably)
262 printing_unreadable_object ("#<keymap 0x%x>", keymap->header.uid); 263 printing_unreadable_object ("#<keymap 0x%x>", keymap->header.uid);
688 { 689 {
689 Lisp_Object *result_locative; 690 Lisp_Object *result_locative;
690 }; 691 };
691 692
692 static int 693 static int
693 keymap_submaps_mapper_0 (Lisp_Object key, Lisp_Object value, 694 keymap_submaps_mapper_0 (Lisp_Object UNUSED (key), Lisp_Object value,
694 void *keymap_submaps_closure) 695 void *UNUSED (keymap_submaps_closure))
695 { 696 {
696 /* This function can GC */ 697 /* This function can GC */
697 /* Perform any autoloads, etc */ 698 /* Perform any autoloads, etc */
698 Fkeymapp (value); 699 Fkeymapp (value);
699 return 0; 700 return 0;
828 } 829 }
829 830
830 831
831 832
832 static Lisp_Object 833 static Lisp_Object
833 traverse_keymaps_noop (Lisp_Object keymap, void *arg) 834 traverse_keymaps_noop (Lisp_Object UNUSED (keymap), void *UNUSED (arg))
834 { 835 {
835 return Qnil; 836 return Qnil;
836 } 837 }
837 838
838 DEFUN ("set-keymap-parents", Fset_keymap_parents, 2, 2, 0, /* 839 DEFUN ("set-keymap-parents", Fset_keymap_parents, 2, 2, 0, /*
915 XKEYMAP (keymap)->prompt = new_prompt; 916 XKEYMAP (keymap)->prompt = new_prompt;
916 return new_prompt; 917 return new_prompt;
917 } 918 }
918 919
919 static Lisp_Object 920 static Lisp_Object
920 keymap_prompt_mapper (Lisp_Object keymap, void *arg) 921 keymap_prompt_mapper (Lisp_Object keymap, void *UNUSED (arg))
921 { 922 {
922 return XKEYMAP (keymap)->prompt; 923 return XKEYMAP (keymap)->prompt;
923 } 924 }
924 925
925 926
2894 /* used by map_keymap_sorted(), describe_map_sort_predicate(), 2895 /* used by map_keymap_sorted(), describe_map_sort_predicate(),
2895 and keymap_submaps(). 2896 and keymap_submaps().
2896 */ 2897 */
2897 static int 2898 static int
2898 map_keymap_sort_predicate (Lisp_Object obj1, Lisp_Object obj2, 2899 map_keymap_sort_predicate (Lisp_Object obj1, Lisp_Object obj2,
2899 Lisp_Object pred) 2900 Lisp_Object UNUSED (pred))
2900 { 2901 {
2901 /* obj1 and obj2 are conses with keysyms in their cars. Cdrs are ignored. 2902 /* obj1 and obj2 are conses with keysyms in their cars. Cdrs are ignored.
2902 */ 2903 */
2903 int bit1, bit2; 2904 int bit1, bit2;
2904 int sym1_p = 0; 2905 int sym1_p = 0;
3467 3468
3468 If optional 4th arg NOINDIRECT is non-nil, don't follow indirections 3469 If optional 4th arg NOINDIRECT is non-nil, don't follow indirections
3469 to other keymaps or slots. This makes it possible to search for an 3470 to other keymaps or slots. This makes it possible to search for an
3470 indirect definition itself. 3471 indirect definition itself.
3471 */ 3472 */
3472 (definition, keymaps, firstonly, noindirect, event_or_keys)) 3473 (definition, keymaps, firstonly, UNUSED (noindirect), event_or_keys))
3473 { 3474 {
3474 /* This function can GC */ 3475 /* This function can GC */
3475 Lisp_Object maps[100]; 3476 Lisp_Object maps[100];
3476 Lisp_Object *gubbish = maps; 3477 Lisp_Object *gubbish = maps;
3477 int nmaps; 3478 int nmaps;