Mercurial > emacs
comparison src/term.c @ 8612:86065bec6fc9
(term_init): Added missing argument to tgetstr.
(tgetstr): Move declarations to top level.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 24 Aug 1994 19:51:01 +0000 |
parents | 08cafbc57e00 |
children | 2d3bfce2e1f0 |
comparison
equal
deleted
inserted
replaced
8611:65a058371675 | 8612:86065bec6fc9 |
---|---|
283 | 283 |
284 /* Provided for lisp packages. */ | 284 /* Provided for lisp packages. */ |
285 static int system_uses_terminfo; | 285 static int system_uses_terminfo; |
286 | 286 |
287 char *tparam (); | 287 char *tparam (); |
288 | |
289 extern char *tgetstr (); | |
288 | 290 |
289 ring_bell () | 291 ring_bell () |
290 { | 292 { |
291 if (! FRAME_TERMCAP_P (selected_frame)) | 293 if (! FRAME_TERMCAP_P (selected_frame)) |
292 { | 294 { |
1259 } | 1261 } |
1260 | 1262 |
1261 static Lisp_Object | 1263 static Lisp_Object |
1262 term_get_fkeys_1 () | 1264 term_get_fkeys_1 () |
1263 { | 1265 { |
1264 extern char *tgetstr (); | |
1265 int i; | 1266 int i; |
1266 | 1267 |
1267 char **address = term_get_fkeys_arg; | 1268 char **address = term_get_fkeys_arg; |
1268 | 1269 |
1269 /* This can happen if CANNOT_DUMP or with strange options. */ | 1270 /* This can happen if CANNOT_DUMP or with strange options. */ |
1359 char *area; | 1360 char *area; |
1360 char **address = &area; | 1361 char **address = &area; |
1361 char buffer[2044]; | 1362 char buffer[2044]; |
1362 register char *p; | 1363 register char *p; |
1363 int status; | 1364 int status; |
1364 | |
1365 extern char *tgetstr (); | |
1366 | 1365 |
1367 Wcm_clear (); | 1366 Wcm_clear (); |
1368 dont_calculate_costs = 0; | 1367 dont_calculate_costs = 0; |
1369 | 1368 |
1370 status = tgetent (buffer, terminal_type); | 1369 status = tgetent (buffer, terminal_type); |
1510 | 1509 |
1511 /* If no `se' string, try using a `me' string instead. | 1510 /* If no `se' string, try using a `me' string instead. |
1512 If that fails, we can't use standout mode at all. */ | 1511 If that fails, we can't use standout mode at all. */ |
1513 if (TS_end_standout_mode == 0) | 1512 if (TS_end_standout_mode == 0) |
1514 { | 1513 { |
1515 char *s = tgetstr ("me"); | 1514 char *s = tgetstr ("me", address); |
1516 if (s != 0) | 1515 if (s != 0) |
1517 TS_end_standout_mode = s; | 1516 TS_end_standout_mode = s; |
1518 else | 1517 else |
1519 TS_standout_mode = 0; | 1518 TS_standout_mode = 0; |
1520 } | 1519 } |