From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 27 Feb 2018 16:44:15 +0000 (+0200)
Subject: Avoid aborts in 'md5'
X-Git-Tag: emacs-26.1-rc1~152
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c87d04e05ebeaf9e72eaa81cbd98fb4910772667;p=emacs.git

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 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);
 }