From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: kai.grossjohann@uni-duisburg.de (Kai =?iso-8859-1?q?Gro=DFjohann?=)
Newsgroups: gmane.emacs.help
Subject: Re: Key binding
Date: Mon, 25 Nov 2002 10:48:46 +0100
Organization: University of Dortmund, Germany
Sender: help-gnu-emacs-admin@gnu.org
Message-ID: <84el9adloh.fsf@lucy.cs.uni-dortmund.de>
References: <arrcra$4cg$01$1@news.t-online.com>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1038217789 453 80.91.224.249 (25 Nov 2002 09:49:49 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 25 Nov 2002 09:49:49 +0000 (UTC)
Return-path: <help-gnu-emacs-admin@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 18GFsB-00006s-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Mon, 25 Nov 2002 10:49:47 +0100
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10)
	id 18GFtl-0008Aa-00; Mon, 25 Nov 2002 04:51:25 -0500
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!logbridge.uoregon.edu!fu-berlin.de!uni-berlin.de!lucy.informatik.uni-duisburg.DE!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 14
Original-NNTP-Posting-Host: lucy.informatik.uni-duisburg.de (134.91.35.216)
Original-X-Trace: fu-berlin.de 1038217726 21804318 134.91.35.216 (16 [73968])
User-Agent: Gnus/5.090008 (Oort Gnus v0.08) Emacs/21.3.50
 (i686-pc-linux-gnu)
Cancel-Lock: sha1:8fnIjMydd6fd/M10fM+bF8tRgx0=
Original-Xref: shelby.stanford.edu gnu.emacs.help:107406
Original-To: help-gnu-emacs@gnu.org
Errors-To: help-gnu-emacs-admin@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
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-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs/>
Xref: main.gmane.org gmane.emacs.help:3957
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:3957

Florian Lindner <Florian.Lindner@xgm.de> writes:

> (define-key pascal-mode-map "\C-c\v" '(shell-command 
> (file-name-sans-extension (buffer-file-name))))

(defun fl-execute-current-buffer ()
  "doc string here"
  (interactive)
  (shell-command (file-name-sans-extension (buffer-file-name))))
(define-key pascal-mode-map (kbd "C-c v") 'fl-execute-current-buffer)

kai
-- 
~/.signature is: umop ap!sdn    (Frank Nobis)