From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Drew Adams" Newsgroups: gmane.emacs.bugs Subject: bug#10489: 24.0.92; dired-do-copy may create infinite directory hierarchy Date: Sun, 15 Jan 2012 10:42:45 -0800 Message-ID: <75FAB0050F9C42F79DA624806EE1914A@us.oracle.com> References: <87mx9su32g.fsf@web.de> <87sjjkfvwt.fsf@gmail.com><8362ggkquq.fsf@gnu.org> <87lipcrlga.fsf@gmail.com><87fwfkc4pn.fsf@gmx.de> <87fwfjsw8t.fsf@gmail.com><87aa5rdazl.fsf@gmx.de> <87d3anogf5.fsf@gmail.com><011AEED9E81C4DEFA6B1E03B0F57F28F@us.oracle.com><83k44vk3tq.fsf@gnu.org> <0CF5A24D684E48CEBE38E6597474ECAD@us.oracle.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Trace: dough.gmane.org 1326653004 27515 80.91.229.12 (15 Jan 2012 18:43:24 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sun, 15 Jan 2012 18:43:24 +0000 (UTC) Cc: 10489@debbugs.gnu.org To: Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sun Jan 15 19:43:20 2012 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RmV31-00064h-F4 for geb-bug-gnu-emacs@m.gmane.org; Sun, 15 Jan 2012 19:43:19 +0100 Original-Received: from localhost ([::1]:50158 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RmV31-00041t-1c for geb-bug-gnu-emacs@m.gmane.org; Sun, 15 Jan 2012 13:43:19 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:51775) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RmV2v-00041m-Qi for bug-gnu-emacs@gnu.org; Sun, 15 Jan 2012 13:43:17 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RmV2u-0006eT-Ui for bug-gnu-emacs@gnu.org; Sun, 15 Jan 2012 13:43:13 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:35968) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RmV2u-0006eP-Qm for bug-gnu-emacs@gnu.org; Sun, 15 Jan 2012 13:43:12 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1RmV3i-00058z-7N for bug-gnu-emacs@gnu.org; Sun, 15 Jan 2012 13:44:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: "Drew Adams" Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sun, 15 Jan 2012 18:44:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 10489 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 10489-submit@debbugs.gnu.org id=B10489.132665303119741 (code B ref 10489); Sun, 15 Jan 2012 18:44:02 +0000 Original-Received: (at 10489) by debbugs.gnu.org; 15 Jan 2012 18:43:51 +0000 Original-Received: from localhost ([127.0.0.1]:58874 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1RmV3X-00058L-4p for submit@debbugs.gnu.org; Sun, 15 Jan 2012 13:43:51 -0500 Original-Received: from acsinet15.oracle.com ([141.146.126.227]:57099) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1RmV3U-00058A-Ae for 10489@debbugs.gnu.org; Sun, 15 Jan 2012 13:43:49 -0500 Original-Received: from ucsinet22.oracle.com (ucsinet22.oracle.com [156.151.31.94]) by acsinet15.oracle.com (Switch-3.4.4/Switch-3.4.4) with ESMTP id q0FIguS2023492 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK); Sun, 15 Jan 2012 18:42:57 GMT Original-Received: from acsmt358.oracle.com (acsmt358.oracle.com [141.146.40.158]) by ucsinet22.oracle.com (8.14.4+Sun/8.14.4) with ESMTP id q0FIgtE7022913 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Sun, 15 Jan 2012 18:42:56 GMT Original-Received: from abhmt105.oracle.com (abhmt105.oracle.com [141.146.116.57]) by acsmt358.oracle.com (8.12.11.20060308/8.12.11) with ESMTP id q0FIgsbq029452; Sun, 15 Jan 2012 12:42:55 -0600 Original-Received: from dradamslap1 (/10.159.36.131) by default (Oracle Beehive Gateway v4.0) with ESMTP ; Sun, 15 Jan 2012 10:42:54 -0800 X-Mailer: Microsoft Office Outlook 11 In-reply-to: <0CF5A24D684E48CEBE38E6597474ECAD@us.oracle.com> Thread-Index: AczSCdgoYGKq3hqRQoyxH2L+XdPs4QAA12OwAGnwx2A= X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157 X-Source-IP: ucsinet22.oracle.com [156.151.31.94] X-CT-RefId: str=0001.0A090201.4F131E31.009E,ss=1,re=0.000,fgs=0 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:55769 Archived-At: > (defun bmkp-same-file-p (file1 file2) > "Return non-nil if FILE1 and FILE2 name the same file. > If either name is not absolute, then it is expanded relative to > `default-directory' for the test." > (let* ((remote1 (bmkp-file-remote-p file1)) > (remote2 (bmkp-file-remote-p file2)) > (ignore-case-p > (and (not remote1) (not remote2) > (eval (car (get 'read-file-name-completion-ignore-case > 'standard-value)))))) > (and (equal remote1 remote2) > (compare-strings (file-truename (expand-file-name file1)) > (file-truename (expand-file-name file2)) > ignore-case-p)))) Sorry, that `compare-strings' sexp is obviously not right. The last 3 lines should be this: (and (equal remote1 remote2) (let ((ft1 (file-truename (expand-file-name file1))) (ft2 (file-truename (expand-file-name file2)))) (compare-strings ft1 0 (length ft1) ft2 0 (length ft2) ignore-case-p)))))