From: Robin Templeton <robin@terpri.org>
Date: Fri, 18 Jul 2014 19:03:49 +0000 (-0400)
Subject: subrp fix
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/da5f1e884887441b0eb5b519ec366bc551d73da7

subrp fix
---

diff --git a/src/data.c b/src/data.c
index 9fb276cc89..c3a04eedda 100644
--- a/src/data.c
+++ b/src/data.c
@@ -471,7 +471,7 @@ DEFUN ("subrp", Fsubrp, Ssubrp, 1, 1, 0,
   (Lisp_Object object)
 {
   if (CONSP (object) && EQ (XCAR (object), Qspecial_operator))
-    object = XCDR (object);
+    return Qt;
   if (SCM_PRIMITIVE_P (object))
     return Qt;
   return Qnil;