Avoid aborts in 'md5'

* src/fns.c (extract_data_from_object): Don't crash if called with
an invalid object.  (Bug#30627)

diff --git a/src/fns.c b/src/fns.c
index aba34fd261141a23e35520532037c0393abccc71..de1dad3736eaccf5914b62909e5c78055feae1f0 100644 (file)
--- 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);
 }