From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Robert Pluim Newsgroups: gmane.emacs.bugs Subject: bug#51384: 28.0.60; substitute-command-keys finds global binding for undo instead of in specified keymap Date: Thu, 15 Sep 2022 10:55:24 +0200 Message-ID: <871qsdkoeb.fsf@gmail.com> References: <877de1s9yl.fsf@gmail.com> <87o87d9zpv.fsf@igel.home> <87y26hqtgt.fsf@gmail.com> <8635nxcow3.fsf@mail.linkov.net> <87czn1nwdr.fsf@gmail.com> <871qsd4xnj.fsf@gnus.org> <877d25krwg.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="10352"; mail-complaints-to="usenet@ciao.gmane.io" Cc: 51384@debbugs.gnu.org, Andreas Schwab , Juri Linkov To: Lars Ingebrigtsen Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Thu Sep 15 11:10:46 2022 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1oYktR-0002bv-IW for geb-bug-gnu-emacs@m.gmane-mx.org; Thu, 15 Sep 2022 11:10:45 +0200 Original-Received: from localhost ([::1]:44732 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oYktQ-0006fm-Km for geb-bug-gnu-emacs@m.gmane-mx.org; Thu, 15 Sep 2022 05:10:44 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:52022) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oYkfD-0006QH-L4 for bug-gnu-emacs@gnu.org; Thu, 15 Sep 2022 04:56:03 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:40117) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1oYkfC-0002ci-Iv for bug-gnu-emacs@gnu.org; Thu, 15 Sep 2022 04:56:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1oYkfC-0004Gw-Dx for bug-gnu-emacs@gnu.org; Thu, 15 Sep 2022 04:56:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Robert Pluim Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Thu, 15 Sep 2022 08:56:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 51384 X-GNU-PR-Package: emacs Original-Received: via spool by 51384-submit@debbugs.gnu.org id=B51384.166323213516388 (code B ref 51384); Thu, 15 Sep 2022 08:56:02 +0000 Original-Received: (at 51384) by debbugs.gnu.org; 15 Sep 2022 08:55:35 +0000 Original-Received: from localhost ([127.0.0.1]:57049 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oYkek-0004GG-Nd for submit@debbugs.gnu.org; Thu, 15 Sep 2022 04:55:34 -0400 Original-Received: from mail-wm1-f52.google.com ([209.85.128.52]:42927) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oYkei-0004G1-As for 51384@debbugs.gnu.org; Thu, 15 Sep 2022 04:55:34 -0400 Original-Received: by mail-wm1-f52.google.com with SMTP id o20-20020a05600c4fd400b003b4a516c479so2831032wmq.1 for <51384@debbugs.gnu.org>; Thu, 15 Sep 2022 01:55:32 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=content-transfer-encoding:mime-version:message-id:date:references :in-reply-to:subject:cc:to:from:from:to:cc:subject:date; bh=RLMBqEz8bGF5Vs1ju41Gwvip7yzczeETUksPENCkRig=; b=jlaK9cab2eGQp8AljIqMmcXKvENrhv4/3Wlvk8LHqTuyx0XpOSUpGzqp6myX2VGYo6 jxBRMdupTYqzDuLjNm1BpUbjdg8ug09vn8sD1OM3+2BsBJ8uzQsS4UH9+rFlof2xS+4S OvTHfJdxnTK7Pfgn8kQHodpAMjJnYpK3L73JYxDxBuUgmU8fjdl4FhU8shkxbYOVfoDA i6GGqJvghIkC+y6J/9XVpn9yv9HSplJCOa+GvyTmiMrybqBrCdwu2gJvotzzzI5N7AkM 9lO5gjQbQTxMcmZF6UTDfnffH4bpEpU7pjnxzKyeCmmYjP807IDre7ReWWOn6REAbGIw H2Bg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=content-transfer-encoding:mime-version:message-id:date:references :in-reply-to:subject:cc:to:from:x-gm-message-state:from:to:cc :subject:date; bh=RLMBqEz8bGF5Vs1ju41Gwvip7yzczeETUksPENCkRig=; b=iizP7sjtysDveOTFkzRg0QbO5iU0M+1hR4sSKFI1Nje/4bWbHnptwvg5f8cKJeYzLG cNxVIHsvtH5t6Pn7dkriL7MLBA7ZwpVsPZNy7lreCc5VrvcVumZtl/qMCvIUStVCibnX OeghvEBbHdZYndfPD/cDRxWU/KvPVpxHaN0Pl4Ho/St3iBsR3pCLkugb7I3OwKVyIQUS /OPTjRVCx0PklHfkNCr+drtF24wVRY4wRA9RrnjTdlQIPEe7jC49h1v/DqCz4M2zY0A0 wbXFG8mlVDpiUiSefEjiFqE1uYKya7owe8c7bbTN2JryuECWsiwv5yYQTGdFqQN+04Jg G+rA== X-Gm-Message-State: ACgBeo367/RNLn4iFR5kYxbC4y9y2E3Rj1zpsnMTsWCFM8Kq3AUyngMz tBUMfobClEeDVmQNZ5TLK8o= X-Google-Smtp-Source: AA6agR5v3d6Bi/EvZ8Pq8tTBdYuzcqaZv2vODi96y1isLTQi6/PZy/ca9Uz7EXxPtvg4QuOCTx8hXA== X-Received: by 2002:a1c:19c4:0:b0:3b4:a1da:76c3 with SMTP id 187-20020a1c19c4000000b003b4a1da76c3mr4924956wmz.106.1663232126149; Thu, 15 Sep 2022 01:55:26 -0700 (PDT) Original-Received: from rltb ([2a01:e0a:3f3:fb50:16a0:9848:d23c:7dcb]) by smtp.gmail.com with ESMTPSA id d16-20020a05600c049000b003a63a3b55c3sm1997693wme.14.2022.09.15.01.55.25 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Thu, 15 Sep 2022 01:55:25 -0700 (PDT) In-Reply-To: <877d25krwg.fsf@gmail.com> (Robert Pluim's message of "Thu, 15 Sep 2022 09:39:43 +0200") X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list 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-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:242570 Archived-At: >>>>> On Thu, 15 Sep 2022 09:39:43 +0200, Robert Pluim s= aid: Robert> The patch has shrunk in the meantime, somebody simplified the c= ode ;-) Although, apart from the patch missing a paren, it doesn=CA=BCt work, because I=CA=BCve forgotten how Lisp lists work :-) diff --git a/lisp/help.el b/lisp/help.el index 15ab3192ad..90476e4a4f 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1204,7 +1204,11 @@ substitute-command-keys (delete-char 2) (let* ((fun (intern (buffer-substring (point) (1- end-poin= t)))) (key (with-current-buffer orig-buf - (where-is-internal fun keymap t)))) + (where-is-internal fun + (if keymap + (list keymap) + keymap) + t)))) (if (not key) ;; Function is not on any key. (let ((op (point)))