From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Stefan Monnier Newsgroups: gmane.emacs.help Subject: Re: Browse skeleton positions Date: Fri, 31 Oct 2003 17:28:54 GMT Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Message-ID: References: <87vfqnygi7.fsf@newsguy.com> <877k32jumc.fsf@newsguy.com> <87k76muvma.fsf@newsguy.com> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1067621658 30024 80.91.224.253 (31 Oct 2003 17:34:18 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 31 Oct 2003 17:34:18 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Oct 31 18:34:16 2003 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AFdA7-0003mw-00 for ; Fri, 31 Oct 2003 18:34:16 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1AFd8g-0001Lq-K0 for geh-help-gnu-emacs@m.gmane.org; Fri, 31 Oct 2003 12:32:46 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!cyclone.bc.net!snoopy.risq.qc.ca!charlie.risq.qc.ca!53ab2750!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 36 User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50 Original-NNTP-Posting-Host: 132.204.24.42 Original-X-Complaints-To: abuse@umontreal.ca Original-X-Trace: charlie.risq.qc.ca 1067621334 132.204.24.42 (Fri, 31 Oct 2003 12:28:54 EST) Original-NNTP-Posting-Date: Fri, 31 Oct 2003 12:28:54 EST Original-Xref: shelby.stanford.edu gnu.emacs.help:117765 Original-To: help-gnu-emacs@gnu.org X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.2 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.org@gnu.org Xref: main.gmane.org gmane.emacs.help:13699 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:13699 > (defconst skeleton-position-mode-map > (let ((kmap (make-sparse-keymap))) > (suppress-keymap kmap) > (define-key kmap "q" 'turn-off-skeleton-position-mode) > (define-key kmap "\C-m" 'skeleton-position-exit) > (define-key kmap "n" 'skeleton-position-next) > (define-key kmap "p" 'skeleton-position-prev) > (define-key kmap "a" 'skeleton-position-first) > (define-key kmap "z" 'skeleton-position-last) > kmap) > "Keymap used in Skeleton Position mode.") > (defconst skeleton-position-carpal-mode-map > (let ((kmap (make-sparse-keymap))) > (define-key kmap "\C-c+q" 'turn-off-skeleton-position-carpal-mode) > (define-key kmap "\C-c+\C-m" 'skeleton-position-carpal-exit) > (define-key kmap "\C-c+n" 'skeleton-position-carpal-next) > (define-key kmap "\C-c+p" 'skeleton-position-carpal-prev) > (define-key kmap "\C-c+a" 'skeleton-position-carpal-first) > (define-key kmap "\C-c+z" 'skeleton-position-carpal-last) > kmap) > "Keymap used in Skeleton Position Carpal mode.") How 'bout: (defvar s-p-c-prefix [?\C-c ?+]) (defvar s-p-c-m-m (let ((map (make-sparse-keymap))) (define-key map s-p-c-prefix skeleton-position-mode-map))) So you avoid redundancy. The prefix variable is so that people can use another prefix (ESC is often a good choice for some users although it's a bad default choice). -- Stefan