From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.bugs Subject: bug#10624: 24.0.92; default value of `dired-do-ch*' Date: Sat, 15 Sep 2012 02:47:41 +0300 Organization: JURTA Message-ID: <87392k2ml9.fsf@mail.jurta.org> References: <0F10A2A4C6E541469381BA91CB8AEEB3@us.oracle.com> <60BBA8177B8C4157BBB5426B2F6A8204@us.oracle.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1347667508 1325 80.91.229.3 (15 Sep 2012 00:05:08 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 15 Sep 2012 00:05:08 +0000 (UTC) Cc: 10624@debbugs.gnu.org To: "Drew Adams" Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Sep 15 02:05:10 2012 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1TCfsj-0001FY-S9 for geb-bug-gnu-emacs@m.gmane.org; Sat, 15 Sep 2012 02:05:09 +0200 Original-Received: from localhost ([::1]:50499 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TCfsg-0006oP-02 for geb-bug-gnu-emacs@m.gmane.org; Fri, 14 Sep 2012 20:05:06 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:50799) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TCfsd-0006mH-Tw for bug-gnu-emacs@gnu.org; Fri, 14 Sep 2012 20:05:04 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TCfsc-0006gX-Vj for bug-gnu-emacs@gnu.org; Fri, 14 Sep 2012 20:05:03 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:53183) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TCfsc-0006g7-QE for bug-gnu-emacs@gnu.org; Fri, 14 Sep 2012 20:05:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1TCfta-0000mL-DQ for bug-gnu-emacs@gnu.org; Fri, 14 Sep 2012 20:06:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Juri Linkov Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 15 Sep 2012 00:06:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 10624 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 10624-submit@debbugs.gnu.org id=B10624.13476675362959 (code B ref 10624); Sat, 15 Sep 2012 00:06:02 +0000 Original-Received: (at 10624) by debbugs.gnu.org; 15 Sep 2012 00:05:36 +0000 Original-Received: from localhost ([127.0.0.1]:34496 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TCft9-0000ld-Id for submit@debbugs.gnu.org; Fri, 14 Sep 2012 20:05:35 -0400 Original-Received: from ps18281.dreamhost.com ([69.163.218.105]:52533 helo=ps18281.dreamhostps.com) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TCft6-0000lV-GG for 10624@debbugs.gnu.org; Fri, 14 Sep 2012 20:05:34 -0400 Original-Received: from localhost (ps18281.dreamhostps.com [69.163.218.105]) by ps18281.dreamhostps.com (Postfix) with ESMTP id BC3B0451CCC7; Fri, 14 Sep 2012 17:04:30 -0700 (PDT) In-Reply-To: <60BBA8177B8C4157BBB5426B2F6A8204@us.oracle.com> (Drew Adams's message of "Fri, 27 Jan 2012 08:23:19 -0800") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2.50 (x86_64-pc-linux-gnu) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 140.186.70.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-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:64329 Archived-At: This request for enhancement is implemented with the following patch where the user will be able to mark the target file with the mark. Otherwise, the marked file is used as target only when it is a single file in the list of marked files: === modified file 'lisp/dired-aux.el' --- lisp/dired-aux.el 2012-09-13 23:42:39 +0000 +++ lisp/dired-aux.el 2012-09-14 23:45:05 +0000 @@ -223,10 +237,16 @@ (defun dired-do-chxxx (attribute-name pr ;; OP-SYMBOL is the type of operation (for use in `dired-mark-pop-up'). ;; ARG describes which files to use, as in `dired-get-marked-files'. (let* ((files (dired-get-marked-files t arg)) + (default-file (or (if (and transient-mark-mode mark-active) + (save-excursion (goto-char (mark t)) + (dired-get-filename t t))) + (if (and (= (length files) 1) + (stringp (car files))) + (car files)))) (default (and (eq op-symbol 'touch) - (stringp (car files)) + default-file (format-time-string "%Y%m%d%H%M.%S" - (nth 5 (file-attributes (car files)))))) + (nth 5 (file-attributes default-file))))) (prompt (concat "Change " attribute-name " of %s to" (if (eq op-symbol 'touch) " (default now): "