From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Michael Heerdegen Newsgroups: gmane.emacs.bugs Subject: bug#36324: 27.0.50; Error in savehist-save: (wrong-type-argument listp t) Date: Fri, 21 Jun 2019 18:04:40 +0200 Message-ID: <87zhma9b6v.fsf@web.de> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="143655"; mail-complaints-to="usenet@blaine.gmane.org" To: 36324@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Jun 21 18:09:44 2019 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.89) (envelope-from ) id 1heM6h-000bFT-Rw for geb-bug-gnu-emacs@m.gmane.org; Fri, 21 Jun 2019 18:09:44 +0200 Original-Received: from localhost ([::1]:36614 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1heM6g-000710-TC for geb-bug-gnu-emacs@m.gmane.org; Fri, 21 Jun 2019 12:09:42 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:37492) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1heM3B-0003Z7-MR for bug-gnu-emacs@gnu.org; Fri, 21 Jun 2019 12:06:08 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1heM39-00080n-7J for bug-gnu-emacs@gnu.org; Fri, 21 Jun 2019 12:06:05 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:37105) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1heM38-0007yG-8H for bug-gnu-emacs@gnu.org; Fri, 21 Jun 2019 12:06:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1heM38-0001mW-1j for bug-gnu-emacs@gnu.org; Fri, 21 Jun 2019 12:06:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Michael Heerdegen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 21 Jun 2019 16:06:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 36324 X-GNU-PR-Package: emacs X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.15611331166790 (code B ref -1); Fri, 21 Jun 2019 16:06:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 21 Jun 2019 16:05:16 +0000 Original-Received: from localhost ([127.0.0.1]:50649 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1heM2N-0001lR-72 for submit@debbugs.gnu.org; Fri, 21 Jun 2019 12:05:15 -0400 Original-Received: from lists.gnu.org ([209.51.188.17]:40309) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1heM2L-0001lG-3r for submit@debbugs.gnu.org; Fri, 21 Jun 2019 12:05:13 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:37248) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1heM2G-00034b-V7 for bug-gnu-emacs@gnu.org; Fri, 21 Jun 2019 12:05:12 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1heM2C-0006W8-F4 for bug-gnu-emacs@gnu.org; Fri, 21 Jun 2019 12:05:07 -0400 Original-Received: from mout.web.de ([212.227.17.12]:45391) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1heM29-0005vi-Ul for bug-gnu-emacs@gnu.org; Fri, 21 Jun 2019 12:05:02 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=web.de; s=dbaedf251592; t=1561133082; bh=A7lg3Kod1jtb0iRjJr/mLUzJ9UWI5ja9j73JuxHJhbg=; h=X-UI-Sender-Class:From:To:Subject:Date; b=rbWfB8AgNJYwUYgzMWafQHXGfOMaAwYB8iYCu3LmUdySXHpCBqU/OxpthSyNLbH5Z NgKuMh2UH4Ijo0ucXQ+SRyaBgKZqiLVZyN8cZh1oJX1iEwEXBzSZG31CpJRsGTmHAj P6RwzL3GtBe2RqiJ460eVHXOgecKgFNsjaeS2M1Q= X-UI-Sender-Class: c548c8c5-30a9-4db5-a2e7-cb6cb037b8f9 Original-Received: from drachen.dragon ([188.98.106.25]) by smtp.web.de (mrweb101 [213.165.67.124]) with ESMTPSA (Nemesis) id 0MQNeK-1i1ZLy0bSG-00TnxK for ; Fri, 21 Jun 2019 18:04:42 +0200 X-Provags-ID: V03:K1:cVtcOfwnQkfqj+38bviSUVOG0ra4744OYaPoArHPVKrUfKk5i2t zL1tw696UUeMcDDsBx5g0XjdYzE8OnRla4/Q5wlUQL2s60aa9cC+uKElxydFhtiFamivMrS mkxj87X3CSG1tke3ZRh5QLHQg8GKWOcu6b4WqdIUWKyXQGtO39gTSekaUAwXPqzwu6H4wAc nVVvgoQs2DDfSrCes4SaQ== X-UI-Out-Filterresults: notjunk:1;V03:K0:IxkkSJf9NPU=:kGzDHXIk3VqMMXc67yADrF IXtezacBPuBNO5y8zKgJ7NPVkOIqDRxdIxdQsUjABM6Gkie8iY03DZ50df3LTVMlzgrQhTOoB h2a3PTd2feOIB+UlSgyEDLM4lQF81qBpbAJG8JIDYnJjLehw7a5Hs2hR93wHvy6Qu4R/N0cgS RwD6ZVzXLE+onzVSM671jLhxEt0xaWMVkwLWOFQpDo1PZrKxgzFxK0+XSJwQJuAQqDzy7JmPu feNN0dMYO5JutUOajEScUYUh5SiWPMAEAWEtikPffHN+04zP+5LBArxgCPcyj5Rhl3G8a2C8u YdjGeETBGrHFQ8ZYrANoC5PIxO9yOpxQgo9Mtx5u5uXp/x6Fu9EB+Pt2sSoJQuwIoGwY9RHDS 1pUW69cbGiqWhq92in7W6zFE7qhbLlGeXF6ZIH/vPiwVXzxxL82HR3ZXNFFdYdBddgFnZYqHJ bzferO0gnT6CJNlqhJLWOxxWzxhrcBDXURVYEay/ySsCzgNuFnnurRCT87Wbjov3vSVpO2lsA btoP746JORvfLwV6o5/vI599y+RW7WCFDD8r7SDZ3CAlKymHATuxcg+Q5vceikFny4M0s0Fpx 0F4SB0RhyiSXSHAJGg8JTSHOlwbDcsXTzu0teGyVWoOG31m9KlW8+1NEl2qt8uXrSX66wIkrF t8VGqR5gwIINuizpPGQY+ungNLZekgD8sYHcPl/7KG7L8DyDhUjZUkynwOOplPmeEso2A4sSU QwrPIOqoqvl+5soKljfNIFoQAyess+Sq3MpvSyk7A3AGQLaRz0M9ma2nyde3iitK38A3Sn2d X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 209.51.188.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:160950 Archived-At: Hi, didn't check if it's my fault since I didn't change something in my init file. Since some days whenever savehist-save is triggered I get this error: Debugger entered--Lisp error: (wrong-type-argument listp t) car(t) (let ((elt (car --dolist-tail--))) (let ((start (point))) (insert " ") (c= ondition-case nil (progn (prin1 elt (current-buffer)) (save-excursion (goto= -char start) (read (current-buffer)))) (error (goto-char start) (insert "\n= ") (while (not (eobp)) (insert ";;; ") (forward-line 1)) (insert "\n"))) (g= oto-char (point-max))) (setq --dolist-tail-- (cdr --dolist-tail--))) (while --dolist-tail-- (let ((elt (car --dolist-tail--))) (let ((start (p= oint))) (insert " ") (condition-case nil (progn (prin1 elt (current-buffer)= ) (save-excursion (goto-char start) (read (current-buffer)))) (error (goto-= char start) (insert "\n") (while (not (eobp)) (insert ";;; ") (forward-line= 1)) (insert "\n"))) (goto-char (point-max))) (setq --dolist-tail-- (cdr --= dolist-tail--)))) (let ((--dolist-tail-- value)) (while --dolist-tail-- (let ((elt (car --d= olist-tail--))) (let ((start (point))) (insert " ") (condition-case nil (pr= ogn (prin1 elt (current-buffer)) (save-excursion (goto-char start) (read ..= .))) (error (goto-char start) (insert "\n") (while (not ...) (insert ";;; "= ) (forward-line 1)) (insert "\n"))) (goto-char (point-max))) (setq --dolist= -tail-- (cdr --dolist-tail--))))) (progn (insert "(setq ") (prin1 symbol (current-buffer)) (insert " '(") (= setq excess-space (point)) (let ((--dolist-tail-- value)) (while --dolist-t= ail-- (let ((elt (car --dolist-tail--))) (let ((start (point))) (insert " "= ) (condition-case nil (progn (prin1 elt ...) (save-excursion ... ...)) (err= or (goto-char start) (insert "\n") (while ... ... ...) (insert "\n"))) (got= o-char (point-max))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (save-= excursion (goto-char excess-space) (if (eq (following-char) 32) (delete-reg= ion (point) (1+ (point))))) (insert "))\n")) (if value (progn (insert "(setq ") (prin1 symbol (current-buffer)) (inser= t " '(") (setq excess-space (point)) (let ((--dolist-tail-- value)) (while = --dolist-tail-- (let ((elt (car --dolist-tail--))) (let ((start ...)) (inse= rt " ") (condition-case nil (progn ... ...) (error ... ... ... ...)) (goto-= char (point-max))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (save-ex= cursion (goto-char excess-space) (if (eq (following-char) 32) (delete-regio= n (point) (1+ (point))))) (insert "))\n"))) (let ((value (symbol-value symbol)) excess-space) (if value (progn (inser= t "(setq ") (prin1 symbol (current-buffer)) (insert " '(") (setq excess-spa= ce (point)) (let ((--dolist-tail-- value)) (while --dolist-tail-- (let ((el= t ...)) (let (...) (insert " ") (condition-case nil ... ...) (goto-char ...= )) (setq --dolist-tail-- (cdr --dolist-tail--))))) (save-excursion (goto-ch= ar excess-space) (if (eq (following-char) 32) (delete-region (point) (1+ (p= oint))))) (insert "))\n")))) (progn (let ((value (symbol-value symbol)) excess-space) (if value (progn= (insert "(setq ") (prin1 symbol (current-buffer)) (insert " '(") (setq exc= ess-space (point)) (let ((--dolist-tail-- value)) (while --dolist-tail-- (l= et (...) (let ... ... ... ...) (setq --dolist-tail-- ...)))) (save-excursio= n (goto-char excess-space) (if (eq (following-char) 32) (delete-region (poi= nt) (1+ ...)))) (insert "))\n"))))) (if (and (boundp symbol) (not (memq symbol savehist-ignored-variables))) = (progn (let ((value (symbol-value symbol)) excess-space) (if value (progn (= insert "(setq ") (prin1 symbol (current-buffer)) (insert " '(") (setq exces= s-space (point)) (let ((--dolist-tail-- value)) (while --dolist-tail-- (let= ... ... ...))) (save-excursion (goto-char excess-space) (if (eq ... 32) (d= elete-region ... ...))) (insert "))\n")))))) (let ((symbol (car --dolist-tail--))) (if (and (boundp symbol) (not (memq= symbol savehist-ignored-variables))) (progn (let ((value (symbol-value sym= bol)) excess-space) (if value (progn (insert "(setq ") (prin1 symbol (curre= nt-buffer)) (insert " '(") (setq excess-space (point)) (let (...) (while --= dolist-tail-- ...)) (save-excursion (goto-char excess-space) (if ... ...)) = (insert "))\n")))))) (setq --dolist-tail-- (cdr --dolist-tail--))) (while --dolist-tail-- (let ((symbol (car --dolist-tail--))) (if (and (bo= undp symbol) (not (memq symbol savehist-ignored-variables))) (progn (let ((= value (symbol-value symbol)) excess-space) (if value (progn (insert "(setq = ") (prin1 symbol ...) (insert " '(") (setq excess-space ...) (let ... ...) = (save-excursion ... ...) (insert "))\n")))))) (setq --dolist-tail-- (cdr --= dolist-tail--)))) (let ((--dolist-tail-- savehist-minibuffer-history-variables)) (while --d= olist-tail-- (let ((symbol (car --dolist-tail--))) (if (and (boundp symbol)= (not (memq symbol savehist-ignored-variables))) (progn (let ((value ...) e= xcess-space) (if value (progn ... ... ... ... ... ... ...))))) (setq --doli= st-tail-- (cdr --dolist-tail--))))) (progn (prin1 (list 'setq 'savehist-minibuffer-history-variables (list 'q= uote savehist-minibuffer-history-variables)) (current-buffer)) (insert 10) = (let ((--dolist-tail-- savehist-minibuffer-history-variables)) (while --dol= ist-tail-- (let ((symbol (car --dolist-tail--))) (if (and (boundp symbol) (= not (memq symbol savehist-ignored-variables))) (progn (let (... excess-spac= e) (if value ...)))) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (if savehist-save-minibuffer-history (progn (prin1 (list 'setq 'savehist-= minibuffer-history-variables (list 'quote savehist-minibuffer-history-varia= bles)) (current-buffer)) (insert 10) (let ((--dolist-tail-- savehist-minibu= ffer-history-variables)) (while --dolist-tail-- (let ((symbol (car --dolist= -tail--))) (if (and (boundp symbol) (not ...)) (progn (let ... ...))) (setq= --dolist-tail-- (cdr --dolist-tail--))))))) (let ((print-length nil) (print-level nil) (print-quoted t)) (if savehist= -save-minibuffer-history (progn (prin1 (list 'setq 'savehist-minibuffer-his= tory-variables (list 'quote savehist-minibuffer-history-variables)) (curren= t-buffer)) (insert 10) (let ((--dolist-tail-- savehist-minibuffer-history-v= ariables)) (while --dolist-tail-- (let ((symbol ...)) (if (and ... ...) (pr= ogn ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (let ((--dolist= -tail-- savehist-additional-variables)) (while --dolist-tail-- (let ((symbo= l (car --dolist-tail--))) (if (boundp symbol) (progn (let (...) (if ... ...= )))) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (progn (insert (format-message (concat ";; -*- mode: emacs-lisp; coding: = %s -*-\n" ";; Minibuffer history file, automatically generate..." "\n") sav= ehist-coding-system)) (run-hooks 'savehist-save-hook) (let ((print-length n= il) (print-level nil) (print-quoted t)) (if savehist-save-minibuffer-histor= y (progn (prin1 (list 'setq 'savehist-minibuffer-history-variables (list 'q= uote savehist-minibuffer-history-variables)) (current-buffer)) (insert 10) = (let ((--dolist-tail-- savehist-minibuffer-history-variables)) (while --dol= ist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))))) (let ((-= -dolist-tail-- savehist-additional-variables)) (while --dolist-tail-- (let = ((symbol (car --dolist-tail--))) (if (boundp symbol) (progn (let ... ...)))= (setq --dolist-tail-- (cdr --dolist-tail--)))))) (let ((checksum (md5 (cur= rent-buffer) nil nil savehist-coding-system))) (if (and auto-save (equal ch= ecksum savehist-last-checksum)) nil (let ((file-precious-flag t) (coding-sy= stem-for-write savehist-coding-system)) (write-region (point-min) (point-ma= x) savehist-file nil (if (called-interactively-p 'interactive) nil 'quiet))= ) (if savehist-file-modes (progn (set-file-modes savehist-file savehist-fil= e-modes))) (setq savehist-last-checksum checksum)))) (unwind-protect (progn (insert (format-message (concat ";; -*- mode: emac= s-lisp; coding: %s -*-\n" ";; Minibuffer history file, automatically genera= te..." "\n") savehist-coding-system)) (run-hooks 'savehist-save-hook) (let = ((print-length nil) (print-level nil) (print-quoted t)) (if savehist-save-m= inibuffer-history (progn (prin1 (list 'setq 'savehist-minibuffer-history-va= riables (list ... savehist-minibuffer-history-variables)) (current-buffer))= (insert 10) (let ((--dolist-tail-- savehist-minibuffer-history-variables))= (while --dolist-tail-- (let ... ... ...))))) (let ((--dolist-tail-- savehi= st-additional-variables)) (while --dolist-tail-- (let ((symbol ...)) (if (b= oundp symbol) (progn ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))))= (let ((checksum (md5 (current-buffer) nil nil savehist-coding-system))) (i= f (and auto-save (equal checksum savehist-last-checksum)) nil (let ((file-p= recious-flag t) (coding-system-for-write savehist-coding-system)) (write-re= gion (point-min) (point-max) savehist-file nil (if (called-interactively-p = ...) nil 'quiet))) (if savehist-file-modes (progn (set-file-modes savehist-= file savehist-file-modes))) (setq savehist-last-checksum checksum)))) (and = (buffer-name #:temp-buffer) (kill-buffer #:temp-buffer))) (save-current-buffer (set-buffer #:temp-buffer) (unwind-protect (progn (i= nsert (format-message (concat ";; -*- mode: emacs-lisp; coding: %s -*-\n" "= ;; Minibuffer history file, automatically generate..." "\n") savehist-codin= g-system)) (run-hooks 'savehist-save-hook) (let ((print-length nil) (print-= level nil) (print-quoted t)) (if savehist-save-minibuffer-history (progn (p= rin1 (list ... ... ...) (current-buffer)) (insert 10) (let (...) (while --d= olist-tail-- ...)))) (let ((--dolist-tail-- savehist-additional-variables))= (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...))= ))) (let ((checksum (md5 (current-buffer) nil nil savehist-coding-system)))= (if (and auto-save (equal checksum savehist-last-checksum)) nil (let ((fil= e-precious-flag t) (coding-system-for-write savehist-coding-system)) (write= -region (point-min) (point-max) savehist-file nil (if ... nil ...))) (if sa= vehist-file-modes (progn (set-file-modes savehist-file savehist-file-modes)= )) (setq savehist-last-checksum checksum)))) (and (buffer-name #:temp-buffe= r) (kill-buffer #:temp-buffer)))) (let ((#:temp-buffer (generate-new-buffer " *temp*"))) (save-current-buff= er (set-buffer #:temp-buffer) (unwind-protect (progn (insert (format-messag= e (concat ";; -*- mode: emacs-lisp; coding: %s -*-\n" ";; Minibuffer histor= y file, automatically generate..." "\n") savehist-coding-system)) (run-hook= s 'savehist-save-hook) (let ((print-length nil) (print-level nil) (print-qu= oted t)) (if savehist-save-minibuffer-history (progn (prin1 ... ...) (inser= t 10) (let ... ...))) (let ((--dolist-tail-- savehist-additional-variables)= ) (while --dolist-tail-- (let ... ... ...)))) (let ((checksum (md5 ... nil = nil savehist-coding-system))) (if (and auto-save (equal checksum savehist-l= ast-checksum)) nil (let (... ...) (write-region ... ... savehist-file nil .= ..)) (if savehist-file-modes (progn ...)) (setq savehist-last-checksum chec= ksum)))) (and (buffer-name #:temp-buffer) (kill-buffer #:temp-buffer))))) savehist-save(t) (progn (savehist-save t)) (if savehist-mode (progn (savehist-save t))) savehist-autosave() apply(savehist-autosave nil) timer-event-handler([t 23820 65317 431948 300 savehist-autosave nil nil 8= 56000]) I couldn't find an obvious related change in savehist.el. When I load, say, the version of the file from one month ago, the issue is still there. I thought it would have been one of Lars' changes causing this, but I didn't find something obvious quickly. TIA, Michael. In GNU Emacs 27.0.50 (build 52, x86_64-pc-linux-gnu, GTK+ Version 3.24.5) of 2019-06-21 built on drachen Repository revision: da9ecd9c0b28a6f0139a8227c9d5e2ed944f53f7 Repository branch: master Windowing system distributor 'The X.Org Foundation', version 11.0.12004000 System Description: Debian GNU/Linux 10 (buster)