From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Ramesh Nedunchezian Newsgroups: gmane.emacs.devel Subject: Getting magic numbers 134217734 etc in a repetable keymap Date: Sat, 3 Apr 2021 11:50:50 +0530 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="33886"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:68.0) Gecko/20100101 Thunderbird/68.5.0 To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Sat Apr 03 08:22:33 2021 Return-path: Envelope-to: ged-emacs-devel@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 1lSZg0-0008ie-MH for ged-emacs-devel@m.gmane-mx.org; Sat, 03 Apr 2021 08:22:32 +0200 Original-Received: from localhost ([::1]:56200 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lSZfz-0007kY-O8 for ged-emacs-devel@m.gmane-mx.org; Sat, 03 Apr 2021 02:22:31 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:41984) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lSZen-0007Dx-0q for emacs-devel@gnu.org; Sat, 03 Apr 2021 02:21:17 -0400 Original-Received: from mail-oln040092255062.outbound.protection.outlook.com ([40.92.255.62]:44856 helo=APC01-HK2-obe.outbound.protection.outlook.com) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lSZek-0006Ij-RI for emacs-devel@gnu.org; Sat, 03 Apr 2021 02:21:16 -0400 ARC-Seal: i=1; a=rsa-sha256; s=arcselector9901; d=microsoft.com; cv=none; b=JRLbJAot8Zvceh+yjOhqh9iHNiXkFiOaWl4aCU/KhE0eFIM7zPoi+8SHYpbDyk54yfcqS63St+deVACHYgTze8Bmz7LhH4Jx1mvMP64IvXzqeer2Hfuy3x+DimHtxpJeymhPlaMgUjTlj7IS0RdyRUyADUbK2BMqxotrJP+Ppa2RE0QnC1qoDbPLKHaD32NoQTlthG3EWr7onuXla+1b58WEFUTX3tvoblHev0zw8CvSZPwEX5oJCSYOXpDyGHCLgOnAoUtjy5y6T0PVSonJdGRXTmQeTanLQhEakvPTApcNMkqFS40LTrveG2PCK5UvAiZLxyRtT1RR7IrNZzGJGQ== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=microsoft.com; s=arcselector9901; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=UqejhK7s68cLkmIpFolVa0tmwZDGGS/zkSAD4CaLbrw=; b=ejuJHRdzUUI7bPFUf3i0/lUe2HTnWhwDdXCKJLo0MgF17hixz4NjQ8/JaBGgOqVcwBcecPdW72qr6hE42htdDeZFHfdOgxEuTNu9j5jKcrtPrVVMpQkSiVaekZltpxk9ZE2gMF1TlzZOpfnL2aGWdv/X+MCAdwkcI2Gg3vPtXb9guepyz5Pio7AryxiCT1WuPLBnzTpTxu25gIU0rbE4heE+l9x5xs2AQI9wbLMuHmIBpK2xFjTbzy33n/ZDycWimteaxlOHDjHlmfGh2WEl2bnII9y/ZHchhzPiCiBLwXxPdaPvPHN8yKnzWmhUbcNBJ/E+GDX1C7v33xD/RL/0zg== ARC-Authentication-Results: i=1; mx.microsoft.com 1; spf=none; dmarc=none; dkim=none; arc=none DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=outlook.com; s=selector1; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=UqejhK7s68cLkmIpFolVa0tmwZDGGS/zkSAD4CaLbrw=; b=jRPCZb1AZ9dwyT8dL2XySP6iaqtFX78/OSoAJ4xciQ9kY544BA11HqhnkduL92MnhGo5LJWpFY6sTqo7u+dK9XoANbyAaHjuYLazv+7YVI2ZhnOuEPs58oWlmnsVyZzeH38Kk7wGf/zY8LTnoaqT3gadNnJIU4ZdP4UfA+szB6xLMTQooDgxVGw0G5I/RhvUWt/cTBuXUU5pQUw1Y+DDUDO5FuSMwYMS6q+HRtkdgs8jMjkq2gJJ4KYn9byFiaxFCQ/NHeTEHW+qwwUeedwHZ8k1KQTBkj8QCZrC1uict78gdq7TcbpDbB+WuHxfbYvTkqGYCTcz+kInAxnKWEG22Q== Original-Received: from TY2PR0101MB3693.apcprd01.prod.exchangelabs.com (2603:1096:404:800f::16) by TY2PR0101MB3054.apcprd01.prod.exchangelabs.com (2603:1096:404:a2::16) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.3999.27; Sat, 3 Apr 2021 06:21:02 +0000 Original-Received: from TY2PR0101MB3693.apcprd01.prod.exchangelabs.com ([fe80::4980:4d7f:474b:de2c]) by TY2PR0101MB3693.apcprd01.prod.exchangelabs.com ([fe80::4980:4d7f:474b:de2c%3]) with mapi id 15.20.3999.032; Sat, 3 Apr 2021 06:21:02 +0000 Content-Language: en-US X-TMN: [vdljdD/rAoKfGubUdv6tAqYd+g9v7VE8jF2Zi9cEWuQ=] X-ClientProxiedBy: MAXPR01CA0109.INDPRD01.PROD.OUTLOOK.COM (2603:1096:a00:5d::27) To TY2PR0101MB3693.apcprd01.prod.exchangelabs.com (2603:1096:404:800f::16) X-Microsoft-Original-Message-ID: X-MS-Exchange-MessageSentRepresentingType: 1 Original-Received: from [192.168.43.244] (117.230.191.215) by MAXPR01CA0109.INDPRD01.PROD.OUTLOOK.COM (2603:1096:a00:5d::27) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.3999.27 via Frontend Transport; Sat, 3 Apr 2021 06:21:01 +0000 X-MS-PublicTrafficType: Email X-MS-Office365-Filtering-Correlation-Id: d66c97b9-3a37-45d4-5c85-08d8f668a75d X-MS-TrafficTypeDiagnostic: TY2PR0101MB3054: X-Microsoft-Antispam: BCL:0; X-Microsoft-Antispam-Message-Info: kbTOB3PKSmxGnl+MFABolSXfK2qiBY1AckRhJDM4j5Rquyexzs4WEvzB5EuPQEftgujY4GRxLUDKhcAWPmHJi1wqHonB1JLZjQReb8/skG4VLWDSwroLcwb/kCXxJ2GQIwwD05jMWzm8JaF0nK7EJjdeeNEpZaUQ8K0J7+APZmXiAGOQrzKu0QfwI5zbJZVlklfZSSWoc10YGTBCvT5ll0fLWoRI90EUbN4g33inIVlaha8LRbsh7pI3q4onsB0/HvXsHyzUYqxqq282d+pPvOO1PGSwzfYtVZnjDUKxNPi+MynjH6US4Jl8Kw82HLSTTFMmKAgIs+d8O2GJRWoXvt2aiSmUBOFhaIHsnYZaTEMUNYT60PH91OtOMPSWYOk3kncAnctcSqzb8lgB4bcpJg== X-MS-Exchange-AntiSpam-MessageData: Wp7yVTzGCIB/z46aaRjeItA+xAOTv0gVkmitk4zLtzqLDwzYNDImhPZheberfn4RdcNl0BqwgeLQZ5QvKFIcR1On1EFdQto4ISPmkTWmY9cLSbhtFzRaTc2vnQGsH0HlUwDuPG7kHrbakw6Lr9k25g== X-OriginatorOrg: outlook.com X-MS-Exchange-CrossTenant-Network-Message-Id: d66c97b9-3a37-45d4-5c85-08d8f668a75d X-MS-Exchange-CrossTenant-AuthSource: TY2PR0101MB3693.apcprd01.prod.exchangelabs.com X-MS-Exchange-CrossTenant-AuthAs: Internal X-MS-Exchange-CrossTenant-OriginalArrivalTime: 03 Apr 2021 06:21:02.1116 (UTC) X-MS-Exchange-CrossTenant-FromEntityHeader: Hosted X-MS-Exchange-CrossTenant-Id: 84df9e7f-e9f6-40af-b435-aaaaaaaaaaaa X-MS-Exchange-CrossTenant-RMS-PersistedConsumerOrg: 00000000-0000-0000-0000-000000000000 X-MS-Exchange-Transport-CrossTenantHeadersStamped: TY2PR0101MB3054 Received-SPF: pass client-ip=40.92.255.62; envelope-from=rameshnedunchezian@outlook.com; helo=APC01-HK2-obe.outbound.protection.outlook.com X-Spam_score_int: 21 X-Spam_score: 2.1 X-Spam_bar: ++ X-Spam_report: (2.1 / 5.0 requ) BAYES_40=-0.001, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FORGED_MUA_MOZILLA=2.309, FREEMAIL_FROM=0.001, MSGID_FROM_MTA_HEADER=0.001, RCVD_IN_DNSWL_NONE=-0.0001, RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.23 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-mx.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.io gmane.emacs.devel:267316 Archived-At: I would like to create a repeatable keymap which has magic number 134217734 etc in it using either `define-key' or any other API. I have tried the following, and it desn't work (define-key sexp--repeat-map (vector (car (listify-key-sequence (kbd "C-M-f")))) 'forward-sexp) Getting numbers like 134217734 etc in to the repeatable keymap are important for successful setting up of repetition. That is, for repetition to succeed, the condition below in `repeat-post-hook' need to succeed. (or (memq last-command-event keys) (memq this-original-command '(universal-argument universal-argument-more digit-argument negative-argument))) ... and when I invoke C-M-f `last-command-event' comes out as 134217734. ---------------- For now I have hard-coded `sexp--repeat-map' as below, and this works as expected. But I want a cleaner and less-hackish recipe for achieving the same. (setq sexp--repeat-map '(keymap ;; How can I get 134217734 here? ;; (define-key sexp--repeat-map (kbd "C-M-f") 'forward-sexp) ;; puts a nested list in keymap ;; The numerical vaues here are values of `last-command-event' in ;; `repeat-post-hook' (134217734 . forward-sexp) (134217730 . backward-sexp) (134217729 . beginning-of-defun) (134217733 . end-of-defun) (134217732 . down-list) (134217749 . backward-up-list) ;; I can get 102 here with ;; (define-key sexp--repeat-map "f" 'forward-sexp) (102 . forward-sexp) (98 . backward-sexp) (97 . beginning-of-defun) (101 . end-of-defun) (100 . down-list) (117 . backward-up-list))) (progn (put 'forward-sexp 'repeat-map 'sexp--repeat-map) (put 'backward-sexp 'repeat-map 'sexp--repeat-map) (put 'beginning-of-defun 'repeat-map 'sexp--repeat-map) (put 'end-of-defun 'repeat-map 'sexp--repeat-map) (put 'down-list 'repeat-map 'sexp--repeat-map) (put 'backward-up-list 'repeat-map 'sexp--repeat-map)) ---------------- FWIW, to convert C-M-f to 102, I used this (vector (event-basic-type (car (listify-key-sequence (kbd "C-M-f")))))