GNU bug report logs - #62239
30.0.50; emacs 30.5.0 editing epub encoding system

Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.

Package: emacs; Reported by: H.-J. Heitländer <Heiner.Heitlaender@HIDDEN>; Keywords: patch; dated Fri, 17 Mar 2023 10:14:02 UTC; Maintainer for emacs is bug-gnu-emacs@HIDDEN.
Added tag(s) patch. Request was from Stefan Kangas <stefankangas@HIDDEN> to control <at> debbugs.gnu.org. Full text available.

Message received at 62239 <at> debbugs.gnu.org:


Received: (at 62239) by debbugs.gnu.org; 27 Mar 2023 13:14:07 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Mon Mar 27 09:14:07 2023
Received: from localhost ([127.0.0.1]:46764 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1pgmfm-0005KO-NX
	for submit <at> debbugs.gnu.org; Mon, 27 Mar 2023 09:14:07 -0400
Received: from mout01.posteo.de ([185.67.36.65]:38217)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <Heiner.Heitlaender@HIDDEN>) id 1pgiCq-00034V-7j
 for 62239 <at> debbugs.gnu.org; Mon, 27 Mar 2023 04:27:57 -0400
Received: from submission (posteo.de [185.67.36.169]) 
 by mout01.posteo.de (Postfix) with ESMTPS id E2DA3240084
 for <62239 <at> debbugs.gnu.org>; Mon, 27 Mar 2023 10:27:49 +0200 (CEST)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=posteo.de; s=2017;
 t=1679905669; bh=LhKVGzatNtG5ydHGlYAuToTEb3iMcAQQJIolk9WAOkk=;
 h=Date:To:From:Subject:From;
 b=dkhgRfgplmx7nCYFagADnojheGNby+c76N6ATdNSJqtVl/ryhTP2w0hxg3qKZfDfy
 gj1Hqi5EnMQ024gM7q8nrJYUeJ25IUtTa9BNmTwz+I6toXiGttwudd9W3sr7G4+aHb
 L/HZ2HGsIeZpI9zFPNzrwGXZWTX8GVLJxhxF7Qpf9NdAqxHzufxLW6wFpmkawLL4q5
 Zt2v/Q1TEFs2EQlRYASJpm9+LOn3BhuutH3TuvumbpAo7EuTHkmKQS5N2b1ixeTWFr
 Trwr80BZ+qIJHOHDgp4Pwvxc3OMiIB2lzB4nf8T2ZhOxtZ6BoKML/T5ruQsUtHH2wc
 bOeUL0VCx7C4A==
Received: from customer (localhost [127.0.0.1])
 by submission (posteo.de) with ESMTPSA id 4PlQtD5Jrsz9rxW
 for <62239 <at> debbugs.gnu.org>; Mon, 27 Mar 2023 10:27:48 +0200 (CEST)
Content-Type: multipart/mixed; boundary="------------pW8YK0wnYg1Xvk79kLd5lsWv"
Message-ID: <5a6682df-f4fc-5ce7-1d04-6f40b5e2d955@HIDDEN>
Date: Mon, 27 Mar 2023 08:27:48 +0000
MIME-Version: 1.0
To: 62239 <at> debbugs.gnu.org
Content-Language: de-DE
From: =?UTF-8?B?SC4tSi4gSGVpdGzDpG5kZXI=?= <Heiner.Heitlaender@HIDDEN>
Subject: patch feedback
X-Spam-Score: -2.3 (--)
X-Debbugs-Envelope-To: 62239
X-Mailman-Approved-At: Mon, 27 Mar 2023 09:14:06 -0400
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -3.3 (---)

This is a multi-part message in MIME format.
--------------pW8YK0wnYg1Xvk79kLd5lsWv
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit

Hi there,

Michael Heerdegen developed a patch for the problem.

Feedback: apply patch - not quite successfull


When trying to apply the patch

M-diff-mode

open patch-file

M-n

C-c C-a

I get "Hunk seriously messed up"


If I understand diff correctly, the patch aims for line 2204 = 
"(add-hook 'change-major-mode-hook..."

In my version of doc-view.el that line: "(add-hook 
'change-major-mode-hook..." is contained in line 2207.

That is probably the reason for "Hunk seriously messed up"

... So what I did is: I changed the source code of view-doc.el manually 
and not via the delevered patch. Then I tested it and ...
TADA!!! Success!!! It works.

Thanks for the effort

Heiner

--------------pW8YK0wnYg1Xvk79kLd5lsWv
Content-Type: text/x-patch; charset=UTF-8; name="62239.patch"
Content-Disposition: attachment; filename="62239.patch"
Content-Transfer-Encoding: base64

ZGlmZiAtLWdpdCBhL2xpc3AvZG9jLXZpZXcuZWwgYi9saXNwL2RvYy12aWV3LmVsCmluZGV4
IGIxNDY1NWZiMjc0Li4wMDI0MGViZjA4ZCAxMDA2NDQKLS0tIGEvbGlzcC9kb2Mtdmlldy5l
bAorKysgYi9saXNwL2RvYy12aWV3LmVsCkBAIC0yMjA0LDcgKzIyMDQsOSBAQCBkb2Mtdmll
dy1tb2RlCiAgICAgKGFkZC1ob29rICdjaGFuZ2UtbWFqb3ItbW9kZS1ob29rCiAJICAgICAg
KGxhbWJkYSAoKQogCQkoZG9jLXZpZXcta2lsbC1wcm9jKQotCQkocmVtb3ZlLW92ZXJsYXlz
IChwb2ludC1taW4pIChwb2ludC1tYXgpICdkb2MtdmlldyB0KSkKKwkJKHJlbW92ZS1vdmVy
bGF5cyAocG9pbnQtbWluKSAocG9pbnQtbWF4KSAnZG9jLXZpZXcgdCkKKyAgICAgICAgICAg
ICAgICAocmVtb3ZlLWZ1bmN0aW9uIChsb2NhbCAncmV2ZXJ0LWJ1ZmZlci1mdW5jdGlvbikK
KyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMnZG9jLXZpZXctLXJldmVydC1i
dWZmZXIpKQogCSAgICAgIG5pbCB0KQogICAgIChhZGQtaG9vayAnY2xvbmUtaW5kaXJlY3Qt
YnVmZmVyLWhvb2sgIydkb2Mtdmlldy1jbG9uZS1idWZmZXItaG9vayBuaWwgdCkKICAgICAo
YWRkLWhvb2sgJ2tpbGwtYnVmZmVyLWhvb2sgIydkb2Mtdmlldy1raWxsLXByb2MgbmlsIHQp


--------------pW8YK0wnYg1Xvk79kLd5lsWv--




Information forwarded to bug-gnu-emacs@HIDDEN:
bug#62239; Package emacs. Full text available.

Message received at 62239 <at> debbugs.gnu.org:


Received: (at 62239) by debbugs.gnu.org; 18 Mar 2023 00:07:00 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Fri Mar 17 20:07:00 2023
Received: from localhost ([127.0.0.1]:45894 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1pdK68-0005kZ-3Q
	for submit <at> debbugs.gnu.org; Fri, 17 Mar 2023 20:07:00 -0400
Received: from mout.web.de ([212.227.15.4]:36395)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <michael_heerdegen@HIDDEN>) id 1pdK65-0005kH-Ms
 for 62239 <at> debbugs.gnu.org; Fri, 17 Mar 2023 20:06:58 -0400
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=web.de; s=s29768273;
 t=1679098010; i=michael_heerdegen@HIDDEN;
 bh=9u1f3kWsnqXgZ8c0zpqCFxdXdunirQ3XyhJ1TmTv4EM=;
 h=X-UI-Sender-Class:From:To:Cc:Subject:In-Reply-To:References:Date;
 b=H4Wx3e0TI7IoyHL+dIa8EJnakjmUX9Oj2ufIEpQfHRxSEQe8O+tLgj4iqYoyUzr2l
 78pHnuSfak3HapgIWimbp8GL7s1a2YyElKKLp+zc4Kfxplj8RdX2vnJ7WuV7F9MSJJ
 caDvYIe00zfXlB6ElrQl/6gCKqWQBux2coz9AwlzKvbDT1HcgQ5cpjmfPRsO8IEksl
 j+iim7ZelrMbgh9w9yoGoP+TgJhfg38vHVlxs1xSqnOccPAbNCEwQGFQ0AbSkG0Sfr
 NA8pQS2G/CJ2DiX9/72COSFlTUKJ9UWBQxZSteCcMt2/pdkcVYnTzgmRsGL4k6fFJd
 hLMJLjG+66ftQ==
X-UI-Sender-Class: 814a7b36-bfc1-4dae-8640-3722d8ec6cd6
Received: from drachen.dragon ([178.14.74.146]) by smtp.web.de (mrweb006
 [213.165.67.108]) with ESMTPSA (Nemesis) id 1MLijs-1puzVK36cC-00HerK; Sat, 18
 Mar 2023 01:06:50 +0100
From: Michael Heerdegen <michael_heerdegen@HIDDEN>
To: H.-J. =?utf-8?Q?Heitl=C3=A4nder?= <Heiner.Heitlaender@HIDDEN>
Subject: Re: bug#62239: 30.0.50; emacs 30.5.0 editing epub encoding system
In-Reply-To: <6445c1ab-07e5-1473-c4a0-9e4f21f4eb6d@HIDDEN>
 ("H.-J. =?utf-8?Q?Heitl=C3=A4nder=22's?= message of "Fri, 17 Mar 2023
 09:02:16 +0000")
References: <6445c1ab-07e5-1473-c4a0-9e4f21f4eb6d@HIDDEN>
Date: Sat, 18 Mar 2023 01:06:47 +0100
Message-ID: <87lejudiso.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13)
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-Provags-ID: V03:K1:hzFMIAEp5RNxulzweU6ir8nrBz0ts3TXrMp6C4xiz2phjM4lqLy
 YlynqvoLmR30xlbnzvUaPK721xi7Upxsq+4AlEupMX+ubICXwrLMjJhbWBzCpkROSIlhxtX
 GhZ9C6JIlY/ViQmYZrKllCQ+Pa1sLz7e50yPBXU5opn1hymO8rKQ73Ad3Nzvu94zRCzoW7y
 pxekjusdppULF9VUlgxiw==
X-Spam-Flag: NO
UI-OutboundReport: notjunk:1;M01:P0:ALZXOfpEFLQ=;tyqcFit20QfA3YjyOQM9d1wUcVk
 W1AYyRiQfV4BBrG0Bkyb4iYmaRuran6wXZ1fwaMzzDX3IGmvLfe5lJub1KRTyJaqfqEI+P1gJ
 8fgqCzeKLhVImRD+xA91h5rIU2ATlQcNgzWfXVNoQWQ7GW2kkob8Qf87nmVG2trbOT0OiVo7h
 +Bgp2hxDFxmUKN4A0yucys1BonMrLRZdrs03qO9wn9CPjkeNpajhqAyTmQR96T5GYwYMNdX/d
 DKNyPYsSAOa1iqWsQw/36MSU/kkAbVebwrHVcMFybXpRx07nqzakW0cXEhgWhC6Az/EWxVUPP
 PyZwAlh0RaqZ2LkJY1e25guF2zJS1DaJFu2chWV+mU7mO6HOOvjh/ZhzDC5JL3jXsJaU/TsXU
 tAGGvLpHf9frWDvLgVcQTrWwMWnFJ1LUnikOZ5ntK703ZpjD+GYyFAnKIp5FlVwe8RmO/2RCv
 zIxSxUW4OJfNA4Kxglfp2nSK98mWsSeEZNFtv8FYVdR1aoIqmIc4HDPEkugU4fcpZtN+Bnmow
 vicq8F6yJq6Lot6TOoYlFTugXdV+d7oJTr9hUWmVzInc61+vr236M6Yts1sLFpxibX+dSld6d
 l0wKxVuYdTE/6yzElnQ5fFDtFkz8f9JZJYQ02ohtvtv/iwuRA9Zt50lYMxCPQBqI96B41T891
 adBa0Yrb3JImIDpns5FzfOyo6l3Jp20VT6OOPCaNX4Wjs90EoOlzLuxhygLBNax6WNdQfLeRQ
 y82IEnoRgT50Hnge4H5ObWLBzGaVlu6BYNI1FwKJNG/PrsBtpPrlqtMu63h33VVKW08wI2J69
 o2gxQ8wWsS5GPfkdjzHFzv6ZDi8DfUep4uadrBUgplW1srrcg566fEcMKvWdmDcN+k5HUWLZs
 dLzbYv/rIaoi1qPMd1MEyPk2eqSXpzEerbgerdDHg/KS+owh/cxVYTilChYMecXOD3H+WyNg5
 x5Glvg==
X-Spam-Score: -0.7 (/)
X-Debbugs-Envelope-To: 62239
Cc: 62239 <at> debbugs.gnu.org
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.7 (-)

--=-=-=
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable

H.-J. Heitl=C3=A4nder <Heiner.Heitlaender@HIDDEN> writes:

> 1) enter epub <C-x D> .../test.epub <ENTER>
>
> 2) switch to edit In DocView(?) <C-c C-c>
>
> 3) open file ...4.html <Enter>
>
> 4) change a line (for instance " " =3D> " ")
>
> 5) save file <C-x C-f>
>
> 6) Symptom: minibuffer display "Wrong Type Argument: stringp, nil"

When this error happens, is the epub opened in archive-mode or
doc-view-mode?

When in doc-view-mode I get a different error:

| Debugger entered--Lisp error: (void-variable archive-nil-write-file-membe=
r)
|   (symbol-value archive-nil-write-file-member)
|   (archive-*-write-file-member archive archive-subfile-mode (symbol-value=
 writer))
|   (if (fboundp writer) (funcall writer archive archive-subfile-mode) (arc=
hive-*-write-file-member archive archive-subfile-mode (symbol-value writer)=
))
|   (let ((writer (save-current-buffer (set-buffer archive-superior-buffer)=
 (archive-name "write-file-member"))) (archive (save-current-buffer (set-bu=
ffer archive-superior-buffer) (archive-maybe-copy (buffer-file-name))))) (i=
f (fboundp writer) (funcall writer archive archive-subfile-mode) (archive-*=
-write-file-member archive archive-subfile-mode (symbol-value writer))) (se=
t-buffer-modified-p nil) (message "Updating archive...done"))
|   (save-restriction (message "Updating archive...") (widen) (let ((writer=
 (save-current-buffer (set-buffer archive-superior-buffer) (archive-name "w=
rite-file-member"))) (archive (save-current-buffer (set-buffer archive-supe=
rior-buffer) (archive-maybe-copy (buffer-file-name))))) (if (fboundp writer=
) (funcall writer archive archive-subfile-mode) (archive-*-write-file-membe=
r archive archive-subfile-mode (symbol-value writer))) (set-buffer-modified=
-p nil) (message "Updating archive...done")) (set-buffer archive-superior-b=
uffer) (if (not archive-remote) (revert-buffer) (archive-maybe-update nil)))
|   (save-excursion (save-restriction (message "Updating archive...") (wide=
n) (let ((writer (save-current-buffer (set-buffer archive-superior-buffer) =
(archive-name "write-file-member"))) (archive (save-current-buffer (set-buf=
fer archive-superior-buffer) (archive-maybe-copy (buffer-file-name))))) (if=
 (fboundp writer) (funcall writer archive archive-subfile-mode) (archive-*-=
write-file-member archive archive-subfile-mode (symbol-value writer))) (set=
-buffer-modified-p nil) (message "Updating archive...done")) (set-buffer ar=
chive-superior-buffer) (if (not archive-remote) (revert-buffer) (archive-ma=
ybe-update nil))))
|   (archive-write-file-member)
|   (run-hook-with-args-until-success archive-write-file-member)
|   (basic-save-buffer nil)
|   (save-buffer)

When I hit C-c C-c to leave doc-view-mode and return to the archive view,
I get an error like you posted.

doc-view-mode doesn't remove its installed advice on
`buffer-revert-function' when hitting C-c C-c, and this simple fix seems
to help to avoid the error above (could you maybe try that please?):


--=-=-=
Content-Type: text/x-diff
Content-Disposition: attachment; filename=62239.patch

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index b14655fb274..00240ebf08d 100644
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -2204,7 +2204,9 @@ doc-view-mode
     (add-hook 'change-major-mode-hook
 	      (lambda ()
 		(doc-view-kill-proc)
-		(remove-overlays (point-min) (point-max) 'doc-view t))
+		(remove-overlays (point-min) (point-max) 'doc-view t)
+                (remove-function (local 'revert-buffer-function)
+                                 #'doc-view--revert-buffer))
 	      nil t)
     (add-hook 'clone-indirect-buffer-hook #'doc-view-clone-buffer-hook nil t)
     (add-hook 'kill-buffer-hook #'doc-view-kill-proc nil t)

--=-=-=
Content-Type: text/plain


> 10 Directory buffer display in basic mode(?) (mode-line starts with "U:%%-
> emac...)

Is this the dired buffer or the buffer showing the archive contents?
Does the patch above help with this problem (assuming it is caused by
the error you got)?


TIA,

Michael.

--=-=-=--




Information forwarded to bug-gnu-emacs@HIDDEN:
bug#62239; Package emacs. Full text available.

Message received at submit <at> debbugs.gnu.org:


Received: (at submit) by debbugs.gnu.org; 17 Mar 2023 10:13:32 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Fri Mar 17 06:13:32 2023
Received: from localhost ([127.0.0.1]:43734 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1pd75V-00025O-U2
	for submit <at> debbugs.gnu.org; Fri, 17 Mar 2023 06:13:32 -0400
Received: from lists.gnu.org ([209.51.188.17]:51252)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <Heiner.Heitlaender@HIDDEN>) id 1pd5ys-0000IK-Fh
 for submit <at> debbugs.gnu.org; Fri, 17 Mar 2023 05:02:36 -0400
Received: from eggs.gnu.org ([2001:470:142:3::10])
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <Heiner.Heitlaender@HIDDEN>)
 id 1pd5ys-0004P4-96
 for bug-gnu-emacs@HIDDEN; Fri, 17 Mar 2023 05:02:34 -0400
Received: from mout01.posteo.de ([185.67.36.65])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <Heiner.Heitlaender@HIDDEN>)
 id 1pd5yn-0003wZ-In
 for bug-gnu-emacs@HIDDEN; Fri, 17 Mar 2023 05:02:34 -0400
Received: from submission (posteo.de [185.67.36.169]) 
 by mout01.posteo.de (Postfix) with ESMTPS id 22D5C240370
 for <bug-gnu-emacs@HIDDEN>; Fri, 17 Mar 2023 10:02:18 +0100 (CET)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=posteo.de; s=2017;
 t=1679043738; bh=k2LlI0Nt5f1SFTaxBk7J1skfbggTAousaSH/06Cmr5k=;
 h=Date:To:Subject:From:From;
 b=kh7N4RnAdnT/Fa93f2twVO8VJWAyZ9mmkPKNXyD33Fo2XJEJy3veUv1En0m+fbP1w
 Vo66wEK0TGICzd/Ffw3h3HCn9KCodxdLWmTC6zeWWcTnrueR595Qv5BPWK69NeiXqt
 CYH2iVngxC2pfYo/LgbFpaVArRI4g7vTlnKzUKs7Zmq1xKA7JWHXQbl4+GMtNXsNz0
 Nlz1D9cgt/QDOPcQjjpthsMyEham06+WwC+JHmpWfdGh9VVJNTzDI3j3iCE5h8WIcL
 cnsii3RrX7M/heR6F9a0K6eXaMUi1H7XxwEYsgE3faDtXMqZzaGok7t1J8OetVQGvE
 dC+R0vqeapWZw==
Received: from customer (localhost [127.0.0.1])
 by submission (posteo.de) with ESMTPSA id 4PdJ6d2QyCz6tnw
 for <bug-gnu-emacs@HIDDEN>; Fri, 17 Mar 2023 10:02:17 +0100 (CET)
Content-Type: multipart/alternative;
 boundary="------------lsyl3QpuvMpQCIPCVWLkFgCy"
Message-ID: <6445c1ab-07e5-1473-c4a0-9e4f21f4eb6d@HIDDEN>
Date: Fri, 17 Mar 2023 09:02:16 +0000
MIME-Version: 1.0
To: bug-gnu-emacs@HIDDEN
Subject: 30.0.50; emacs 30.5.0 editing epub encoding system
Content-Language: de-DE
From: =?UTF-8?B?SC4tSi4gSGVpdGzDpG5kZXI=?= <Heiner.Heitlaender@HIDDEN>
Received-SPF: pass client-ip=185.67.36.65;
 envelope-from=Heiner.Heitlaender@HIDDEN; helo=mout01.posteo.de
X-Spam_score_int: -43
X-Spam_score: -4.4
X-Spam_bar: ----
X-Spam_report: (-4.4 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
 DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1,
 HTML_FONT_FACE_BAD=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_MED=-2.3,
 RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_NONE=0.001,
 SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: -1.3 (-)
X-Debbugs-Envelope-To: submit
X-Mailman-Approved-At: Fri, 17 Mar 2023 06:13:28 -0400
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -2.3 (--)

This is a multi-part message in MIME format.
--------------lsyl3QpuvMpQCIPCVWLkFgCy
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit


Hi there

emacs seems to be losing the encoding system when editing and saving an 
epub file.

If needed I can provide a test epub file (ca. 250KB)

TIA

Heiner


test case 1)


Start <emacs -Q>


1) enter epub <C-x D> .../test.epub <ENTER>


2) switch to edit In DocView(?) <C-c C-c>


3) open file ...4.html <Enter>


4) change a line (for instance " " => " ")


5) save file <C-x C-f>


6) Symptom: minibuffer display "Wrong Type Argument: stringp, nil"


7) message Buffer

<snip>

Type C-c C-c to toggle between editing or viewing the document.

Parsing archive file...done.

Type C-c C-c to toggle between editing or viewing the document.

Saving file /home/uuu/CaLib/Author/test (6551)/test - 
author.epub:OEBPS/_public_vhost_g_gutenberg_html_files_3300_3300-h_3300-h-4.htm.html...

Updating archive...done

apply: Wrong type argument: stringp, nil

</snip>


test case 2)


start emacs (with custom init.el file)


1) <M-x load-file RET arc-mode.el>

<M-x load-file RET files.el>

<M-x load-file RET docview.el>

2) zoom to test file <C-x D RET> => /test

dir entry test

<snip>

drwxr-xr-x 2 user ugrp 4096 17. Mär 08:58 .

drwxr-xr-x 3 user ugrp 4096 17. Mär 09:06 ..

-rw-r--r-- 1 user ugrp 58207 17. Mär 08:06 cover.jpg

-rw-r--r-- 1 user ugrp 1237 17. Mär 08:06 metadata.opf

-rw-r--r-- 1 user ugrp 234869 17. Mär 08:58 test - Adam Smith.epub

</snip>


3) open test - Adam Smith.epub


4) minibuffer: Type C-c C-c to toggle between editing or viewing the 
document.

<C-c C-c>


5) open file <... 4.html RET>


6) change file (for instance " " => " ">


7) save file <C-x C-s>


8) backtrace in Appendix


Symptoms:

9) buffers are losing the encoding system (mode-line starts with "=:--- 
test..."


10 Directory buffer display in basic mode(?) (mode-line starts with 
"U:%%- emac...)

<snip>

-rw-r--r-- 1 user ugrp 250080 1. Jun 2022 reset-W10-Admin-PW.odt

-rw-r--r-- 1 user ugrp 954390 17. Mär 08:03 test1.epub

-rw-r--r-- 1 user ugrp 954390 17. Mär 07:55 test.epub

</snip>



Appendix: backtrace

<snip>

Debugger entered--Lisp error: (wrong-type-argument stringp nil)

write-region(nil nil nil)

(if (equal buffer-file-name doc-view--buffer-file-name) nil 
(doc-view-make-safe-dir doc-view-cache-directory) (write-region nil nil 
doc-view--buffer-file-name))

(let ((revert-buffer-preserve-modes t)) (apply orig-fun args) (if (equal 
buffer-file-name doc-view--buffer-file-name) nil (doc-view-make-safe-dir 
doc-view-cache-directory) (write-region nil nil 
doc-view--buffer-file-name)))

(closure ((args t t) (orig-fun . #f(compiled-function (&rest args) 
#<bytecode -0x1d1afa23a289a2b6>)) revert-buffer-preserve-modes) nil (let 
((revert-buffer-preserve-modes t)) (apply orig-fun args) (if (equal 
buffer-file-name doc-view--buffer-file-name) nil (doc-view-make-safe-dir 
doc-view-cache-directory) (write-region nil nil 
doc-view--buffer-file-name))))()

funcall((closure ((args t t) (orig-fun . #f(compiled-function (&rest 
args) #<bytecode -0x1d1afa23a289a2b6>)) revert-buffer-preserve-modes) 
nil (let ((revert-buffer-preserve-modes t)) (apply orig-fun args) (if 
(equal buffer-file-name doc-view--buffer-file-name) nil 
(doc-view-make-safe-dir doc-view-cache-directory) (write-region nil nil 
doc-view--buffer-file-name)))))

(if (and (eq 'pdf doc-view-doc-type) (executable-find "pdfinfo")) (if (= 
0 (call-process "pdfinfo" nil nil nil doc-view--buffer-file-name)) 
(funcall --cl-revert--) (if (called-interactively-p 'interactive) (progn 
(message "Can't revert right now because the file is corrupt...")))) 
(funcall --cl-revert--))

(let* ((--cl-revert-- #'(lambda nil (let ((revert-buffer-preserve-modes 
t)) (apply orig-fun args) (if (equal buffer-file-name 
doc-view--buffer-file-name) nil (doc-view-make-safe-dir 
doc-view-cache-directory) (write-region nil nil 
doc-view--buffer-file-name)))))) (if (and (eq 'pdf doc-view-doc-type) 
(executable-find "pdfinfo")) (if (= 0 (call-process "pdfinfo" nil nil 
nil doc-view--buffer-file-name)) (funcall --cl-revert--) (if 
(called-interactively-p 'interactive) (progn (message "Can't revert 
right now because the file is corrupt...")))) (funcall --cl-revert--)))

doc-view--revert-buffer(#f(compiled-function (&rest args) #<bytecode 
-0x1d1afa23a289a2b6>) t t)

apply(doc-view--revert-buffer #f(compiled-function (&rest args) 
#<bytecode -0x1d1afa23a289a2b6>) (t t))

#f(advice doc-view--revert-buffer :around #f(compiled-function (&rest 
args) #<bytecode -0x1d1afa23a289a2b6>))(t t)

apply(#f(advice doc-view--revert-buffer :around #f(compiled-function 
(&rest args) #<bytecode -0x1d1afa23a289a2b6>)) t t nil)

(let ((coding-system-for-read 'no-conversion)) (apply orig-fun t t (cdr 
(cdr args))))

(let ((no (archive-get-lineno))) (setq archive-files nil) (let 
((coding-system-for-read 'no-conversion)) (apply orig-fun t t (cdr (cdr 
args)))) (archive-mode) (goto-char archive-file-list-start) 
(archive-next-line no))

archive--mode-revert(#f(advice doc-view--revert-buffer :around 
#f(compiled-function (&rest args) #<bytecode -0x1d1afa23a289a2b6>)) nil nil)

apply(archive--mode-revert #f(advice doc-view--revert-buffer :around 
#f(compiled-function (&rest args) #<bytecode -0x1d1afa23a289a2b6>)) (nil 
nil))

#f(advice archive--mode-revert :around #f(advice doc-view--revert-buffer 
:around #f(compiled-function (&rest args) #<bytecode 
-0x1d1afa23a289a2b6>)))(nil nil)

funcall(#f(advice archive--mode-revert :around #f(advice 
doc-view--revert-buffer :around #f(compiled-function (&rest args) 
#<bytecode -0x1d1afa23a289a2b6>))) nil nil)

(let ((revert-buffer-in-progress-p t) (revert-buffer-preserve-modes 
preserve-modes) (state (and (boundp 'read-only-mode--state) (list 
read-only-mode--state)))) (funcall (or revert-buffer-function 
#'revert-buffer--default) ignore-auto noconfirm) (if state (progn (setq 
buffer-read-only (car state)) (set (make-local-variable 
'read-only-mode--state) (car state)))))

revert-buffer()

(if (not archive-remote) (revert-buffer) (archive-maybe-update nil))

(save-restriction (message "Updating archive...") (widen) (let ((writer 
(save-current-buffer (set-buffer archive-superior-buffer) (archive-name 
"write-file-member"))) (archive (save-current-buffer (set-buffer 
archive-superior-buffer) (archive-maybe-copy (buffer-file-name))))) (if 
(fboundp writer) (funcall writer archive archive-subfile-mode) 
(archive-*-write-file-member archive archive-subfile-mode (symbol-value 
writer))) (set-buffer-modified-p nil) (message "Updating 
archive...done")) (set-buffer archive-superior-buffer) (if (not 
archive-remote) (revert-buffer) (archive-maybe-update nil)))

(save-excursion (save-restriction (message "Updating archive...") 
(widen) (let ((writer (save-current-buffer (set-buffer 
archive-superior-buffer) (archive-name "write-file-member"))) (archive 
(save-current-buffer (set-buffer archive-superior-buffer) 
(archive-maybe-copy (buffer-file-name))))) (if (fboundp writer) (funcall 
writer archive archive-subfile-mode) (archive-*-write-file-member 
archive archive-subfile-mode (symbol-value writer))) 
(set-buffer-modified-p nil) (message "Updating archive...done")) 
(set-buffer archive-superior-buffer) (if (not archive-remote) 
(revert-buffer) (archive-maybe-update nil))))

archive-write-file-member()

run-hook-with-args-until-success(archive-write-file-member)

(or (run-hook-with-args-until-success 'local-write-file-hooks) 
(run-hook-with-args-until-success 'write-file-functions) (let ((dir 
(file-name-directory (expand-file-name buffer-file-name)))) (if 
(file-exists-p dir) nil (if (y-or-n-p (format-message "Directory `%s' 
does not exist; create? " dir)) (make-directory dir t) (error 
"Canceled"))) (setq setmodes (basic-save-buffer-1))))

(if (run-hook-with-args-until-success 'write-contents-functions) nil (or 
buffer-file-name (let ((filename (expand-file-name (read-file-name "File 
to save in: " nil (expand-file-name ...))))) (if (file-exists-p 
filename) (if (file-directory-p filename) (error "%s is a directory" 
filename) (if (y-or-n-p (format-message "File `%s' exists; overwrite? " 
filename)) nil (error "Canceled")))) (set-visited-file-name filename))) 
(vc-before-save) (or (run-hook-with-args-until-success 
'local-write-file-hooks) (run-hook-with-args-until-success 
'write-file-functions) (let ((dir (file-name-directory (expand-file-name 
buffer-file-name)))) (if (file-exists-p dir) nil (if (y-or-n-p 
(format-message "Directory `%s' does not exist; create? " dir)) 
(make-directory dir t) (error "Canceled"))) (setq setmodes 
(basic-save-buffer-1)))))

(save-restriction (widen) (save-excursion (and (> (point-max) 
(point-min)) (not find-file-literally) (null buffer-read-only) (/= 
(char-after (1- (point-max))) 10) (not (and (eq selective-display t) (= 
(char-after (1- ...)) 13))) (or (eq require-final-newline t) (eq 
require-final-newline 'visit-save) (and require-final-newline (y-or-n-p 
(format "Buffer %s does not end in newline. Add one? " (buffer-name))))) 
(save-excursion (goto-char (point-max)) (insert 10)))) (condition-case 
err (run-hooks 'before-save-hook) ((debug error) (message "Before-save 
hook error: %S" err) nil)) (if (run-hook-with-args-until-success 
'write-contents-functions) nil (or buffer-file-name (let ((filename 
(expand-file-name (read-file-name "File to save in: " nil ...)))) (if 
(file-exists-p filename) (if (file-directory-p filename) (error "%s is a 
directory" filename) (if (y-or-n-p ...) nil (error "Canceled")))) 
(set-visited-file-name filename))) (vc-before-save) (or 
(run-hook-with-args-until-success 'local-write-file-hooks) 
(run-hook-with-args-until-success 'write-file-functions) (let ((dir 
(file-name-directory (expand-file-name buffer-file-name)))) (if 
(file-exists-p dir) nil (if (y-or-n-p (format-message "Directory `%s' 
does not exist; create? " dir)) (make-directory dir t) (error 
"Canceled"))) (setq setmodes (basic-save-buffer-1))))) (if 
buffer-file-name (progn (if save-buffer-coding-system (setq 
save-buffer-coding-system last-coding-system-used) (setq 
buffer-file-coding-system last-coding-system-used)) (setq 
buffer-file-number (file-attribute-file-identifier (file-attributes 
buffer-file-name))) (if setmodes (condition-case nil (progn (if 
(condition-case err ... ...) nil (set-file-extended-attributes 
buffer-file-name ...))) (error nil))) (vc-after-save))) 
(delete-auto-save-file-if-necessary recent-save))

(let ((recent-save (recent-auto-save-p)) setmodes) (or (null 
buffer-file-name) (verify-visited-file-modtime (current-buffer)) (not 
(file-exists-p buffer-file-name)) (yes-or-no-p (format "%s has changed 
since visited or saved. Save anywa..." (file-name-nondirectory 
buffer-file-name))) (user-error "Save not confirmed")) (save-restriction 
(widen) (save-excursion (and (> (point-max) (point-min)) (not 
find-file-literally) (null buffer-read-only) (/= (char-after (1- 
(point-max))) 10) (not (and (eq selective-display t) (= (char-after ...) 
13))) (or (eq require-final-newline t) (eq require-final-newline 
'visit-save) (and require-final-newline (y-or-n-p (format "Buffer %s 
does not end in newline. Add one? " ...)))) (save-excursion (goto-char 
(point-max)) (insert 10)))) (condition-case err (run-hooks 
'before-save-hook) ((debug error) (message "Before-save hook error: %S" 
err) nil)) (if (run-hook-with-args-until-success 
'write-contents-functions) nil (or buffer-file-name (let ((filename 
(expand-file-name ...))) (if (file-exists-p filename) (if 
(file-directory-p filename) (error "%s is a directory" filename) (if ... 
nil ...))) (set-visited-file-name filename))) (vc-before-save) (or 
(run-hook-with-args-until-success 'local-write-file-hooks) 
(run-hook-with-args-until-success 'write-file-functions) (let ((dir 
(file-name-directory ...))) (if (file-exists-p dir) nil (if (y-or-n-p 
...) (make-directory dir t) (error "Canceled"))) (setq setmodes 
(basic-save-buffer-1))))) (if buffer-file-name (progn (if 
save-buffer-coding-system (setq save-buffer-coding-system 
last-coding-system-used) (setq buffer-file-coding-system 
last-coding-system-used)) (setq buffer-file-number 
(file-attribute-file-identifier (file-attributes buffer-file-name))) (if 
setmodes (condition-case nil (progn (if ... nil ...)) (error nil))) 
(vc-after-save))) (delete-auto-save-file-if-necessary recent-save)) 
(run-hooks 'after-save-hook))

(if (or (buffer-modified-p) (and buffer-file-name (not (file-exists-p 
buffer-file-name)))) (let ((recent-save (recent-auto-save-p)) setmodes) 
(or (null buffer-file-name) (verify-visited-file-modtime 
(current-buffer)) (not (file-exists-p buffer-file-name)) (yes-or-no-p 
(format "%s has changed since visited or saved. Save anywa..." 
(file-name-nondirectory buffer-file-name))) (user-error "Save not 
confirmed")) (save-restriction (widen) (save-excursion (and (> 
(point-max) (point-min)) (not find-file-literally) (null 
buffer-read-only) (/= (char-after (1- ...)) 10) (not (and (eq 
selective-display t) (= ... 13))) (or (eq require-final-newline t) (eq 
require-final-newline 'visit-save) (and require-final-newline (y-or-n-p 
...))) (save-excursion (goto-char (point-max)) (insert 10)))) 
(condition-case err (run-hooks 'before-save-hook) ((debug error) 
(message "Before-save hook error: %S" err) nil)) (if 
(run-hook-with-args-until-success 'write-contents-functions) nil (or 
buffer-file-name (let ((filename ...)) (if (file-exists-p filename) (if 
... ... ...)) (set-visited-file-name filename))) (vc-before-save) (or 
(run-hook-with-args-until-success 'local-write-file-hooks) 
(run-hook-with-args-until-success 'write-file-functions) (let ((dir 
...)) (if (file-exists-p dir) nil (if ... ... ...)) (setq setmodes 
(basic-save-buffer-1))))) (if buffer-file-name (progn (if 
save-buffer-coding-system (setq save-buffer-coding-system 
last-coding-system-used) (setq buffer-file-coding-system 
last-coding-system-used)) (setq buffer-file-number 
(file-attribute-file-identifier (file-attributes buffer-file-name))) (if 
setmodes (condition-case nil (progn ...) (error nil))) (vc-after-save))) 
(delete-auto-save-file-if-necessary recent-save)) (run-hooks 
'after-save-hook)) (or noninteractive (not called-interactively) 
(files--message "(No changes need to be saved)")))

(save-current-buffer (if (buffer-base-buffer) (set-buffer 
(buffer-base-buffer))) (if (or (buffer-modified-p) (and buffer-file-name 
(not (file-exists-p buffer-file-name)))) (let ((recent-save 
(recent-auto-save-p)) setmodes) (or (null buffer-file-name) 
(verify-visited-file-modtime (current-buffer)) (not (file-exists-p 
buffer-file-name)) (yes-or-no-p (format "%s has changed since visited or 
saved. Save anywa..." (file-name-nondirectory buffer-file-name))) 
(user-error "Save not confirmed")) (save-restriction (widen) 
(save-excursion (and (> (point-max) (point-min)) (not 
find-file-literally) (null buffer-read-only) (/= (char-after ...) 10) 
(not (and ... ...)) (or (eq require-final-newline t) (eq 
require-final-newline ...) (and require-final-newline ...)) 
(save-excursion (goto-char ...) (insert 10)))) (condition-case err 
(run-hooks 'before-save-hook) ((debug error) (message "Before-save hook 
error: %S" err) nil)) (if (run-hook-with-args-until-success 
'write-contents-functions) nil (or buffer-file-name (let (...) (if ... 
...) (set-visited-file-name filename))) (vc-before-save) (or 
(run-hook-with-args-until-success 'local-write-file-hooks) 
(run-hook-with-args-until-success 'write-file-functions) (let (...) (if 
... nil ...) (setq setmodes ...)))) (if buffer-file-name (progn (if 
save-buffer-coding-system (setq save-buffer-coding-system 
last-coding-system-used) (setq buffer-file-coding-system 
last-coding-system-used)) (setq buffer-file-number 
(file-attribute-file-identifier ...)) (if setmodes (condition-case nil 
... ...)) (vc-after-save))) (delete-auto-save-file-if-necessary 
recent-save)) (run-hooks 'after-save-hook)) (or noninteractive (not 
called-interactively) (files--message "(No changes need to be saved)"))))

basic-save-buffer(t)

(let ((modp (buffer-modified-p)) (make-backup-files (or (and 
make-backup-files (not (eq arg 0))) (memq arg '(16 64))))) (and modp 
(memq arg '(16 64)) (setq buffer-backed-up nil)) (if (and modp 
(buffer-file-name) (not noninteractive) (not save-silently)) (message 
"Saving file %s..." (buffer-file-name))) (basic-save-buffer 
(called-interactively-p 'any)) (and modp (memq arg '(4 64)) (setq 
buffer-backed-up nil)))

save-buffer(1)

funcall-interactively(save-buffer 1)

command-execute(save-buffer)


</snip>








In GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version
3.24.36, cairo version 1.16.0) of 2023-03-02 built on fafnir
Repository revision: a798a29f7519244b47ffc3035fcd8bf7bafea4d5
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12101007
System Description: Debian GNU/Linux bookworm/sid

Configured using:
'configure --with-json=ifavailable --with-modules --with-harfbuzz
--with-compress-install --with-threads --with-included-regex
--with-zlib --with-cairo --without-rsvg --without-sound
--without-imagemagick --without-toolkit-scroll-bars --without-gpm
--without-dbus --without-pop --with-mailutils --without-gsettings
--with-native-compilation --with-gnutls=ifavailable'

Configured features:
ACL CAIRO FREETYPE GIF GLIB GMP GNUTLS HARFBUZZ JPEG JSON LCMS2 LIBOTF
LIBSELINUX LIBSYSTEMD LIBXML2 M17N_FLT MODULES NATIVE_COMP NOTIFY
INOTIFY PDUMPER PNG SECCOMP THREADS TIFF WEBP X11 XDBE XIM XINPUT2 XPM
GTK3 ZLIB

Important settings:
value of $LC_ALL: de_DE.UTF-8
value of $LC_MONETARY: de_DE.UTF-8
value of $LC_NUMERIC: de_DE.UTF-8
value of $LC_TIME: de_DE.UTF-8
value of $LANG: de_DE.UTF-8
value of $XMODIFIERS: @im=ibus
locale-coding-system: utf-8-unix

Major mode: Lisp Interaction

Minor modes in effect:
tooltip-mode: t
global-eldoc-mode: t
eldoc-mode: t
show-paren-mode: t
electric-indent-mode: t
mouse-wheel-mode: t
tool-bar-mode: t
menu-bar-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
font-lock-mode: t
blink-cursor-mode: t
line-number-mode: t
indent-tabs-mode: t
transient-mark-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t

Load-path shadows:
None found.

Features:
(shadow sort mail-extr emacsbug message mailcap yank-media puny dired
dired-loaddefs rfc822 mml mml-sec password-cache epa derived epg rfc6068
epg-config gnus-util text-property-search mm-decode mm-bodies mm-encode
mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail rfc2047
rfc2045 ietf-drums mm-util mail-prsvr mail-utils time-date cl-loaddefs
comp comp-cstr warnings icons subr-x rx cl-seq cl-macs gv cl-extra
help-mode bytecomp byte-compile cl-lib rmc iso-transl tooltip cconv
eldoc paren electric uniquify ediff-hook vc-hooks lisp-float-type
elisp-mode mwheel term/x-win x-win term/common-win x-dnd tool-bar dnd
fontset image regexp-opt fringe tabulated-list replace newcomment
text-mode lisp-mode prog-mode register page tab-bar menu-bar rfn-eshadow
isearch easymenu timer select scroll-bar mouse jit-lock font-lock syntax
font-core term/tty-colors frame minibuffer nadvice seq simple cl-generic
indonesian philippine cham georgian utf-8-lang misc-lang vietnamese
tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek
romanian slovak czech european ethiopic indian cyrillic chinese
composite emoji-zwj charscript charprop case-table epa-hook
jka-cmpr-hook help abbrev obarray oclosure cl-preloaded button loaddefs
theme-loaddefs faces cus-face macroexp files window text-properties
overlay sha1 md5 base64 format env code-pages mule custom widget keymap
hashtable-print-readable backquote threads inotify lcms2 dynamic-setting
font-render-setting cairo move-toolbar gtk x-toolkit xinput2 x multi-tty
make-network-process native-compile emacs)

Memory information:
((conses 16 76587 8662)
(symbols 48 7136 0)
(strings 32 19323 2067)
(string-bytes 1 574138)
(vectors 16 15417)
(vector-slots 8 319353 13066)
(floats 8 28 54)
(intervals 56 234 0)
(buffers 976 11))

--------------lsyl3QpuvMpQCIPCVWLkFgCy
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: 8bit

<html>
  <head>

    <meta http-equiv="content-type" content="text/html; charset=UTF-8">
  </head>
  <body>
    <br>
    <p>Hi there</p>
    <p>emacs seems to be losing the encoding system when editing and
      saving an epub file. <br>
    </p>
    <p>If needed I can provide a test epub file (ca. 250KB)</p>
    <p>TIA</p>
    <p>Heiner</p>
    <p><br>
    </p>
    <p> </p>
    <p style="line-height: 100%; margin-bottom: 0cm">
      <font face="Courier New, Courier, monospace">test case 1)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">Start &lt;emacs -Q&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">1) enter epub &lt;C-x
        D&gt; .../test.epub &lt;ENTER&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">2) switch to edit In
        DocView(?) &lt;C-c C-c&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">3) open file
        ...4.html &lt;Enter&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">4) change a line
        (for instance " " =&gt; " ")</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">5) save file &lt;C-x
        C-f&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">6) Symptom: minibuffer
        display "Wrong Type Argument: stringp, nil"</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">7) message Buffer</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">&lt;snip&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">Type C-c C-c to
        toggle between editing or viewing the document.</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">Parsing archive
        file...done.</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">Type C-c C-c to
        toggle between editing or viewing the document.</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">Saving file
        /home/uuu/CaLib/Author/test (6551)/test -
author.epub:OEBPS/_public_vhost_g_gutenberg_html_files_3300_3300-h_3300-h-4.htm.html...</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">Updating
        archive...done</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">apply: Wrong type
        argument: stringp, nil</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">&lt;/snip&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">test case 2)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">start emacs (with
        custom init.el file)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">1) &lt;M-x load-file
        RET arc-mode.el&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> &lt;M-x load-file
        RET files.el&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> &lt;M-x load-file
        RET docview.el&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">2) zoom to test file &lt;C-x D RET&gt;
        =&gt; /test</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> dir entry test</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> &lt;snip&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> drwxr-xr-x 2 user
        ugrp 4096 17. Mär 08:58 .</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> drwxr-xr-x 3 user
        ugrp 4096 17. Mär 09:06 ..</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> -rw-r--r-- 1 user
        ugrp 58207 17. Mär 08:06 cover.jpg</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> -rw-r--r-- 1 user
        ugrp 1237 17. Mär 08:06 metadata.opf</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> -rw-r--r-- 1 user
        ugrp 234869 17. Mär 08:58 test - Adam Smith.epub</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> &lt;/snip&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">3) open test - Adam
        Smith.epub</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">4) minibuffer: Type
        C-c C-c to toggle between editing or viewing the document.</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> &lt;C-c C-c&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">5) open file &lt;...
        4.html RET&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">6) change file (for
        instance " " =&gt; " "&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">7) save file &lt;C-x
        C-s&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">8) backtrace in
        Appendix</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">Symptoms:</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">9) buffers are
        losing the encoding system (mode-line starts with "=:---
        test..."</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">10 Directory buffer
        display in basic mode(?) (mode-line starts with "U:%%- emac...)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> &lt;snip&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> -rw-r--r-- 1 user
        ugrp 250080 1. Jun 2022 reset-W10-Admin-PW.odt</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> -rw-r--r-- 1 user
        ugrp 954390 17. Mär 08:03 test1.epub</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> -rw-r--r-- 1 user
        ugrp 954390 17. Mär 07:55 test.epub</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> &lt;/snip&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">Appendix: backtrace</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">&lt;snip&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">Debugger
        entered--Lisp error: (wrong-type-argument stringp nil)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> write-region(nil
        nil nil)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (if (equal
        buffer-file-name doc-view--buffer-file-name) nil
        (doc-view-make-safe-dir doc-view-cache-directory) (write-region
        nil
        nil doc-view--buffer-file-name))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (let
        ((revert-buffer-preserve-modes t)) (apply orig-fun args) (if
        (equal
        buffer-file-name doc-view--buffer-file-name) nil
        (doc-view-make-safe-dir doc-view-cache-directory) (write-region
        nil
        nil doc-view--buffer-file-name)))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (closure ((args t
        t) (orig-fun . #f(compiled-function (&amp;rest args)
        #&lt;bytecode
        -0x1d1afa23a289a2b6&gt;)) revert-buffer-preserve-modes) nil (let
        ((revert-buffer-preserve-modes t)) (apply orig-fun args) (if
        (equal
        buffer-file-name doc-view--buffer-file-name) nil
        (doc-view-make-safe-dir doc-view-cache-directory) (write-region
        nil
        nil doc-view--buffer-file-name))))()</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> funcall((closure
        ((args t t) (orig-fun . #f(compiled-function (&amp;rest args)
        #&lt;bytecode -0x1d1afa23a289a2b6&gt;))
        revert-buffer-preserve-modes)
        nil (let ((revert-buffer-preserve-modes t)) (apply orig-fun
        args) (if
        (equal buffer-file-name doc-view--buffer-file-name) nil
        (doc-view-make-safe-dir doc-view-cache-directory) (write-region
        nil
        nil doc-view--buffer-file-name)))))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (if (and (eq 'pdf
        doc-view-doc-type) (executable-find "pdfinfo")) (if (= 0
        (call-process "pdfinfo" nil nil nil
        doc-view--buffer-file-name)) (funcall --cl-revert--) (if
        (called-interactively-p 'interactive) (progn (message "Can't
        revert right now because the file is corrupt...")))) (funcall
        --cl-revert--))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (let*
        ((--cl-revert-- #'(lambda nil (let
        ((revert-buffer-preserve-modes t))
        (apply orig-fun args) (if (equal buffer-file-name
        doc-view--buffer-file-name) nil (doc-view-make-safe-dir
        doc-view-cache-directory) (write-region nil nil
        doc-view--buffer-file-name)))))) (if (and (eq 'pdf
        doc-view-doc-type)
        (executable-find "pdfinfo")) (if (= 0 (call-process
        "pdfinfo" nil nil nil doc-view--buffer-file-name)) (funcall
        --cl-revert--) (if (called-interactively-p 'interactive) (progn
        (message "Can't revert right now because the file is
        corrupt...")))) (funcall --cl-revert--)))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">
        doc-view--revert-buffer(#f(compiled-function (&amp;rest args)
        #&lt;bytecode -0x1d1afa23a289a2b6&gt;) t t)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> apply(doc-view--revert-buffer
        #f(compiled-function (&amp;rest args)
        #&lt;bytecode -0x1d1afa23a289a2b6&gt;) (t t))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> #f(advice
        doc-view--revert-buffer :around #f(compiled-function (&amp;rest
        args)
        #&lt;bytecode -0x1d1afa23a289a2b6&gt;))(t t)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> apply(#f(advice
        doc-view--revert-buffer :around #f(compiled-function (&amp;rest
        args)
        #&lt;bytecode -0x1d1afa23a289a2b6&gt;)) t t nil)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (let
        ((coding-system-for-read 'no-conversion)) (apply orig-fun t t
        (cdr
        (cdr args))))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (let ((no
        (archive-get-lineno))) (setq archive-files nil) (let
        ((coding-system-for-read 'no-conversion)) (apply orig-fun t t
        (cdr
        (cdr args)))) (archive-mode) (goto-char archive-file-list-start)
        (archive-next-line no))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> archive--mode-revert(#f(advice
        doc-view--revert-buffer :around
        #f(compiled-function (&amp;rest args) #&lt;bytecode
        -0x1d1afa23a289a2b6&gt;)) nil nil)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> apply(archive--mode-revert #f(advice
        doc-view--revert-buffer :around
        #f(compiled-function (&amp;rest args) #&lt;bytecode
        -0x1d1afa23a289a2b6&gt;)) (nil nil))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> #f(advice
        archive--mode-revert :around #f(advice doc-view--revert-buffer
        :around #f(compiled-function (&amp;rest args) #&lt;bytecode
        -0x1d1afa23a289a2b6&gt;)))(nil nil)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> funcall(#f(advice
        archive--mode-revert :around #f(advice doc-view--revert-buffer
        :around #f(compiled-function (&amp;rest args) #&lt;bytecode
        -0x1d1afa23a289a2b6&gt;))) nil nil)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (let
        ((revert-buffer-in-progress-p t) (revert-buffer-preserve-modes
        preserve-modes) (state (and (boundp 'read-only-mode--state)
        (list
        read-only-mode--state)))) (funcall (or revert-buffer-function
        #'revert-buffer--default) ignore-auto noconfirm) (if state
        (progn
        (setq buffer-read-only (car state)) (set (make-local-variable
        'read-only-mode--state) (car state)))))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> revert-buffer()</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (if (not
        archive-remote) (revert-buffer) (archive-maybe-update nil))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (save-restriction
        (message "Updating archive...") (widen) (let ((writer
        (save-current-buffer (set-buffer archive-superior-buffer)
        (archive-name "write-file-member"))) (archive
        (save-current-buffer (set-buffer archive-superior-buffer)
        (archive-maybe-copy (buffer-file-name))))) (if (fboundp writer)
        (funcall writer archive archive-subfile-mode)
        (archive-*-write-file-member archive archive-subfile-mode
        (symbol-value writer))) (set-buffer-modified-p nil) (message
        "Updating archive...done")) (set-buffer
        archive-superior-buffer) (if (not archive-remote)
        (revert-buffer)
        (archive-maybe-update nil)))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (save-excursion
        (save-restriction (message "Updating archive...") (widen)
        (let ((writer (save-current-buffer (set-buffer
        archive-superior-buffer) (archive-name "write-file-member")))
        (archive (save-current-buffer (set-buffer
        archive-superior-buffer)
        (archive-maybe-copy (buffer-file-name))))) (if (fboundp writer)
        (funcall writer archive archive-subfile-mode)
        (archive-*-write-file-member archive archive-subfile-mode
        (symbol-value writer))) (set-buffer-modified-p nil) (message
        "Updating archive...done")) (set-buffer
        archive-superior-buffer) (if (not archive-remote)
        (revert-buffer)
        (archive-maybe-update nil))))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> archive-write-file-member()</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">
        run-hook-with-args-until-success(archive-write-file-member)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (or
        (run-hook-with-args-until-success 'local-write-file-hooks)
        (run-hook-with-args-until-success 'write-file-functions) (let
        ((dir
        (file-name-directory (expand-file-name buffer-file-name)))) (if
        (file-exists-p dir) nil (if (y-or-n-p (format-message "Directory
        `%s' does not exist; create? " dir)) (make-directory dir t)
        (error "Canceled"))) (setq setmodes
        (basic-save-buffer-1))))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (if
        (run-hook-with-args-until-success 'write-contents-functions) nil
        (or
        buffer-file-name (let ((filename (expand-file-name
        (read-file-name
        "File to save in: " nil (expand-file-name ...))))) (if
        (file-exists-p filename) (if (file-directory-p filename) (error
        "%s
        is a directory" filename) (if (y-or-n-p (format-message "File
        `%s' exists; overwrite? " filename)) nil (error "Canceled"))))
        (set-visited-file-name filename))) (vc-before-save) (or
        (run-hook-with-args-until-success 'local-write-file-hooks)
        (run-hook-with-args-until-success 'write-file-functions) (let
        ((dir
        (file-name-directory (expand-file-name buffer-file-name)))) (if
        (file-exists-p dir) nil (if (y-or-n-p (format-message "Directory
        `%s' does not exist; create? " dir)) (make-directory dir t)
        (error "Canceled"))) (setq setmodes
        (basic-save-buffer-1)))))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (save-restriction
        (widen) (save-excursion (and (&gt; (point-max) (point-min)) (not
        find-file-literally) (null buffer-read-only) (/= (char-after (1-
        (point-max))) 10) (not (and (eq selective-display t) (=
        (char-after
        (1- ...)) 13))) (or (eq require-final-newline t) (eq
        require-final-newline 'visit-save) (and require-final-newline
        (y-or-n-p (format "Buffer %s does not end in newline. Add one?
        " (buffer-name))))) (save-excursion (goto-char (point-max))
        (insert 10)))) (condition-case err (run-hooks 'before-save-hook)
        ((debug error) (message "Before-save hook error: %S" err)
        nil)) (if (run-hook-with-args-until-success
        'write-contents-functions) nil (or buffer-file-name (let
        ((filename
        (expand-file-name (read-file-name "File to save in: " nil
        ...)))) (if (file-exists-p filename) (if (file-directory-p
        filename)
        (error "%s is a directory" filename) (if (y-or-n-p ...) nil
        (error "Canceled")))) (set-visited-file-name filename)))
        (vc-before-save) (or (run-hook-with-args-until-success
        'local-write-file-hooks) (run-hook-with-args-until-success
        'write-file-functions) (let ((dir (file-name-directory
        (expand-file-name buffer-file-name)))) (if (file-exists-p dir)
        nil
        (if (y-or-n-p (format-message "Directory `%s' does not exist;
        create? " dir)) (make-directory dir t) (error "Canceled")))
        (setq setmodes (basic-save-buffer-1))))) (if buffer-file-name
        (progn
        (if save-buffer-coding-system (setq save-buffer-coding-system
        last-coding-system-used) (setq buffer-file-coding-system
        last-coding-system-used)) (setq buffer-file-number
        (file-attribute-file-identifier (file-attributes
        buffer-file-name)))
        (if setmodes (condition-case nil (progn (if (condition-case err
        ...
        ...) nil (set-file-extended-attributes buffer-file-name ...)))
        (error
        nil))) (vc-after-save))) (delete-auto-save-file-if-necessary
        recent-save))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (let ((recent-save
        (recent-auto-save-p)) setmodes) (or (null buffer-file-name)
        (verify-visited-file-modtime (current-buffer)) (not
        (file-exists-p
        buffer-file-name)) (yes-or-no-p (format "%s has changed since
        visited or saved. Save anywa..." (file-name-nondirectory
        buffer-file-name))) (user-error "Save not confirmed"))
        (save-restriction (widen) (save-excursion (and (&gt; (point-max)
        (point-min)) (not find-file-literally) (null buffer-read-only)
        (/=
        (char-after (1- (point-max))) 10) (not (and (eq
        selective-display t)
        (= (char-after ...) 13))) (or (eq require-final-newline t) (eq
        require-final-newline 'visit-save) (and require-final-newline
        (y-or-n-p (format "Buffer %s does not end in newline. Add one?
        " ...)))) (save-excursion (goto-char (point-max)) (insert 10))))
        (condition-case err (run-hooks 'before-save-hook) ((debug error)
        (message "Before-save hook error: %S" err) nil)) (if
        (run-hook-with-args-until-success 'write-contents-functions) nil
        (or
        buffer-file-name (let ((filename (expand-file-name ...))) (if
        (file-exists-p filename) (if (file-directory-p filename) (error
        "%s
        is a directory" filename) (if ... nil ...)))
        (set-visited-file-name filename))) (vc-before-save) (or
        (run-hook-with-args-until-success 'local-write-file-hooks)
        (run-hook-with-args-until-success 'write-file-functions) (let
        ((dir
        (file-name-directory ...))) (if (file-exists-p dir) nil (if
        (y-or-n-p
        ...) (make-directory dir t) (error "Canceled"))) (setq
        setmodes (basic-save-buffer-1))))) (if buffer-file-name (progn
        (if
        save-buffer-coding-system (setq save-buffer-coding-system
        last-coding-system-used) (setq buffer-file-coding-system
        last-coding-system-used)) (setq buffer-file-number
        (file-attribute-file-identifier (file-attributes
        buffer-file-name)))
        (if setmodes (condition-case nil (progn (if ... nil ...)) (error
        nil))) (vc-after-save))) (delete-auto-save-file-if-necessary
        recent-save)) (run-hooks 'after-save-hook))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (if (or
        (buffer-modified-p) (and buffer-file-name (not (file-exists-p
        buffer-file-name)))) (let ((recent-save (recent-auto-save-p))
        setmodes) (or (null buffer-file-name)
        (verify-visited-file-modtime
        (current-buffer)) (not (file-exists-p buffer-file-name))
        (yes-or-no-p
        (format "%s has changed since visited or saved. Save anywa..."
        (file-name-nondirectory buffer-file-name))) (user-error "Save
        not confirmed")) (save-restriction (widen) (save-excursion (and
        (&gt; (point-max) (point-min)) (not find-file-literally) (null
        buffer-read-only) (/= (char-after (1- ...)) 10) (not (and (eq
        selective-display t) (= ... 13))) (or (eq require-final-newline
        t)
        (eq require-final-newline 'visit-save) (and
        require-final-newline
        (y-or-n-p ...))) (save-excursion (goto-char (point-max)) (insert
        10)))) (condition-case err (run-hooks 'before-save-hook) ((debug
        error) (message "Before-save hook error: %S" err) nil)) (if
        (run-hook-with-args-until-success 'write-contents-functions) nil
        (or
        buffer-file-name (let ((filename ...)) (if (file-exists-p
        filename)
        (if ... ... ...)) (set-visited-file-name filename)))
        (vc-before-save)
        (or (run-hook-with-args-until-success 'local-write-file-hooks)
        (run-hook-with-args-until-success 'write-file-functions) (let
        ((dir
        ...)) (if (file-exists-p dir) nil (if ... ... ...)) (setq
        setmodes
        (basic-save-buffer-1))))) (if buffer-file-name (progn (if
        save-buffer-coding-system (setq save-buffer-coding-system
        last-coding-system-used) (setq buffer-file-coding-system
        last-coding-system-used)) (setq buffer-file-number
        (file-attribute-file-identifier (file-attributes
        buffer-file-name)))
        (if setmodes (condition-case nil (progn ...) (error nil)))
        (vc-after-save))) (delete-auto-save-file-if-necessary
        recent-save))
        (run-hooks 'after-save-hook)) (or noninteractive (not
        called-interactively) (files--message "(No changes need to be
        saved)")))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (save-current-buffer (if
        (buffer-base-buffer) (set-buffer
        (buffer-base-buffer))) (if (or (buffer-modified-p) (and
        buffer-file-name (not (file-exists-p buffer-file-name)))) (let
        ((recent-save (recent-auto-save-p)) setmodes) (or (null
        buffer-file-name) (verify-visited-file-modtime (current-buffer))
        (not
        (file-exists-p buffer-file-name)) (yes-or-no-p (format "%s has
        changed since visited or saved. Save anywa..."
        (file-name-nondirectory buffer-file-name))) (user-error "Save
        not confirmed")) (save-restriction (widen) (save-excursion (and
        (&gt; (point-max) (point-min)) (not find-file-literally) (null
        buffer-read-only) (/= (char-after ...) 10) (not (and ... ...))
        (or
        (eq require-final-newline t) (eq require-final-newline ...) (and
        require-final-newline ...)) (save-excursion (goto-char ...)
        (insert
        10)))) (condition-case err (run-hooks 'before-save-hook) ((debug
        error) (message "Before-save hook error: %S" err) nil)) (if
        (run-hook-with-args-until-success 'write-contents-functions) nil
        (or
        buffer-file-name (let (...) (if ... ...) (set-visited-file-name
        filename))) (vc-before-save) (or
        (run-hook-with-args-until-success
        'local-write-file-hooks) (run-hook-with-args-until-success
        'write-file-functions) (let (...) (if ... nil ...) (setq
        setmodes
        ...)))) (if buffer-file-name (progn (if
        save-buffer-coding-system
        (setq save-buffer-coding-system last-coding-system-used) (setq
        buffer-file-coding-system last-coding-system-used)) (setq
        buffer-file-number (file-attribute-file-identifier ...)) (if
        setmodes
        (condition-case nil ... ...)) (vc-after-save)))
        (delete-auto-save-file-if-necessary recent-save)) (run-hooks
        'after-save-hook)) (or noninteractive (not called-interactively)
        (files--message "(No changes need to be saved)"))))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> basic-save-buffer(t)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> (let ((modp
        (buffer-modified-p)) (make-backup-files (or (and
        make-backup-files
        (not (eq arg 0))) (memq arg '(16 64))))) (and modp (memq arg
        '(16
        64)) (setq buffer-backed-up nil)) (if (and modp
        (buffer-file-name)
        (not noninteractive) (not save-silently)) (message "Saving file
        %s..." (buffer-file-name))) (basic-save-buffer
        (called-interactively-p 'any)) (and modp (memq arg '(4 64))
        (setq
        buffer-backed-up nil)))</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> save-buffer(1)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> funcall-interactively(save-buffer 1)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"> command-execute(save-buffer)</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace">&lt;/snip&gt;</font></p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p style="line-height: 100%; margin-bottom: 0cm"><font face="Courier
        New, Courier, monospace"><br>
      </font>
    </p>
    <font face="Courier New, Courier, monospace">
    </font>
    <p>
      <style type="text/css"><font face="Courier New, Courier, monospace">p { line-height: 115%; margin-bottom: 0.25cm; background: transparent }</font></style></p>
    <emacs -q=""><c-x d=""><enter><c-c c-c=""><enter><c-x c-f=""><m-x
                  load-file="" ret="" arc-mode.el=""><m-x load-file=""
                    ret="" files.el=""><m-x load-file="" ret=""
                      docview.el=""><c-x d="" ret=""><c-c c-c=""><c-x
                            c-s=""><font face="Courier New, Courier,
                              monospace"><snip><bytecode
                                  -0x1d1afa23a289a2b6=""><bytecode
                                    -0x1d1afa23a289a2b6=""><bytecode
                                      -0x1d1afa23a289a2b6=""><bytecode
                                        -0x1d1afa23a289a2b6=""><bytecode
                                          -0x1d1afa23a289a2b6=""><bytecode
                                            -0x1d1afa23a289a2b6=""><bytecode
                                              -0x1d1afa23a289a2b6=""><bytecode
                                                -0x1d1afa23a289a2b6=""><bytecode
                                                  -0x1d1afa23a289a2b6=""><bytecode
-0x1d1afa23a289a2b6=""><br>
                                                  </bytecode></bytecode></bytecode></bytecode></bytecode></bytecode></bytecode></bytecode></bytecode></bytecode></snip>
                              <br>
                              <br>
                              <br>
                              <br>
                            </font><br>
                            In GNU Emacs 30.0.50 (build 1,
                            x86_64-pc-linux-gnu, GTK+ Version
                            <br>
                            3.24.36, cairo version 1.16.0) of 2023-03-02
                            built on fafnir
                            <br>
                            Repository revision:
                            a798a29f7519244b47ffc3035fcd8bf7bafea4d5
                            <br>
                            Repository branch: master
                            <br>
                            Windowing system distributor 'The X.Org
                            Foundation', version 11.0.12101007
                            <br>
                            System Description: Debian GNU/Linux
                            bookworm/sid
                            <br>
                            <br>
                            Configured using:
                            <br>
                            'configure --with-json=ifavailable
                            --with-modules --with-harfbuzz
                            <br>
                            --with-compress-install --with-threads
                            --with-included-regex
                            <br>
                            --with-zlib --with-cairo --without-rsvg
                            --without-sound
                            <br>
                            --without-imagemagick
                            --without-toolkit-scroll-bars --without-gpm
                            <br>
                            --without-dbus --without-pop
                            --with-mailutils --without-gsettings
                            <br>
                            --with-native-compilation
                            --with-gnutls=ifavailable'
                            <br>
                            <br>
                            Configured features:
                            <br>
                            ACL CAIRO FREETYPE GIF GLIB GMP GNUTLS
                            HARFBUZZ JPEG JSON LCMS2 LIBOTF
                            <br>
                            LIBSELINUX LIBSYSTEMD LIBXML2 M17N_FLT
                            MODULES NATIVE_COMP NOTIFY
                            <br>
                            INOTIFY PDUMPER PNG SECCOMP THREADS TIFF
                            WEBP X11 XDBE XIM XINPUT2 XPM
                            <br>
                            GTK3 ZLIB
                            <br>
                            <br>
                            Important settings:
                            <br>
                            value of $LC_ALL: de_DE.UTF-8
                            <br>
                            value of $LC_MONETARY: de_DE.UTF-8
                            <br>
                            value of $LC_NUMERIC: de_DE.UTF-8
                            <br>
                            value of $LC_TIME: de_DE.UTF-8
                            <br>
                            value of $LANG: de_DE.UTF-8
                            <br>
                            value of $XMODIFIERS: @im=ibus
                            <br>
                            locale-coding-system: utf-8-unix
                            <br>
                            <br>
                            Major mode: Lisp Interaction
                            <br>
                            <br>
                            Minor modes in effect:
                            <br>
                            tooltip-mode: t
                            <br>
                            global-eldoc-mode: t
                            <br>
                            eldoc-mode: t
                            <br>
                            show-paren-mode: t
                            <br>
                            electric-indent-mode: t
                            <br>
                            mouse-wheel-mode: t
                            <br>
                            tool-bar-mode: t
                            <br>
                            menu-bar-mode: t
                            <br>
                            file-name-shadow-mode: t
                            <br>
                            global-font-lock-mode: t
                            <br>
                            font-lock-mode: t
                            <br>
                            blink-cursor-mode: t
                            <br>
                            line-number-mode: t
                            <br>
                            indent-tabs-mode: t
                            <br>
                            transient-mark-mode: t
                            <br>
                            auto-composition-mode: t
                            <br>
                            auto-encryption-mode: t
                            <br>
                            auto-compression-mode: t
                            <br>
                            <br>
                            Load-path shadows:
                            <br>
                            None found.
                            <br>
                            <br>
                            Features:
                            <br>
                            (shadow sort mail-extr emacsbug message
                            mailcap yank-media puny dired
                            <br>
                            dired-loaddefs rfc822 mml mml-sec
                            password-cache epa derived epg rfc6068
                            <br>
                            epg-config gnus-util text-property-search
                            mm-decode mm-bodies mm-encode
                            <br>
                            mail-parse rfc2231 mailabbrev gmm-utils
                            mailheader sendmail rfc2047
                            <br>
                            rfc2045 ietf-drums mm-util mail-prsvr
                            mail-utils time-date cl-loaddefs
                            <br>
                            comp comp-cstr warnings icons subr-x rx
                            cl-seq cl-macs gv cl-extra
                            <br>
                            help-mode bytecomp byte-compile cl-lib rmc
                            iso-transl tooltip cconv
                            <br>
                            eldoc paren electric uniquify ediff-hook
                            vc-hooks lisp-float-type
                            <br>
                            elisp-mode mwheel term/x-win x-win
                            term/common-win x-dnd tool-bar dnd
                            <br>
                            fontset image regexp-opt fringe
                            tabulated-list replace newcomment
                            <br>
                            text-mode lisp-mode prog-mode register page
                            tab-bar menu-bar rfn-eshadow
                            <br>
                            isearch easymenu timer select scroll-bar
                            mouse jit-lock font-lock syntax
                            <br>
                            font-core term/tty-colors frame minibuffer
                            nadvice seq simple cl-generic
                            <br>
                            indonesian philippine cham georgian
                            utf-8-lang misc-lang vietnamese
                            <br>
                            tibetan thai tai-viet lao korean japanese
                            eucjp-ms cp51932 hebrew greek
                            <br>
                            romanian slovak czech european ethiopic
                            indian cyrillic chinese
                            <br>
                            composite emoji-zwj charscript charprop
                            case-table epa-hook
                            <br>
                            jka-cmpr-hook help abbrev obarray oclosure
                            cl-preloaded button loaddefs
                            <br>
                            theme-loaddefs faces cus-face macroexp files
                            window text-properties
                            <br>
                            overlay sha1 md5 base64 format env
                            code-pages mule custom widget keymap
                            <br>
                            hashtable-print-readable backquote threads
                            inotify lcms2 dynamic-setting
                            <br>
                            font-render-setting cairo move-toolbar gtk
                            x-toolkit xinput2 x multi-tty
                            <br>
                            make-network-process native-compile emacs)
                            <br>
                            <br>
                            Memory information:
                            <br>
                            ((conses 16 76587 8662)
                            <br>
                            (symbols 48 7136 0)
                            <br>
                            (strings 32 19323 2067)
                            <br>
                            (string-bytes 1 574138)
                            <br>
                            (vectors 16 15417)
                            <br>
                            (vector-slots 8 319353 13066)
                            <br>
                            (floats 8 28 54)
                            <br>
                            (intervals 56 234 0)
                            <br>
                            (buffers 976 11))
                            <br>
                          </c-x></c-c></c-x></m-x></m-x></m-x></c-x></enter></c-c></enter></c-x></emacs><br>
  </body>
</html>

--------------lsyl3QpuvMpQCIPCVWLkFgCy--




Acknowledgement sent to H.-J. Heitländer <Heiner.Heitlaender@HIDDEN>:
New bug report received and forwarded. Copy sent to bug-gnu-emacs@HIDDEN. Full text available.
Report forwarded to bug-gnu-emacs@HIDDEN:
bug#62239; Package emacs. Full text available.
Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.
Last modified: Tue, 12 Sep 2023 00:15:01 UTC

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