From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Miles Bader Newsgroups: gmane.emacs.devel Subject: Re: substitute-key-definition vs. define-key MAP [remap ...] Date: Fri, 23 Jul 2010 18:32:55 +0900 Message-ID: References: <871vb517a6.fsf@mithlond.arda> <87aapiyhzo.fsf@uwakimon.sk.tsukuba.ac.jp> Reply-To: Miles Bader NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1279877596 16094 80.91.229.12 (23 Jul 2010 09:33:16 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Fri, 23 Jul 2010 09:33:16 +0000 (UTC) Cc: "Stephen J. Turnbull" , Teemu Likonen , emacs-devel@gnu.org To: Stefan Monnier Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Jul 23 11:33:13 2010 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1OcEcy-0003Ev-Rx for ged-emacs-devel@m.gmane.org; Fri, 23 Jul 2010 11:33:13 +0200 Original-Received: from localhost ([127.0.0.1]:36930 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OcEcx-00012c-V2 for ged-emacs-devel@m.gmane.org; Fri, 23 Jul 2010 05:33:12 -0400 Original-Received: from [140.186.70.92] (port=60057 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OcEco-00011H-0p for emacs-devel@gnu.org; Fri, 23 Jul 2010 05:33:03 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OcEcl-0007kG-Mz for emacs-devel@gnu.org; Fri, 23 Jul 2010 05:33:01 -0400 Original-Received: from tyo202.gate.nec.co.jp ([202.32.8.206]:53156) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OcEcl-0007jm-5v; Fri, 23 Jul 2010 05:32:59 -0400 Original-Received: from mailgate3.nec.co.jp ([10.7.69.195]) by tyo202.gate.nec.co.jp (8.13.8/8.13.4) with ESMTP id o6N9WvYM024450; Fri, 23 Jul 2010 18:32:57 +0900 (JST) Original-Received: (from root@localhost) by mailgate3.nec.co.jp (8.11.7/3.7W-MAILGATE-NEC) id o6N9Wu124870; Fri, 23 Jul 2010 18:32:56 +0900 (JST) Original-Received: from relay41.aps.necel.com ([10.29.19.9]) by vgate01.nec.co.jp (8.11.7/3.7W-MAILSV-NEC) with ESMTP id o6N9Wt429850; Fri, 23 Jul 2010 18:32:55 +0900 (JST) Original-Received: from relay31.aps.necel.com ([10.29.19.103] [10.29.19.103]) by relay41.aps.necel.com with ESMTP; Fri, 23 Jul 2010 18:32:55 +0900 Original-Received: from dhlpc061 ([10.114.112.180] [10.114.112.180]) by relay31.aps.necel.com with ESMTP; Fri, 23 Jul 2010 18:32:55 +0900 Original-Received: by dhlpc061 (Postfix, from userid 31295) id 9B19252E221; Fri, 23 Jul 2010 18:32:55 +0900 (JST) System-Type: x86_64-unknown-linux-gnu Blat: Foop In-Reply-To: (Stefan Monnier's message of "Fri, 23 Jul 2010 11:26:47 +0200") Original-Lines: 32 X-detected-operating-system: by eggs.gnu.org: Solaris 8 (1) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:127688 Archived-At: Stefan Monnier writes: > The `remap' thingy operates at the level of `key-binding'. I.e. after > the command loop reads a key-sequence, it looks it up in the keymaps to > turn the key-sequence into a command, and then it looks this up in the > `remap' sub-keymap(s) to see if it got remapped. And it's _extremely_ handy for some uses... e.g., one of my favorite tricks is little minor-modes that bind [remap self-insert-command]... E.g.: ;;; caps-lock-mode, Miles Bader (defvar caps-lock-mode-map (let ((map (make-sparse-keymap))) (define-key map [remap self-insert-command] 'self-insert-upcased) map)) (define-minor-mode caps-lock-mode "When enabled, convert all self-inserting characters to uppercase." :lighter " CapsLock") (defun self-insert-upcased (arg) (interactive "p") (setq last-command-char (upcase last-command-char)) (self-insert-command arg)) -miles -- Politics, n. A strife of interests masquerading as a contest of principles. The conduct of public affairs for private advantage.