From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Arthur Miller Newsgroups: gmane.emacs.help Subject: Eval keymapp in a macros Date: Mon, 02 Aug 2021 14:16:56 +0200 Message-ID: Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="29521"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Mon Aug 02 14:22:39 2021 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 1mAWxp-0007TM-Ud for geh-help-gnu-emacs@m.gmane-mx.org; Mon, 02 Aug 2021 14:22:39 +0200 Original-Received: from localhost ([::1]:46356 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mAWxo-0001MC-FP for geh-help-gnu-emacs@m.gmane-mx.org; Mon, 02 Aug 2021 08:22:36 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:53542) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mAWsT-0000tB-Dz for help-gnu-emacs@gnu.org; Mon, 02 Aug 2021 08:17:05 -0400 Original-Received: from mail-vi1eur06olkn2011.outbound.protection.outlook.com ([40.92.17.11]:30132 helo=EUR06-VI1-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 1mAWsP-0001Av-40 for help-gnu-emacs@gnu.org; Mon, 02 Aug 2021 08:17:04 -0400 ARC-Seal: i=1; a=rsa-sha256; s=arcselector9901; d=microsoft.com; cv=none; b=KgrkaJPcc1gOnFaroXt974Mp+LBroFe8XZpPpgrxhNQjH7Bv9PRfbByT68jc3GygnXCO90L9I3LHs0xbwjZiwxF7kKWvbP72lesiyEEQBxLyr+xZhiystJMavWKzJ9Vfbs5UqWn28i3e1jY79CbZY7SHNQum5UVjrRSnE4ScTrAxsvGyLTJfoplmqyXzpmLdtcX4mha+qhrk/6QkCx2l+LDbfYhPQo4dv7DAvx8Rd4zVTknhdtSbmT16k70XAeU7HyrlxU6By3IgJlDTtpSmFz1r0qFbdCO/umGbgN6J9a9bpBSbIAkaroKJAg052ZBHbIEhqn8lb+/P7AuD5VsMuA== 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=ssV+mU5of1qVBmMv7sOv0ZPLe0rxnAZTuWSZOm06UrU=; b=Zl96vAcCiY+hHgu3n3TPzB6fOu/xScVJ8ujcHzVVYwQqyFN31LLAkISMZ5iKXNu2txtUl1zZCq1+yJxeaR3X1npnlZ5XilH2Lxv90n4SpkdVYvUwaz05LSFu7HM1ThT50rPnXpCBxv586Rhy7bmT6oU2/3o83Cojf5T6XPirYjtyTn8CY+7+/eiLR3v8piX3YoqOkXYlzJ45wG52o13eYkGgBh1QX9mCyueM/NvAsAJm1WQBqiAqu2sBaUSWhWE+y9IfNYC+2TCQdo6rujxMyD/XQjVT2IhBu4ttsDBJzEDvOiU1gHQTIsr9lDc6V/2MYoDpAKi6+byG912cWNvkrg== 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=live.com; s=selector1; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=ssV+mU5of1qVBmMv7sOv0ZPLe0rxnAZTuWSZOm06UrU=; b=BNxidyfHD6DsYr84aZcJdz3l+RtQ2Xwz8dj0W4P9sCsjFkh6Cjvt9qgjHSMKJDHd+cm5PAetymBt5wrXapicm35RslkhIsNpzVe+6rxwgu9Pj8ENO6KaKDy+Ky9bCVm8a8LjHXjAMZYuACDp8F3IHCCRo46lbaC+R+Kr/fo9pLfajAxnheZodFKBnmGq65DsZR1fLnmxuY/ESYBY8B54fx8OnimHVHOFoRs2uFVxVPKf4cuMZIJxvSavj6Bz029S8lTA16HvM4gyYAaddStUEF3j7TWLow4mpk1JI4dpzy5dvQ8/qyTo2GU9nVT/bYzrmllEBEJcb/a6BCf+MQO9lw== Original-Received: from VI1EUR06FT059.eop-eur06.prod.protection.outlook.com (2a01:111:e400:fc37::51) by VI1EUR06HT235.eop-eur06.prod.protection.outlook.com (2a01:111:e400:fc37::397) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.4373.18; Mon, 2 Aug 2021 12:16:57 +0000 Original-Received: from AM9PR09MB4977.eurprd09.prod.outlook.com (2a01:111:e400:fc37::4f) by VI1EUR06FT059.mail.protection.outlook.com (2a01:111:e400:fc37::222) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.4373.18 via Frontend Transport; Mon, 2 Aug 2021 12:16:57 +0000 X-IncomingTopHeaderMarker: OriginalChecksum:3D31BD87D355E500FCEA435CE75DF12370E7BEE6CFC8C8F5C6F155E903B67B9E; UpperCasedChecksum:4D84D882766EF995E427D3D12795F5C46F0D2AEF4F5021D15AD5E54133275C22; SizeAsReceived:7175; Count:43 Original-Received: from AM9PR09MB4977.eurprd09.prod.outlook.com ([fe80::e47b:760e:fa35:f28b]) by AM9PR09MB4977.eurprd09.prod.outlook.com ([fe80::e47b:760e:fa35:f28b%6]) with mapi id 15.20.4373.026; Mon, 2 Aug 2021 12:16:57 +0000 X-TMN: [tO9XrB8ODdnqNKykYPSTWitoyy/Bz6O9] X-ClientProxiedBy: AM6PR10CA0086.EURPRD10.PROD.OUTLOOK.COM (2603:10a6:209:8c::27) To AM9PR09MB4977.eurprd09.prod.outlook.com (2603:10a6:20b:304::20) X-Microsoft-Original-Message-ID: <87a6m059dz.fsf@live.com> X-MS-Exchange-MessageSentRepresentingType: 1 Original-Received: from pascal.homepc (81.232.177.30) by AM6PR10CA0086.EURPRD10.PROD.OUTLOOK.COM (2603:10a6:209:8c::27) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.4373.17 via Frontend Transport; Mon, 2 Aug 2021 12:16:56 +0000 X-MS-PublicTrafficType: Email X-IncomingHeaderCount: 43 X-EOPAttributedMessage: 0 X-MS-Office365-Filtering-Correlation-Id: d6c4a4f6-3ce0-4a8f-b531-08d955af6c08 X-MS-TrafficTypeDiagnostic: VI1EUR06HT235: X-Microsoft-Antispam: BCL:0; X-Microsoft-Antispam-Message-Info: FXzEx/VKvMM1Yrv9SHk4eDYLYtUC2UafrYdH8PFyEvCNB5r1lypFriy8izaSI4urIN/2f4bz+ZNDawd0Be6haBfNfcT3yS7+G1Usa8JF44PfJ61WvMVfzz02q1oGSPYPrkcUzWBMzdftBl+cdgX2SeSCdgeE/z1GesNweCuYcLfypxpv2WkKWeAsurhLJRsMQKLCFEDSF5PcUtBd6pdqee5thOT2BZoDSgeQI38AeLUc/hkSHzUtSwzGadIhsMK3gxGAIJ/aO0uG9VX5/sgvUzkW7K31bG0UOqxFmg3lyLPhm2EUiJZtWU6vuZG8CNDas4MEdu21fVbIhHbKz+2mAgZrK1HDh46XEbvPhJgrdED5SFOZeqnNrekQNIxEAiWkJc7dWUmgYznfQ32kksQJFj1K4HWuQPUqD2waxEheHa98sID0cTUPd9X0ptjUrIJf X-MS-Exchange-AntiSpam-MessageData-ChunkCount: 1 X-MS-Exchange-AntiSpam-MessageData-0: iS2+O+jQTzP3WpxZtscel3HlQaHtRg7LIpmQDuJ9zAvydiu+F3tNPVBy7hnIzhbz2/sgujg9v5GQ1k7qjPl7+btIKA+UoN0s4xtFmpr3FH8V6A18XLqH4YLFZ7CIfdddEYVTbm6u6/rAr0lvgM0asg== X-OriginatorOrg: live.com X-MS-Exchange-CrossTenant-Network-Message-Id: d6c4a4f6-3ce0-4a8f-b531-08d955af6c08 X-MS-Exchange-CrossTenant-OriginalArrivalTime: 02 Aug 2021 12:16:57.3955 (UTC) X-MS-Exchange-CrossTenant-FromEntityHeader: Hosted X-MS-Exchange-CrossTenant-Id: 84df9e7f-e9f6-40af-b435-aaaaaaaaaaaa X-MS-Exchange-CrossTenant-AuthSource: VI1EUR06FT059.eop-eur06.prod.protection.outlook.com X-MS-Exchange-CrossTenant-AuthAs: Anonymous X-MS-Exchange-CrossTenant-FromEntityHeader: Internet X-MS-Exchange-CrossTenant-RMS-PersistedConsumerOrg: 00000000-0000-0000-0000-000000000000 X-MS-Exchange-Transport-CrossTenantHeadersStamped: VI1EUR06HT235 Received-SPF: pass client-ip=40.92.17.11; envelope-from=arthur.miller@live.com; helo=EUR06-VI1-obe.outbound.protection.outlook.com X-Spam_score_int: -1 X-Spam_score: -0.2 X-Spam_bar: / X-Spam_report: (-0.2 / 5.0 requ) BAYES_20=-0.001, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, 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=ham autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.23 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" Xref: news.gmane.io gmane.emacs.help:132314 Archived-At: I am not sure what I missunderstand here, but something I do. I am trying to test if an object is a keymap, with keymapp in a macro. Nothing fancy, just a small wrapper around define-key function. However, I have to use eval to actually get keymapp to do something, while I don't need to use eval with a listp or functionp predicate. I am not so happy about using eval in there, so I would appreciate if someone can enlighten me what I do wrong here (probably everything :)): #+begin_src emacs-lisp (defmacro with-key-map (mapname &rest body) `(let ((map ,mapname)) (dolist (def '(,@body)) (define-key map (if (vectorp (car def)) (car def) (read-kbd-macro (car def))) (if (or (listp (cdr def)) (functionp (cdr def))) (cdr def) (if (eval `(keymapp ,(cdr def))) (eval (cdr def)))))))) #+end_src