From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Braun =?UTF-8?Q?G=C3=A1bor?= Newsgroups: gmane.emacs.bugs Subject: bug#52451: 27.1; jka-compr-write-region produces wrong type argument error Date: Sun, 12 Dec 2021 19:53:38 +0100 Message-ID: <2994285.8uZclO0mQ2@gabor> References: <3230961.nYHENnkMsn@gabor> <83ilvtoq2u.fsf@gnu.org> Mime-Version: 1.0 Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="28353"; mail-complaints-to="usenet@ciao.gmane.io" Cc: 52451@debbugs.gnu.org To: Eli Zaretskii Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Sun Dec 12 19:54:13 2021 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1mwTzA-0007Ev-4w for geb-bug-gnu-emacs@m.gmane-mx.org; Sun, 12 Dec 2021 19:54:12 +0100 Original-Received: from localhost ([::1]:37430 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mwTz8-0007rT-IB for geb-bug-gnu-emacs@m.gmane-mx.org; Sun, 12 Dec 2021 13:54:10 -0500 Original-Received: from eggs.gnu.org ([209.51.188.92]:60492) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mwTz0-0007rK-KW for bug-gnu-emacs@gnu.org; Sun, 12 Dec 2021 13:54:02 -0500 Original-Received: from debbugs.gnu.org ([209.51.188.43]:41574) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1mwTz0-00071v-CM for bug-gnu-emacs@gnu.org; Sun, 12 Dec 2021 13:54:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1mwTz0-0004Gt-3I for bug-gnu-emacs@gnu.org; Sun, 12 Dec 2021 13:54:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Braun =?UTF-8?Q?G=C3=A1bor?= Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sun, 12 Dec 2021 18:54:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 52451 X-GNU-PR-Package: emacs Original-Received: via spool by 52451-submit@debbugs.gnu.org id=B52451.163933523516405 (code B ref 52451); Sun, 12 Dec 2021 18:54:02 +0000 Original-Received: (at 52451) by debbugs.gnu.org; 12 Dec 2021 18:53:55 +0000 Original-Received: from localhost ([127.0.0.1]:53120 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mwTys-0004GW-RL for submit@debbugs.gnu.org; Sun, 12 Dec 2021 13:53:55 -0500 Original-Received: from mail-wm1-f47.google.com ([209.85.128.47]:41570) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mwTyr-0004GK-8G for 52451@debbugs.gnu.org; Sun, 12 Dec 2021 13:53:53 -0500 Original-Received: by mail-wm1-f47.google.com with SMTP id az34-20020a05600c602200b0033bf8662572so10301916wmb.0 for <52451@debbugs.gnu.org>; Sun, 12 Dec 2021 10:53:53 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=from:to:cc:subject:date:message-id:in-reply-to:references :mime-version:content-transfer-encoding; bh=fA3dl5SWVfNJfjGVDaFTjmmsEbVxIuNsZiYwgAeqrU0=; b=aXOKKevQM777PTTQtCpxG3Q+fIdGXsvY14f63j8t+mh5xzpNB4BgmbULBOWVJ0qeRj OM5O1b/TltONN0uof/x4tWUtA/F7T2Hy3GWyepF/Ax4Ve4vcdOR68lW8mqVE4/SndD7Y QSd6TvADrq5t8kt8ZWBtilIv4B61xDU+XuKmXtr/rT0UkkUyAlXhibIRkCG5xMsF9maQ UTsD4amG6vxiaMWTmSUuxBvF5aBFKp2Dy9p/vQWS0vtDFahAbGTfs923gNxhmL0nh+ul Ei/DKOCW9U+BrMNwfW6kG63ZIN8Hi7TvjjR8qOiTHWWizuxAj1oxM8+wLUkXBM78CSRi xhwA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:from:to:cc:subject:date:message-id:in-reply-to :references:mime-version:content-transfer-encoding; bh=fA3dl5SWVfNJfjGVDaFTjmmsEbVxIuNsZiYwgAeqrU0=; b=t1VPPWgvzLPMI3rIdEurQeexomrgvrGPUSnn3qJwTRw7SQW/Ndt2O+c8QvroJKPImf J+XlJ5/uzlQAy4lEWkeAsXeuxiiC3E4TPzQ9cLeIe/YQsQ5V5CacTx6eux36EAyN/LO9 f+YUltyVSTPi4JtTICTkGPVn80y8yIPiOIY9CIM0ZoPDM6OBtwcy1URvm6k2p5mM6OC7 W7DnRVKUtctf6Bh1JcF43XmK51Clljy8eqfrTKZ83Bfb3SVlKp1soAKkeTUnkKWgelgy okjXj8NO+fne7LMUdM0Lc4hjckmq5nsfm/pvy5aD3tb5mdVcWwGR6n0T+O87UnK0kCN3 VwRg== X-Gm-Message-State: AOAM531KXm3T2nIfRipZNIix7l4S1CSEj1Vl3zTO8siO3VtHthF/lIR+ w/RiIfKm0m35FI3SpogDHrw= X-Google-Smtp-Source: ABdhPJwVFfC8Y2yG2WZAkKQeioTA5LP049ZizQfNI2vvfBm1XeEFO+JhlfpByx9arVjdPESQFpPQYg== X-Received: by 2002:a7b:c1c9:: with SMTP id a9mr27279815wmj.152.1639335227082; Sun, 12 Dec 2021 10:53:47 -0800 (PST) Original-Received: from gabor.localnet (dslb-092-078-124-054.092.078.pools.vodafone-ip.de. [92.78.124.54]) by smtp.gmail.com with ESMTPSA id u13sm5400111wmq.14.2021.12.12.10.53.46 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Sun, 12 Dec 2021 10:53:46 -0800 (PST) In-Reply-To: <83ilvtoq2u.fsf@gnu.org> X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:222249 Archived-At: Hi Eli, > When will write-region invoke jka-commpr-write-region if it is called > with the first argument a string? OK, here is a recipe. $ echo FOO >test $ gzip test $ emacs -Q --batch -l jka-compr.el --eval '(let ((debug-on-error t)) (find-= file=20 "test.gz") (write-region "foo" nil "foo.gz"))' =20 uncompressing jka-compr.el.gz... uncompressing jka-compr.el.gz...done uncompressing test.gz... uncompressing test.gz...done Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil) -(nil "foo") (=3D (- end start) (buffer-size)) (or (null start) (=3D (- end start) (buffer-size))) (and jka-compr-really-do-compress (or (null start) (=3D (- end start) (bu= ffer- size)))) (if (and jka-compr-really-do-compress (or (null start) (=3D (- end start)= =20 (buffer-size)))) (setq magic nil)) (let* ((filename (expand-file-name file)) (visit-file (if (stringp visit)= =20 (expand-file-name visit) filename)) (info (jka-compr-get-compression-info v= isit- file)) (magic (and info (jka-compr-info-file-magic-bytes info)))) (if (and = jka- compr-really-do-compress (or (null start) (=3D (- end start) (buffer-size))= ))=20 (setq magic nil)) (if (and info (not (and magic (equal (if (stringp start)= =20 (substring start 0 ...) (let* ... ...)) magic)))) (let ((can-append (jka- compr-info-can-append info)) (compress-program (jka-compr-info-compress- program info)) (compress-message (jka-compr-info-compress-message info))=20 (compress-args (jka-compr-info-compress-args info)) (base-name (file-name- nondirectory visit-file)) temp-file temp-buffer (coding-system-used last-co= ding- system-used)) (or compress-program (error "No compression program defined")= )=20 (setq temp-buffer (get-buffer-create " *jka-compr-wr-temp*")) (save-current- buffer (set-buffer temp-buffer) (widen) (erase-buffer)) (if (and append (no= t can- append) (file-exists-p filename)) (let* ((local-copy (file-local-copy filen= ame))=20 (local-file (or local-copy filename))) (setq temp-file local-file)) (setq t= emp-file=20 (jka-compr-make-temp-name))) (and compress-message jka-compr-verbose (messa= ge=20 "%s %s..." compress-message base-name)) (jka-compr-run-real-handler 'write- region (list start end temp-file t 'dont)) (setq coding-system-used last- coding-system-used) (let ((coding-system-for-read 'no-conversion)) (jka-com= pr- call-process compress-program (concat compress-message " " base-name) temp-= file=20 temp-buffer nil compress-args)) (save-current-buffer (set-buffer temp-buffe= r) (let=20 ((coding-system-for-write 'no-conversion)) (jka-compr-run-real-handler 'wri= te- region (list (point-min) (point-max) filename (and append can-append) 'dont= =20 lockname mustbenew)) (erase-buffer))) (delete-file temp-file) (and compress- message jka-compr-verbose (message "%s %s...done" compress-message base- name)) (cond ((eq visit t) (setq buffer-file-name filename) (setq jka-compr- really-do-compress t) (set-visited-file-modtime)) ((stringp visit) (setq bu= ffer- file-name visit) (let ((buffer-file-name filename)) (set-visited-file-modti= me))))=20 (and (or (eq visit t) (eq visit nil) (stringp visit)) (message "Wrote %s"=20 visit-file)) (setq last-coding-system-used coding-system-used) nil) (jka-co= mpr- run-real-handler 'write-region (list start end filename append visit lockna= me=20 mustbenew)))) jka-compr-write-region("foo" nil "/dev/shm/foo.gz" nil nil "/dev/shm/foo.= gz"=20 nil) apply(jka-compr-write-region ("foo" nil "/dev/shm/foo.gz" nil nil "/dev/s= hm/ foo.gz" nil)) (if (and jka-op (not jka-compr-inhibit)) (apply jka-op args) (jka-compr-r= un- real-handler operation args)) (let ((jka-op (get operation 'jka-compr))) (if (and jka-op (not jka-compr- inhibit)) (apply jka-op args) (jka-compr-run-real-handler operation args))) (progn (let ((jka-op (get operation 'jka-compr))) (if (and jka-op (not jk= a- compr-inhibit)) (apply jka-op args) (jka-compr-run-real-handler operation=20 args)))) (unwind-protect (progn (let ((jka-op (get operation 'jka-compr))) (if (an= d=20 jka-op (not jka-compr-inhibit)) (apply jka-op args) (jka-compr-run-real- handler operation args)))) (set-match-data save-match-data-internal=20 'evaporate)) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (le= t=20 ((jka-op (get operation 'jka-compr))) (if (and jka-op (not jka-compr-inhibi= t))=20 (apply jka-op args) (jka-compr-run-real-handler operation args)))) (set-mat= ch- data save-match-data-internal 'evaporate))) jka-compr-handler(write-region "foo" nil "/dev/shm/foo.gz" nil nil "/dev/ shm/foo.gz" nil) write-region("foo" nil "foo.gz") (let ((debug-on-error t)) (find-file "test.gz") (write-region "foo" nil=20 "foo.gz")) eval((let ((debug-on-error t)) (find-file "test.gz") (write-region "foo" = nil=20 "foo.gz")) t) command-line-1(("-l" "jka-compr.el" "--eval" "(let ((debug-on-error t))=20 (find-file \"test.gz\") (w...")) command-line() normal-top-level() Best wishes, G=C3=A1bor