From unknown Wed Jun 18 23:07:33 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#62239 <62239@debbugs.gnu.org> To: bug#62239 <62239@debbugs.gnu.org> Subject: Status: 30.0.50; emacs 30.5.0 editing epub encoding system Reply-To: bug#62239 <62239@debbugs.gnu.org> Date: Thu, 19 Jun 2025 06:07:33 +0000 retitle 62239 30.0.50; emacs 30.5.0 editing epub encoding system reassign 62239 emacs submitter 62239 H.-J. Heitl=C3=A4nder severity 62239 normal tag 62239 patch thanks From debbugs-submit-bounces@debbugs.gnu.org Fri Mar 17 06:13:32 2023 Received: (at submit) by debbugs.gnu.org; 17 Mar 2023 10:13:32 +0000 Received: from localhost ([127.0.0.1]:43734 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pd75V-00025O-U2 for submit@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 ) id 1pd5ys-0000IK-Fh for submit@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 ) id 1pd5ys-0004P4-96 for bug-gnu-emacs@gnu.org; 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 ) id 1pd5yn-0003wZ-In for bug-gnu-emacs@gnu.org; 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 ; 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 ; Fri, 17 Mar 2023 10:02:17 +0100 (CET) Content-Type: multipart/alternative; boundary="------------lsyl3QpuvMpQCIPCVWLkFgCy" Message-ID: <6445c1ab-07e5-1473-c4a0-9e4f21f4eb6d@posteo.de> Date: Fri, 17 Mar 2023 09:02:16 +0000 MIME-Version: 1.0 To: bug-gnu-emacs@gnu.org Subject: 30.0.50; emacs 30.5.0 editing epub encoding system Content-Language: de-DE From: =?UTF-8?B?SC4tSi4gSGVpdGzDpG5kZXI=?= Received-SPF: pass client-ip=185.67.36.65; envelope-from=Heiner.Heitlaender@posteo.de; 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@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" 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 1) enter epub .../test.epub 2) switch to edit In DocView(?) 3) open file ...4.html 4) change a line (for instance " " => " ") 5) save file 6) Symptom: minibuffer display "Wrong Type Argument: stringp, nil" 7) message Buffer 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 test case 2) start emacs (with custom init.el file) 1) 2) zoom to test file => /test dir entry test 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 3) open test - Adam Smith.epub 4) minibuffer: Type C-c C-c to toggle between editing or viewing the document. 5) open file <... 4.html RET> 6) change file (for instance " " => " "> 7) save file 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...) -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 Appendix: backtrace 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) #)) 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) #)) 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) #) t t) apply(doc-view--revert-buffer #f(compiled-function (&rest args) #) (t t)) #f(advice doc-view--revert-buffer :around #f(compiled-function (&rest args) #))(t t) apply(#f(advice doc-view--revert-buffer :around #f(compiled-function (&rest args) #)) 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) #)) nil nil) apply(archive--mode-revert #f(advice doc-view--revert-buffer :around #f(compiled-function (&rest args) #)) (nil nil)) #f(advice archive--mode-revert :around #f(advice doc-view--revert-buffer :around #f(compiled-function (&rest args) #)))(nil nil) funcall(#f(advice archive--mode-revert :around #f(advice doc-view--revert-buffer :around #f(compiled-function (&rest args) #))) 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) 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

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-- From debbugs-submit-bounces@debbugs.gnu.org Fri Mar 17 20:07:00 2023 Received: (at 62239) by debbugs.gnu.org; 18 Mar 2023 00:07:00 +0000 Received: from localhost ([127.0.0.1]:45894 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pdK68-0005kZ-3Q for submit@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 ) id 1pdK65-0005kH-Ms for 62239@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@web.de; 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 To: H.-J. =?utf-8?Q?Heitl=C3=A4nder?= Subject: Re: bug#62239: 30.0.50; emacs 30.5.0 editing epub encoding system In-Reply-To: <6445c1ab-07e5-1473-c4a0-9e4f21f4eb6d@posteo.de> ("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@posteo.de> Date: Sat, 18 Mar 2023 01:06:47 +0100 Message-ID: <87lejudiso.fsf@web.de> 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@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.7 (-) --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable H.-J. Heitl=C3=A4nder writes: > 1) enter epub .../test.epub > > 2) switch to edit In DocView(?) > > 3) open file ...4.html > > 4) change a line (for instance " " =3D> " ") > > 5) save file > > 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. --=-=-=-- From debbugs-submit-bounces@debbugs.gnu.org Mon Mar 27 09:14:07 2023 Received: (at 62239) by debbugs.gnu.org; 27 Mar 2023 13:14:07 +0000 Received: from localhost ([127.0.0.1]:46764 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pgmfm-0005KO-NX for submit@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 ) id 1pgiCq-00034V-7j for 62239@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@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@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@posteo.de> Date: Mon, 27 Mar 2023 08:27:48 +0000 MIME-Version: 1.0 To: 62239@debbugs.gnu.org Content-Language: de-DE From: =?UTF-8?B?SC4tSi4gSGVpdGzDpG5kZXI=?= 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@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" 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-- From debbugs-submit-bounces@debbugs.gnu.org Mon Sep 11 20:13:16 2023 Received: (at control) by debbugs.gnu.org; 12 Sep 2023 00:13:16 +0000 Received: from localhost ([127.0.0.1]:55371 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qfr1o-0006ib-Ic for submit@debbugs.gnu.org; Mon, 11 Sep 2023 20:13:16 -0400 Received: from mail-lj1-x230.google.com ([2a00:1450:4864:20::230]:54425) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1qfr1n-0006iL-1c for control@debbugs.gnu.org; Mon, 11 Sep 2023 20:13:15 -0400 Received: by mail-lj1-x230.google.com with SMTP id 38308e7fff4ca-2bf6b37859eso58190911fa.0 for ; Mon, 11 Sep 2023 17:13:10 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20221208; t=1694477585; x=1695082385; darn=debbugs.gnu.org; h=to:subject:message-id:date:mime-version:from:from:to:cc:subject :date:message-id:reply-to; bh=9TMO67R10aTNxzuKPpAuJuS8i3o3hBGkt4JnNWKgeQA=; b=gnSTatBaxvmVBo1mUx8GI21Obe68FBcUGHrIILJLIs0MxKX3TQaP9FYkohJWLmM/g/ QTzUUfyUaigUQp63aX+DaSSZCDm5jx/HTpFYBk4CVmtF9lsx87yImF0UYHsnjhvADnOw tD87VpNWklYewEkRXNpPPLrUt9prmRKGQBE8gQZPR5FdJ3hcgYrEuqiQZ2eegJpjcMIM yU3Sd2okA1CrjibSREmuj6miQB/SYo4uV65cRF5cqwJHTQUpxwmd2AD6HRyLKBAEmSI4 jtbTjHe04HC47WllXY+7lcuZhPgE5ZCfNr9JvNSbUTKVDEzdinI0ahoMy9gW+MtckIoh fzaA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20230601; t=1694477585; x=1695082385; h=to:subject:message-id:date:mime-version:from:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=9TMO67R10aTNxzuKPpAuJuS8i3o3hBGkt4JnNWKgeQA=; b=RGoFe+blYvMGtQKwqKZnZcH4omG6o/GJZXrIsSGeBzaoPbfb7PoaRC8QpK7r/cvV58 sIKYAf262bpi42LHJZ8owZ5KVHiWA7oFBuh99/bh1sG8eS85bMEJ758Pdt3f8mWZlZ8O ek4umRydPw5Ug1UFjbS6dalzt3znePyUJyAVWQRYhwQsjQ6S6Y5TNzhhECSj/kbUNWpQ NxSqmNAVwi0fW7wxyH66JqBvLUBEvudAwaZ7uxsX21q+Rwlofds+cI6oxinuCXooDTHH usIrwcdcsYpTSMNP97p2GEllDSXihZXYihq5xacIiygmQeN2z8KnF62put3jodVfAPJ7 APbA== X-Gm-Message-State: AOJu0YxHxa7RXAuWD29F92mCG429rvmJKwnoAPoQvjAD4PbTgumf26wP BvB6odnl3YzB+M9/RIxjVZtwovKe5IfY78Zs67m8Rc1kvIY= X-Google-Smtp-Source: AGHT+IH5SHfoYOlDuyS7aRDUolyM2Z9jS5kqUKr9Y3Af42QSpRvH4z1M+zMXsXDVKLyIK6ektSTSXU48+jwx4vWdUGQ= X-Received: by 2002:a05:651c:168b:b0:2bf:6852:9339 with SMTP id bd11-20020a05651c168b00b002bf68529339mr7894369ljb.3.1694477584669; Mon, 11 Sep 2023 17:13:04 -0700 (PDT) Received: from 753933720722 named unknown by gmailapi.google.com with HTTPREST; Mon, 11 Sep 2023 17:13:04 -0700 From: Stefan Kangas MIME-Version: 1.0 Date: Mon, 11 Sep 2023 17:13:04 -0700 Message-ID: Subject: control message for bug #62239 To: control@debbugs.gnu.org Content-Type: text/plain; charset="UTF-8" X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: control X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.0 (-) tags 62239 + patch quit