From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Tino Calancha Newsgroups: gmane.emacs.bugs Subject: bug#30285: dired-do-chmod vs. top line of dired Date: Thu, 01 Feb 2018 18:17:43 +0900 Message-ID: <87r2q52hmw.fsf@gmail.com> References: <87mv0wg80c.fsf@jidanni.org> <87efm8snnr.fsf@gmail.com> <83efm8irac.fsf@gnu.org> <87d11sl08v.fsf@gmail.com> <87fu6lwxxu.fsf@mail.linkov.net> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1517476599 22139 195.159.176.226 (1 Feb 2018 09:16:39 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Thu, 1 Feb 2018 09:16:39 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) To: 30285@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Feb 01 10:16:35 2018 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ehAyY-0003wP-Qk for geb-bug-gnu-emacs@m.gmane.org; Thu, 01 Feb 2018 10:16:10 +0100 Original-Received: from localhost ([::1]:44246 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ehB0Z-0002Js-BS for geb-bug-gnu-emacs@m.gmane.org; Thu, 01 Feb 2018 04:18:15 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:53029) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ehB0S-0002Jb-UH for bug-gnu-emacs@gnu.org; Thu, 01 Feb 2018 04:18:09 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ehB0M-0005aL-Og for bug-gnu-emacs@gnu.org; Thu, 01 Feb 2018 04:18:08 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:43911) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1ehB0M-0005aB-K5 for bug-gnu-emacs@gnu.org; Thu, 01 Feb 2018 04:18:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ehB0M-00048g-Ez for bug-gnu-emacs@gnu.org; Thu, 01 Feb 2018 04:18:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Tino Calancha Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 01 Feb 2018 09:18:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 30285 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 30285-submit@debbugs.gnu.org id=B30285.151747667715898 (code B ref 30285); Thu, 01 Feb 2018 09:18:02 +0000 Original-Received: (at 30285) by debbugs.gnu.org; 1 Feb 2018 09:17:57 +0000 Original-Received: from localhost ([127.0.0.1]:51808 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ehB0H-00048L-Jw for submit@debbugs.gnu.org; Thu, 01 Feb 2018 04:17:57 -0500 Original-Received: from mail-pl0-f41.google.com ([209.85.160.41]:33295) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ehB0G-000488-86 for 30285@debbugs.gnu.org; Thu, 01 Feb 2018 04:17:56 -0500 Original-Received: by mail-pl0-f41.google.com with SMTP id t4so3040591plo.0 for <30285@debbugs.gnu.org>; Thu, 01 Feb 2018 01:17:56 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:subject:references:date:in-reply-to:message-id:user-agent :mime-version; bh=CEy+c0sQx2XB1AZ2oKHvpBG4gcVUdOarikS0uW5LLXo=; b=ni+XhaMrKkeeX3IE5zLGxO0OEzCxIVmSUHgyisBgqniGsQuO602nFWICge3VOqSk4s 4eh/vcISms58IGmoZI2lg0YdUMrMzttYgjUcQuPCw3b0wP+eYpPNEC/y4R8jwruhsUpv gPLBs0N/MMdZuO/9fZMETI88xKNG8m35oAGZSNLPUTxYqUnZX5fteoYc/FGBkAhqrxoR X3gW2KiE1PSP4K3Q5QP849iP0omV237OablP1Im7pFtgee7zD66xnTh5g2/BNE0CRK4+ hmgrbTNwdUSfT185cYrXPpZmvSAHyaz4OiroMIV9E6AK1w9pfRtYysYdsSkBMnoYx19F 9Oew== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:subject:references:date:in-reply-to :message-id:user-agent:mime-version; bh=CEy+c0sQx2XB1AZ2oKHvpBG4gcVUdOarikS0uW5LLXo=; b=J3g3DK3oKbEP7Fkel2ktWP0olaQhXZ5WDyWHoGjhRGifz9JkvEeaqAJwFDYpI4/SiC Af62IU4fryJTGAqUleATg82pHXMYjSOyGlDyqCRhzImKgwHMW2Dhc/YXjjuKcllHhj66 9K7J54YIrt+c2dMNgs8Haa5v3ofYt33fQLrpoIbaQJ1TO9HH656C/d9uiOgkRpZNz2OX K4vXJ+eQSNYIvKljFLQ1/O9E7uoAvKZWwJFq4hSgIEytoi1eZOHl8hi9cynCRr/LfGgv Y1tU8FkT7HHFjrNZPtl0+LVPhFW3MRI5R2Nrt/HzI/Q8/c2DI34zVIrGZLgUW8XWygSB Eiwg== X-Gm-Message-State: AKwxytefQ2KJNdO2UPqnJZ9X9TMrRs5eXXqLErWa5/OZqunoNDPmIDBb HzK6+kHDqO6pzxqYGltt4Rqlrw== X-Google-Smtp-Source: AH8x224iHoqCFu+x1PiBYZXcFWBT0hnj14KksM6lTgghIpHmWTp2t6zV9qVBDAtLYhxMUPJinG/L7A== X-Received: by 2002:a17:902:2bc5:: with SMTP id l63-v6mr24284299plb.108.1517476670276; Thu, 01 Feb 2018 01:17:50 -0800 (PST) Original-Received: from calancha-pc (FL1-125-193-170-29.tky.mesh.ad.jp. [125.193.170.29]) by smtp.gmail.com with ESMTPSA id z186sm30761603pgb.70.2018.02.01.01.17.48 for <30285@debbugs.gnu.org> (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Thu, 01 Feb 2018 01:17:49 -0800 (PST) In-Reply-To: (Tino Calancha's message of "Thu, 1 Feb 2018 17:16:26 +0900 (JST)") X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:142760 Archived-At: Tino Calancha writes: Below the lines - (let ((files (dired-get-marked-files t current-prefix-arg))) must not be deleted (its a typo), otherwise `files' is unbound. Sorry for the typo (the train was really crowdy!) :-| (defun dired-mark-read-string (prompt initial op-symbol arg files &optional default-value collection) @@ -666,7 +671,7 @@ dired-do-async-shell-command The output appears in the buffer `*Async Shell Command*'." (interactive - (let ((files (dired-get-marked-files t current-prefix-arg))) + (dired-with-dired-do (list ;; Want to give feedback whether this file or marked files are used: (dired-read-shell-command "& on %s: " current-prefix-arg files) @@ -727,7 +732,7 @@ dired-do-shell-command ;;Functions dired-run-shell-command and dired-shell-stuff-it do the ;;actual work and can be redefined for customization. (interactive - (let ((files (dired-get-marked-files t current-prefix-arg))) + (dired-with-dired-do (list ;; Want to give feedback whether this file or marked files are used: (dired-read-shell-command "! on %s: " current-prefix-arg files)