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. */