From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: uzibalqa Newsgroups: gmane.emacs.help Subject: Re: Making new menu after Tools using keymap-set-after Date: Wed, 19 Jul 2023 15:58:10 +0000 Message-ID: References: <83lefd5b1m.fsf@gnu.org> <5CJ7IA6FUfpae6IJLkriZ9erzWkJP7y-GsJUYNBD1MXDgZG2q6Ho1gAxhmD_yf1fDZ9Ycw520lPskK17X77xwjM3n_VruWHV6kP7owNkWEo=@proton.me> <83jzux59hs.fsf@gnu.org> <29fb2GtvrRLnbZsTQfLCxN53auLjOAMICAUTFo4F9ghAVjIrKdAagZFf5k9NG0njuVyI381ZDnm62ZIg_FiLJ9fAjtNdKuDgNTsu8CEIdF4=@proton.me> <83ilag63ji.fsf@gnu.org> <878rbcp8qp.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="19016"; mail-complaints-to="usenet@ciao.gmane.io" To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Wed Jul 19 17:59:13 2023 Return-path: Envelope-to: geh-help-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 1qM9a3-0004iU-OQ for geh-help-gnu-emacs@m.gmane-mx.org; Wed, 19 Jul 2023 17:59:11 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qM9ZX-0006tr-2A; Wed, 19 Jul 2023 11:58:39 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qM9ZT-0006hw-3w for help-gnu-emacs@gnu.org; Wed, 19 Jul 2023 11:58:35 -0400 Original-Received: from mail-4318.protonmail.ch ([185.70.43.18]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qM9ZP-0007sx-2b for help-gnu-emacs@gnu.org; Wed, 19 Jul 2023 11:58:34 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=proton.me; s=protonmail; t=1689782300; x=1690041500; bh=ACeEbiDiDZelxx3AiiimCEERTOuDf0LtXdMXa+LR/m4=; h=Date:To:From:Subject:Message-ID:In-Reply-To:References: Feedback-ID:From:To:Cc:Date:Subject:Reply-To:Feedback-ID: Message-ID:BIMI-Selector; b=JsU/8MbuZEGM13FjMnR6D6njp84WsVDtJyT7KaN5T916S815WdkgWWrwD22hN/d/h 2Gg40zTG8P/lRI7uQl5QUkZDTW2rEs4y65CUfweqenH6xIOObJU7pLkTpjEkUX63tk EL/heT6DXWJ7iP+uf585np/Yaho8t39LDK0GsQp6yAFE6JoqT+3HHi0GzYeGJVYuKS bj1mAQFiLrGL816eLvHkRcs0/46Nis2Dn1m+Ouav1/7JYLZqCFLH1NQneHqIH0AdGz UOShzZ0UbBKtWbjBfviopMwiG3uvpndPUZ42kKwHSd6S7IbK3MyZYbUAh0wTyJm1cd f2wvrqlFiUPxA== In-Reply-To: <878rbcp8qp.fsf@gmail.com> Feedback-ID: 52887082:user:proton Received-SPF: pass client-ip=185.70.43.18; envelope-from=uzibalqa@proton.me; helo=mail-4318.protonmail.ch X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_MSPIKE_H5=0.001, RCVD_IN_MSPIKE_WL=0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.help:144333 Archived-At: Sent with Proton Mail secure email. ------- Original Message ------- On Wednesday, July 19th, 2023 at 9:10 PM, Robert Pluim w= rote: > > > > > > On Wed, 19 Jul 2023 08:08:32 +0000, uzibalqa uzibalqa@proton.me= said: >=20 >=20 > uzibalqa> (defvar mcp-kdf (make-sparse-keymap "MCP")) >=20 > uzibalqa> (keymap-set-after global-map >=20 > uzibalqa> " " (cons "MCP" mcp-kdf) 'tools) >=20 >=20 > uzibalqa> complains about 'tools >=20 >=20 > Works for me in emacs-30, it gives me an 'MCP' menu just after > Tools. What error are you seeing? >=20 >=20 > Robert > -- With GNU Emacs 29.0.50, I get=20 Debugger entered--Lisp error: (error "tools is not a valid key definition; = see =E2=80=98key-valid-p=E2=80=99") signal(error ("tools is not a valid key definition; see =E2=80=98key-vali= d-p=E2=80=99")) error("%S is not a valid key definition; see `key-valid-p'" tools) keymap--check(tools) keymap-set-after((keymap #^[nil nil keymap=20 #^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific= -command-prefix delete-char move-end-of-line forward-char keyboard-quit hel= p-command indent-for-tab-command electric-newline-and-maybe-indent kill-lin= e recenter-top-bottom newline next-line open-line previous-line quoted-inse= rt isearch-backward isearch-forward transpose-chars universal-argument scro= ll-up-command kill-region Control-X-prefix yank suspend-frame ESC-prefix to= ggle-input-method abort-recursive-edit nil undo self-insert-command self-in= sert-command self-insert-command self-insert-command self-insert-command ..= .] #^^[1 0 #^^[2 0=20 #^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific= -command-prefix delete-char move-end-of-line forward-char keyboard-quit hel= p-command indent-for-tab-command electric-newline-and-maybe-indent kill-lin= e recenter-top-bottom newline next-line open-line previous-line quoted-inse= rt isearch-backward isearch-forward transpose-chars universal-argument scro= ll-up-command kill-region Control-X-prefix yank suspend-frame ESC-prefix to= ggle-input-method abort-recursive-edit nil undo self-insert-command self-in= sert-command self-insert-command self-insert-command self-insert-command ..= .] self-insert-command self-insert-command self-insert-command self-insert-= command self-insert-command self-insert-command self-insert-command self-in= sert-command self-insert-command self-insert-command self-insert-command se= lf-insert-command self-insert-command self-insert-command self-insert-comma= nd self-insert-command self-insert-command self-insert-command self-insert-= command self-insert-command self-insert-command self-insert-command self-in= sert-command self-insert-command self-insert-command self-insert-command se= lf-insert-command self-insert-command self-insert-command self-insert-comma= nd self-insert-command] self-insert-command self-insert-command self-insert= -command self-insert-command self-insert-command self-insert-command self-i= nsert-command self-insert-command self-insert-command self-insert-command s= elf-insert-command self-insert-command self-insert-command self-insert-comm= and self-insert-command] self-insert-command self-insert-command self-inser= t-command self-insert-command self-insert-command self-insert-command self-= insert-command self-insert-command self-insert-command self-insert-command = self-insert-command self-insert-command self-insert-command self-insert-com= mand self-insert-command self-insert-command self-insert-command self-inser= t-command self-insert-command self-insert-command self-insert-command self-= insert-command self-insert-command self-insert-command self-insert-command = self-insert-command self-insert-command self-insert-command self-insert-com= mand self-insert-command self-insert-command self-insert-command self-inser= t-command ...] (67108908 . text-scale-decrease) (67108910 . text-scale-incr= ease) (f5 . modus-themes-toggle) (paste . clipboard-yank) (copy . clipboard= -kill-ring-save) (cut . clipboard-kill-region) (f18 . clipboard-yank) (f16 = . clipboard-kill-ring-save) (f20 . clipboard-kill-region) (C-wheel-down . m= ouse-wheel-text-scale) (C-wheel-up . mouse-wheel-text-scale) (C-mouse-5 . m= ouse-wheel-text-scale) (C-mouse-4 . mouse-wheel-text-scale) (C-M-wheel-down= . mouse-wheel-global-text-scale) (C-M-wheel-up . mouse-wheel-global-text-s= cale) (C-M-mouse-5 . mouse-wheel-global-text-scale) (C-M-mouse-4 . mouse-wh= eel-global-text-scale) (M-wheel-right . mwheel-scroll) (M-wheel-left . mwhe= el-scroll) (M-wheel-down . mwheel-scroll) (M-wheel-up . mwheel-scroll) (M-m= ouse-7 . mwheel-scroll) (M-mouse-6 . mwheel-scroll) (M-mouse-5 . mwheel-scr= oll) (M-mouse-4 . mwheel-scroll) (S-wheel-right . mwheel-scroll) (S-wheel-l= eft . mwheel-scroll) (S-wheel-down . mwheel-scroll) (S-wheel-up . mwheel-sc= roll) (S-mouse-7 . mwheel-scroll) (S-mouse-6 . mwheel-scroll) (S-mouse-5 . = mwheel-scroll) (S-mouse-4 . mwheel-scroll) (wheel-right . mwheel-scroll) (w= heel-left . mwheel-scroll) (wheel-down . mwheel-scroll) ...) " " ("MCP" keymap "MCP") tools) mcp-menubar()