src/w32.c (network_interface_info): Make sure the argument is a Lisp string.

diff --git a/src/ChangeLog b/src/ChangeLog
index f84fe133c7edc21ea42844501e1e4aebf6b42788..24343faa4072dbc29bee11c4c60f75f2c0567b1e 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-04  Eli Zaretskii  <eliz@gnu.org>
+
+       * w32.c (network_interface_info): Make sure the argument is a
+       Lisp string.
+
 2014-07-01  Eli Zaretskii  <eliz@gnu.org>
 
        * dispnew.c (prepare_desired_row): Accept 2 additional arguments:

diff --git a/src/w32.c b/src/w32.c
index 0892f932bc29bb932134f6b2a17b85d46be402fd..15e53600d95b9720e9633304693124f662d006af 100644 (file)
--- a/src/w32.c
+++ b/src/w32.c
@@ -8611,6 +8611,7 @@ network_interface_list (void)
 Lisp_Object
 network_interface_info (Lisp_Object ifname)
 {
+  CHECK_STRING (ifname);
   return network_interface_get_info (ifname);
 }