From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Stefan Monnier Newsgroups: gmane.emacs.devel Subject: Re: [pcomplete.el (pcomplete-completions-at-point)] Why max? Date: Wed, 20 Mar 2019 10:00:55 -0400 Message-ID: References: Mime-Version: 1.0 Content-Type: text/plain Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="204130"; mail-complaints-to="usenet@blaine.gmane.org" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) Cc: emacs-devel To: Tadeus Prastowo Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Mar 20 15:01:48 2019 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:256) (Exim 4.89) (envelope-from ) id 1h6bmt-000qlt-Ku for ged-emacs-devel@m.gmane.org; Wed, 20 Mar 2019 15:01:47 +0100 Original-Received: from localhost ([127.0.0.1]:48393 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1h6bms-0001JJ-Me for ged-emacs-devel@m.gmane.org; Wed, 20 Mar 2019 10:01:46 -0400 Original-Received: from eggs.gnu.org ([209.51.188.92]:59610) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1h6bm8-0001Ir-IJ for emacs-devel@gnu.org; Wed, 20 Mar 2019 10:01:01 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1h6bm7-0007yM-Nj for emacs-devel@gnu.org; Wed, 20 Mar 2019 10:01:00 -0400 Original-Received: from mail01.iro.umontreal.ca ([132.204.25.201]:41206) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1h6bm7-0007wH-1a for emacs-devel@gnu.org; Wed, 20 Mar 2019 10:00:59 -0400 Original-Received: from mail01.iro.umontreal.ca (mail01.iro.umontreal.ca [127.0.0.1]) by mail01.iro.umontreal.ca (Postfix) with ESMTP id C8C4A80E12EC for ; Wed, 20 Mar 2019 10:00:56 -0400 (EDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=iro.umontreal.ca; h=content-type:content-type:mime-version:user-agent:in-reply-to :date:date:references:message-id:subject:subject:to:from:from; s=dkim; t=1553090456; x=1553954457; bh=gsnKOhL6Gbig25Rb9pkIybcK R7XY8UdXlRuuOHnMpAw=; b=ANcDCqLZQjc1CFH70uiiJTFHjH37ro6LZRjiQ2yN I3FW+DBlfOAedwyT57CsTxexGLkoUOBTqWHiQZBCb6PeZQTbxRzxU4w39u0YG326 R7zkBuxu7oiBlnR99Q2sWWyiHk8hmLtwt5/yUW21O6sE6+K6HpTVRtfRuWYn9gPS W9IL9qi7oLTWSnoDcHjaPHTuwwFFaJJWSkvct6N0LmQ6r4ZaX8ZGqnZlj7UIl58L oJHs9paDhsjXsZPMd4m/l+9swLuDqZd8rgksYazALXJdLl0Qs/D8F16hUFezzPZw WUp2qmDC+UZztDgDCkeCAN+o4V7tsB7XTOLUDTt2OTnu0Q== X-Virus-Scanned: amavisd-new at iro.umontreal.ca Original-Received: from mail01.iro.umontreal.ca ([127.0.0.1]) by mail01.iro.umontreal.ca (mail01.iro.umontreal.ca [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id M-Ba7kHYhezc for ; Wed, 20 Mar 2019 10:00:56 -0400 (EDT) Original-Received: from pastel (75-119-242-252.dsl.teksavvy.com [75.119.242.252]) by mail01.iro.umontreal.ca (Postfix) with ESMTPSA id 1E3F980E12D5; Wed, 20 Mar 2019 10:00:56 -0400 (EDT) In-Reply-To: (Tadeus Prastowo's message of "Wed, 20 Mar 2019 12:00:13 +0100") X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 132.204.25.201 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:234408 Archived-At: > $ emacs -Q > M-x shell > cd /tmp > mkdir ABCD\ EF\ GHIJKL > cd ABCD\ EF > > The echo area shows "No match". I see it now! I just pushed the fix below which seems to do the trick! Stefan * lisp/minibuffer.el (completion-table-subvert): Fix typo from rev 5697ca55cb diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index df0acbb343..dbd24dfa0a 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -269,7 +269,7 @@ completion-table-subvert (+ beg (- (length s1) (length s2)))) . ,(and (eq (car-safe res) 'boundaries) (cddr res))))) ((stringp res) - (if (string-prefix-p s2 string completion-ignore-case) + (if (string-prefix-p s2 res completion-ignore-case) (concat s1 (substring res (length s2))))) ((eq action t)