From 1858a2c261f61cff1c62b9238dfb29a3eba5ecfa Mon Sep 17 00:00:00 2001
From: Paul Eggert <eggert@cs.ucla.edu>
Date: Wed, 28 Feb 2018 11:13:31 -0800
Subject: [PATCH] Avoid unnecessary STRINGP test in recent fix

Problem noted by Andreas Schwab in:
https://lists.gnu.org/r/emacs-devel/2018-02/msg00854.html
* src/fns.c (Fsecure_hash_algorithms): Simplify previous change.
---
 src/fns.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/fns.c b/src/fns.c
index de1dad3736..0a458ff45a 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -4951,8 +4951,7 @@ extract_data_from_object (Lisp_Object spec,
       error ("GnuTLS is not available, so `iv-auto' can't be used");
 #endif
     }
-
-  if (!STRINGP (object))
+  else
     signal_error ("Invalid object argument",
 		  NILP (object) ? build_string ("nil") : object);
   return SSDATA (object);
-- 
2.14.3