From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: "Stefan Monnier" <monnier+gnu.emacs.help/news/@flint.cs.yale.edu>
Newsgroups: gmane.emacs.help
Subject: Re: Creating a "shortcut" key for "C-c C-"
Date: 22 Apr 2003 10:38:42 -0400
Organization: Yale University
Sender: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Message-ID: <5llly2k365.fsf@rum.cs.yale.edu>
References: <wk4r4re1pi.fsf@attbi.com>
	<8465p7oy5q.fsf@lucy.is.informatik.uni-duisburg.de>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1051022921 8418 80.91.224.249 (22 Apr 2003 14:48:41 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Tue, 22 Apr 2003 14:48:41 +0000 (UTC)
Original-X-From: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org Tue Apr 22 16:48:38 2003
Return-path: <help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 197z4X-0002BU-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Tue, 22 Apr 2003 16:48:37 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10.13)
	id 197z1f-0002TJ-08
	for gnu-help-gnu-emacs@m.gmane.org; Tue, 22 Apr 2003 10:45:39 -0400
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!logbridge.uoregon.edu!news.ycc.yale.edu!rum.cs.yale.edu!rum.cs.yale.edu
Original-Newsgroups: gnu.emacs.help
Original-Lines: 19
Original-NNTP-Posting-Host: rum.cs.yale.edu
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50
X-Original-NNTP-Posting-Host: rum.cs.yale.edu
X-Original-Trace: 22 Apr 2003 10:38:42 -0400, rum.cs.yale.edu
Original-Xref: shelby.stanford.edu gnu.emacs.help:112181
Original-To: help-gnu-emacs@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1b5
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
Errors-To: help-gnu-emacs-bounces+gnu-help-gnu-emacs=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.emacs.help:8680
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:8680

> Maybe it works to do
> (global-set-key (kbd "<f4>") (kbd "C-c C-x @ c"))

That won't work: the C-x @ c thingy works in function-key-map,
i.e. before almost all keymaps.
Furthermore, (define-key function-key-map [f8] "\C-c\C-x@c") won't work
either because the output of function-key-map is not fed back to
function-key-map.
And I can't think of any map that applies before function-key-map and
that can do such mapping.

But you can do:

   (defun C-cC- (prompt)
     (vconcat "\C-c" (event-apply-control-modifier prompt)))
   (define-key function-key-map [f8] 'C-cC-)


        Stefan