From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Re: patch for locate-file-completion? Date: Thu, 01 Apr 2004 12:34:20 -0500 Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: References: <87k7107iob.fsf@tapsellferrier.co.uk> Reply-To: rms@gnu.org NNTP-Posting-Host: deer.gmane.org X-Trace: sea.gmane.org 1080842528 27121 80.91.224.253 (1 Apr 2004 18:02:08 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 1 Apr 2004 18:02:08 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Thu Apr 01 20:02:05 2004 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1B96Vw-0003xx-00 for ; Thu, 01 Apr 2004 20:02:04 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1B96Vw-0003GS-00 for ; Thu, 01 Apr 2004 20:02:04 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1B96DU-0006AM-Jo for emacs-devel@quimby.gnus.org; Thu, 01 Apr 2004 12:43:00 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.30) id 1B966E-0005aY-ME for emacs-devel@gnu.org; Thu, 01 Apr 2004 12:35:30 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.30) id 1B965h-0005W6-04 for emacs-devel@gnu.org; Thu, 01 Apr 2004 12:35:28 -0500 Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1B965g-0005W2-RH for emacs-devel@gnu.org; Thu, 01 Apr 2004 12:34:56 -0500 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.24) id 1B9656-0004A1-Kq; Thu, 01 Apr 2004 12:34:20 -0500 Original-To: Nic Ferrier In-reply-to: <87k7107iob.fsf@tapsellferrier.co.uk> (message from Nic Ferrier on 31 Mar 2004 23:31:16 +0100) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.4 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:21165 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:21165 It looks to me like right fix is this one. Does this look right to you? diff -c /home/rms/emacs/lisp/files.el.\~80\~ /home/rms/emacs/lisp/files.el *** /home/rms/emacs/lisp/files.el.~80~ Mon Mar 29 23:58:25 2004 --- /home/rms/emacs/lisp/files.el Thu Apr 1 10:31:51 2004 *************** *** 616,621 **** --- 616,623 ---- (suffix (concat (regexp-opt (cdr path-and-suffixes) t) "\\'")) (string-dir (file-name-directory string))) (dolist (dir (car path-and-suffixes)) + (unless dir + (setq dir default-directory)) (if string-dir (setq dir (expand-file-name string-dir dir))) (when (file-directory-p dir) (dolist (file (file-name-all-completions Diff finished. Thu Apr 1 10:32:37 2004