Subject: bug#41232: closed (Re: bug#41232: [PATCH] Avoid a segfault when processing disable-eval specs)

From: [email-masked] (GNU bug Tracking System)
Date: Wed, 13 May 2020 15:55:02 +0000

Your bug report

#41232: [PATCH] Avoid a segfault when processing disable-eval specs

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
41232: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=41232
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#41232: [PATCH] Avoid a segfault when processing disable-eval specs
From: Eli Zaretskii <[email-masked]>
To: Clément Pit-Claudel <[email-masked]>
Cc: [email-masked]
Date: Wed, 13 May 2020 18:54:35 +0300
List-Id: <debbugs-submit.debbugs.gnu.org>

> From: Clément Pit-Claudel <[email-masked]>
> Date: Wed, 13 May 2020 10:40:18 -0400
> 
> The following code causes Emacs to segfault:
> 
>   (insert (propertize "A" 'display '(disable-eval . nil)))
> 
> This is due to this code, which takes an XCAR without checking whether the spec is a cons:
> 
>   /* Support (disable-eval PROP) which is used by enriched.el.  */
>   if (CONSP (spec) && EQ (XCAR (spec), Qdisable_eval))
>     {
>       enable_eval = false;
>       spec = XCAR (XCDR (spec));
>     }
> 
> The attached patch fixes this.

Thanks, installed.

Subject: [PATCH] Avoid a segfault when processing disable-eval specs
From: Clément Pit-Claudel <[email-masked]>
To: bug-gnu-emacs <[email-masked]>
Date: Wed, 13 May 2020 10:40:18 -0400
List-Id: <debbugs-submit.debbugs.gnu.org>

The following code causes Emacs to segfault:

  (insert (propertize "A" 'display '(disable-eval . nil)))

This is due to this code, which takes an XCAR without checking whether the spec is a cons:

  /* Support (disable-eval PROP) which is used by enriched.el.  */
  if (CONSP (spec) && EQ (XCAR (spec), Qdisable_eval))
    {
      enable_eval = false;
      spec = XCAR (XCDR (spec));
    }

The attached patch fixes this.
From b0954112bbe2dc124041a6439a4cc371fd9809fd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Cl=C3=A9ment=20Pit-Claudel?= <[email-masked]>
Date: Wed, 13 May 2020 10:37:05 -0400
Subject: [PATCH] Fix a crash in handle_display_spec

* src/xdisp.c (handle_display_spec): Check that the cdr of the
disable-eval spec is a cons before taking its car.
---
 src/xdisp.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/xdisp.c b/src/xdisp.c
index d65bb38869..cf15f579b5 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -5120,7 +5120,7 @@ handle_display_spec (struct it *it, Lisp_Object spec, Lisp_Object object,
   if (CONSP (spec) && EQ (XCAR (spec), Qdisable_eval))
     {
       enable_eval = false;
-      spec = XCAR (XCDR (spec));
+      spec = CONSP (XCDR (spec)) ? XCAR (XCDR (spec)) : Qnil;
     }
 
   if (CONSP (spec)
-- 
2.17.1