From c87d04e05ebeaf9e72eaa81cbd98fb4910772667 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 27 Feb 2018 18:44:15 +0200 Subject: [PATCH] Avoid aborts in 'md5' * src/fns.c (extract_data_from_object): Don't crash if called with an invalid object. (Bug#30627) --- src/fns.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/fns.c b/src/fns.c index aba34fd2611..de1dad3736e 100644 --- a/src/fns.c +++ b/src/fns.c @@ -4952,6 +4952,9 @@ extract_data_from_object (Lisp_Object spec, #endif } + if (!STRINGP (object)) + signal_error ("Invalid object argument", + NILP (object) ? build_string ("nil") : object); return SSDATA (object); } -- 2.39.2