Mercurial > emacs
comparison src/term.c @ 109559:4325622babca
Remove declarations and unused variables.
* src/term.c (Qspace, QCalign_to, QCwidth): Remove declarations.
(encode_terminal_code, produce_composite_glyph): Remove unused variables.
(set_tty_color_mode, term_mouse_highlight, term_get_fkeys): Remove
local extern declarations.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Mon, 26 Jul 2010 21:20:51 -0700 |
parents | 68ca98ae70fb |
children | ce2dcd6fda75 |
comparison
equal
deleted
inserted
replaced
109558:0a2fae39b2dc | 109559:4325622babca |
---|---|
129 /* If true, use "vs", otherwise use "ve" to make the cursor visible. */ | 129 /* If true, use "vs", otherwise use "ve" to make the cursor visible. */ |
130 | 130 |
131 static int visible_cursor; | 131 static int visible_cursor; |
132 | 132 |
133 /* Display space properties */ | 133 /* Display space properties */ |
134 | |
135 extern Lisp_Object Qspace, QCalign_to, QCwidth; | |
136 | 134 |
137 /* Functions to call after suspending a tty. */ | 135 /* Functions to call after suspending a tty. */ |
138 Lisp_Object Vsuspend_tty_functions; | 136 Lisp_Object Vsuspend_tty_functions; |
139 | 137 |
140 /* Functions to call after resuming a tty. */ | 138 /* Functions to call after resuming a tty. */ |
710 } | 708 } |
711 } | 709 } |
712 } | 710 } |
713 else | 711 else |
714 { | 712 { |
715 unsigned char *p = SDATA (string), *pend = p + SBYTES (string); | 713 unsigned char *p = SDATA (string); |
716 | 714 |
717 if (! STRING_MULTIBYTE (string)) | 715 if (! STRING_MULTIBYTE (string)) |
718 string = string_to_multibyte (string); | 716 string = string_to_multibyte (string); |
719 nbytes = buf - encode_terminal_src; | 717 nbytes = buf - encode_terminal_src; |
720 if (encode_terminal_src_size < nbytes + SBYTES (string)) | 718 if (encode_terminal_src_size < nbytes + SBYTES (string)) |
1381 termcap defines function keys which use a prefix that is already bound | 1379 termcap defines function keys which use a prefix that is already bound |
1382 to a command by the default bindings, we should silently ignore that | 1380 to a command by the default bindings, we should silently ignore that |
1383 function key specification, rather than giving the user an error and | 1381 function key specification, rather than giving the user an error and |
1384 refusing to run at all on such a terminal. */ | 1382 refusing to run at all on such a terminal. */ |
1385 | 1383 |
1386 extern Lisp_Object Fidentity (Lisp_Object); | |
1387 term_get_fkeys_address = address; | 1384 term_get_fkeys_address = address; |
1388 term_get_fkeys_kboard = kboard; | 1385 term_get_fkeys_kboard = kboard; |
1389 internal_condition_case (term_get_fkeys_1, Qerror, Fidentity); | 1386 internal_condition_case (term_get_fkeys_1, Qerror, Fidentity); |
1390 } | 1387 } |
1391 | 1388 |
1858 correctly. */ | 1855 correctly. */ |
1859 | 1856 |
1860 static void | 1857 static void |
1861 produce_composite_glyph (struct it *it) | 1858 produce_composite_glyph (struct it *it) |
1862 { | 1859 { |
1863 int c; | |
1864 | |
1865 if (it->cmp_it.ch < 0) | 1860 if (it->cmp_it.ch < 0) |
1866 { | 1861 { |
1867 struct composition *cmp = composition_table[it->cmp_it.id]; | 1862 struct composition *cmp = composition_table[it->cmp_it.id]; |
1868 | 1863 |
1869 it->pixel_width = cmp->width; | 1864 it->pixel_width = cmp->width; |
2254 set_tty_color_mode (struct tty_display_info *tty, struct frame *f) | 2249 set_tty_color_mode (struct tty_display_info *tty, struct frame *f) |
2255 { | 2250 { |
2256 Lisp_Object tem, val; | 2251 Lisp_Object tem, val; |
2257 Lisp_Object color_mode; | 2252 Lisp_Object color_mode; |
2258 int mode; | 2253 int mode; |
2259 extern Lisp_Object Qtty_color_mode; | |
2260 Lisp_Object tty_color_mode_alist | 2254 Lisp_Object tty_color_mode_alist |
2261 = Fintern_soft (build_string ("tty-color-mode-alist"), Qnil); | 2255 = Fintern_soft (build_string ("tty-color-mode-alist"), Qnil); |
2262 | 2256 |
2263 tem = assq_no_quit (Qtty_color_mode, f->param_alist); | 2257 tem = assq_no_quit (Qtty_color_mode, f->param_alist); |
2264 val = CONSP (tem) ? XCDR (tem) : Qnil; | 2258 val = CONSP (tem) ? XCDR (tem) : Qnil; |
2793 abort (); | 2787 abort (); |
2794 pos = glyph->charpos; | 2788 pos = glyph->charpos; |
2795 | 2789 |
2796 /* Check for mouse-face. */ | 2790 /* Check for mouse-face. */ |
2797 { | 2791 { |
2798 extern Lisp_Object Qmouse_face; | |
2799 Lisp_Object mouse_face, overlay, position, *overlay_vec; | 2792 Lisp_Object mouse_face, overlay, position, *overlay_vec; |
2800 int noverlays, obegv, ozv; | 2793 int noverlays, obegv, ozv; |
2801 struct buffer *obuf; | 2794 struct buffer *obuf; |
2802 | 2795 |
2803 /* If we get an out-of-range value, return now; avoid an error. */ | 2796 /* If we get an out-of-range value, return now; avoid an error. */ |