# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 777757861 0
# Node ID 86065bec6fc9f84d5d1489740d6f6b3edd993353
# Parent  65a05837167539500c33557195f48bf8381c1090
(term_init): Added missing argument to tgetstr.
(tgetstr): Move declarations to top level.

diff -r 65a058371675 -r 86065bec6fc9 src/term.c
--- a/src/term.c	Wed Aug 24 19:40:44 1994 +0000
+++ b/src/term.c	Wed Aug 24 19:51:01 1994 +0000
@@ -285,6 +285,8 @@
 static int system_uses_terminfo;
 
 char *tparam ();
+
+extern char *tgetstr ();
 
 ring_bell ()
 {
@@ -1261,7 +1263,6 @@
 static Lisp_Object
 term_get_fkeys_1 ()
 {
-  extern char *tgetstr ();
   int i;
 
   char **address = term_get_fkeys_arg;
@@ -1362,8 +1363,6 @@
   register char *p;
   int status;
 
-  extern char *tgetstr ();
-
   Wcm_clear ();
   dont_calculate_costs = 0;
 
@@ -1512,7 +1511,7 @@
      If that fails, we can't use standout mode at all.  */
   if (TS_end_standout_mode == 0)
     {
-      char *s = tgetstr ("me");
+      char *s = tgetstr ("me", address);
       if (s != 0)
 	TS_end_standout_mode = s;
       else