Fix compilation errors in previous commit.

* src/callproc.c (getenv_internal): Fix get_terminal_param call.

* dispextern.h (get_device): Move declaration to termhooks.h.
* termhooks.h (get_device): Move here.

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-462

diff --git a/README.multi-tty b/README.multi-tty
index de75aa6a10b893d9f688845097919fc38860658d..9f3e048e2e2875f70d752a877ec0707a7bf9c439 100644 (file)
--- a/README.multi-tty
+++ b/README.multi-tty
@@ -462,7 +462,11 @@ THINGS TO DO
    changed in CVS, and frame.el in multi-tty has not yet been adapted
    for the changes.  (It needs to look at
    default-frame-background-mode.)  (Update: maybe it is fixed now;
-   needs testing.)
+   needs testing.) (Note that the byte compiler has this to say about
+   term/rxvt.el:)
+
+       term/rxvt.el:309:17:Warning: assignment to free variable
+           `default-frame-background-mode'
 
 ** I think `(set-)terminal-local-value' and the terminal parameter
    mechanism should be integrated into a single framework.

diff --git a/src/callproc.c b/src/callproc.c
index 35331e4b5dd062a55d9783cfa4998857ff877355..a8735d51c9b04228a5ec0ad29c823fc9738a7afa 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1493,7 +1493,7 @@ getenv_internal (var, varlen, value, valuelen, terminal)
   /* Find the environment in which to search the variable. */
   if (!NILP (terminal))
     {
-      Lisp_Object local = get_terminal_param (get_device (terminal, 1));
+      Lisp_Object local = get_terminal_param (get_device (terminal, 1), Qenvironment);
       /* Use Vprocess_environment if there is no local environment.  */
       if (!NILP (local))
         environment = local;

diff --git a/src/dispextern.h b/src/dispextern.h
index b473f9cb16b5ceaa6b05c69562c79c0631357734..2ae833d46c24073a1af05a72642d48fbc76c1558 100644 (file)
--- a/src/dispextern.h
+++ b/src/dispextern.h
@@ -2939,8 +2939,6 @@ extern void insert_glyphs P_ ((struct frame *, struct glyph *, int));
 extern void delete_glyphs P_ ((struct frame *, int));
 extern void ins_del_lines P_ ((struct frame *, int, int));
 
-extern struct device *get_device P_ ((Lisp_Object display, int));
-
 extern struct device *init_initial_device P_ ((void));
 
 

diff --git a/src/termhooks.h b/src/termhooks.h
index f12dbadd197ac365fe5aaa252a8189d395537e87..7920b6597aa433659677a18a132a873883f1cbb6 100644 (file)
--- a/src/termhooks.h
+++ b/src/termhooks.h
@@ -596,7 +596,7 @@ extern struct device *device_list;
 #define DEVICE_ACTIVE_P(d) ((d)->type != output_termcap || (d)->display_info.tty->input)
 
 extern Lisp_Object get_terminal_param P_ ((struct device *, Lisp_Object));
-
+extern struct device *get_device P_ ((Lisp_Object display, int));
 extern struct device *create_device P_ ((void));
 extern void delete_device P_ ((struct device *));