Merge from origin/emacs-30

4b9a8fd6074 etags-regen-file-extensions: Add .pm
956f14ae5e9 * src/treesit.c (treesit_debug_print_parser_list): Fix co...
300d05ecb4c Type-check argument to network-lookup-address-info
0f0f21b7f27 ; Improve doc strings of options related to numbered backups
f0daa2f2153 Conservative heuristic for tree-sitter parser ranges (bug...
035024b4e5a ; Fix treesit.c printing
8771310a10d ; * admin/notes/unicode: Need to run textsec-tests (bug#7...
4c6f45fa8ee Re-enable GC mark trace buffer by default
c6077015894 ; * src/haiku_support.cc: Correct last change.
ae22ad7f624 ; Add even more tests for previous commit
460b9d705ab Fix treesit_sync_visible_region's range fixup code (bug#7...
81347c1aaf2 ; * etc/PROBLEMS: Fix last change (bug#73207).
a82b7f3e823 Document unavailability of frame geometry on Wayland

1 files changed, 5 insertions, 0 deletions

diff --git a/src/process.c b/src/process.c
index 557bdfc918c..b71ba3daf2d 100644
--- a/src/process.c
+++ b/src/process.c
@@ -4710,6 +4710,9 @@ network_lookup_address_info_1 (Lisp_Object host, const char *service,
 DEFUN ("network-lookup-address-info", Fnetwork_lookup_address_info,
        Snetwork_lookup_address_info, 1, 3, 0,
        doc: /* Look up Internet Protocol (IP) address info of NAME.
+NAME must be an ASCII-only string.  For looking up internationalized
+hostnames, use `puny-encode-domain' on the string first.
+
 Optional argument FAMILY controls whether to look up IPv4 or IPv6
 addresses.  The default of nil means both, symbol `ipv4' means IPv4
 only, symbol `ipv6' means IPv6 only.
@@ -4729,6 +4732,8 @@ returned from the lookup.  */)
   struct addrinfo *res, *lres;
   struct addrinfo hints;
 
+  CHECK_STRING (name);
+
   memset (&hints, 0, sizeof hints);
   if (NILP (family))
     hints.ai_family = AF_UNSPEC;