GNU bug report logs - #35131
27.0.50; desktop-save no longer saves register containing frameset

Previous Next

Full log

Message #19 received at 35131-done <at> debbugs.gnu.org (full text, mbox):

From: Tadeus Prastowo <tadeus.prastowo <at> unitn.it>
To: Stefan Monnier <monnier <at> iro.umontreal.ca>
Cc: 35131-done <at> debbugs.gnu.org
Subject: Re: bug#35131: 27.0.50; desktop-save no longer saves register
 containing frameset
Date: Thu, 4 Apr 2019 20:37:03 +0200

On Thu, Apr 4, 2019 at 7:48 PM Stefan Monnier <monnier <at> iro.umontreal.ca> wrote:
> I installed the patch below which seems to fix it,
>
>
>         Stefan
>
>
> diff --git a/lisp/desktop.el b/lisp/desktop.el
> index acabde5eb2..97c057e201 100644
> --- a/lisp/desktop.el
> +++ b/lisp/desktop.el
> @@ -856,6 +856,19 @@ desktop--v2s
>                                         `',(cdr el) (cdr el)))
>                                   pass1)))
>          (cons 'may `[,@(mapcar #'cdr pass1)]))))
> +    ((and (recordp value) (symbolp (aref value 0)))
> +     (let* ((pass1 (let ((res ()))
> +                     (dotimes (i (length value))
> +                       (push (desktop--v2s (aref value i)) res))
> +                     (nreverse res)))
> +           (special (assq nil pass1)))
> +       (if special
> +          (cons nil `(record
> +                       ,@(mapcar (lambda (el)
> +                                   (if (eq (car el) 'must)
> +                                       `',(cdr el) (cdr el)))
> +                                 pass1)))
> +        (cons 'may (apply #'record (mapcar #'cdr pass1))))))
>      ((consp value)
>       (let ((p value)
>            newlist

I confirm that the patch solves the reported bug.  Thank you very much
for your quick response, Stefan.  I really appreciate it.

-- 
Best regards,
Tadeus

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.