From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Lennart Borgman (gmail)" Newsgroups: gmane.emacs.help Subject: Re: parametrized function definition Date: Wed, 09 Jul 2008 09:06:30 +0200 Message-ID: <48746376.1000306@gmail.com> References: <87zlosz4n6.fsf@DEBLAP1.BeNet> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: ger.gmane.org 1215587238 9345 80.91.229.12 (9 Jul 2008 07:07:18 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 9 Jul 2008 07:07:18 +0000 (UTC) Cc: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Jul 09 09:08:05 2008 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1KGTmM-00010r-DE for geh-help-gnu-emacs@m.gmane.org; Wed, 09 Jul 2008 09:07:54 +0200 Original-Received: from localhost ([127.0.0.1]:44156 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KGTlU-0004Zr-VK for geh-help-gnu-emacs@m.gmane.org; Wed, 09 Jul 2008 03:07:01 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1KGTlD-0004Zk-VX for help-gnu-emacs@gnu.org; Wed, 09 Jul 2008 03:06:44 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1KGTlC-0004ZT-8Q for help-gnu-emacs@gnu.org; Wed, 09 Jul 2008 03:06:43 -0400 Original-Received: from [199.232.76.173] (port=38939 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KGTlB-0004ZM-Tw for help-gnu-emacs@gnu.org; Wed, 09 Jul 2008 03:06:42 -0400 Original-Received: from mx20.gnu.org ([199.232.41.8]:27710) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1KGTlB-0004qw-Il for help-gnu-emacs@gnu.org; Wed, 09 Jul 2008 03:06:41 -0400 Original-Received: from ch-smtp01.sth.basefarm.net ([80.76.149.212]) by mx20.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1KGTlA-00070W-0N for help-gnu-emacs@gnu.org; Wed, 09 Jul 2008 03:06:40 -0400 Original-Received: from c83-254-145-59.bredband.comhem.se ([83.254.145.59]:59495 helo=[127.0.0.1]) by ch-smtp01.sth.basefarm.net with esmtp (Exim 4.68) (envelope-from ) id 1KGTl8-0000sz-64 for help-gnu-emacs@gnu.org; Wed, 09 Jul 2008 09:06:39 +0200 User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.9) Gecko/20071031 Thunderbird/2.0.0.9 Mnenhy/0.7.5.666 In-Reply-To: <87zlosz4n6.fsf@DEBLAP1.BeNet> X-Antivirus: avast! (VPS 080708-0, 2008-07-08), Outbound message X-Antivirus-Status: Clean X-Originating-IP: 83.254.145.59 X-Scan-Result: No virus found in message 1KGTl8-0000sz-64. X-Scan-Signature: ch-smtp01.sth.basefarm.net 1KGTl8-0000sz-64 4c23c4876ad659a84877b2ae5b83f42a X-detected-kernel: by mx20.gnu.org: Linux 2.6? (barebone, rare!) X-detected-kernel: by monty-python.gnu.org: Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:55330 Archived-At: Joe Bloggs wrote: > Hi, I am trying to write a function that allows me to quickly bind a key combination > to insert arbitrary text: > > (defun set-local-key-insert () > "set a local key to insert some text" > (interactive) > (let (keystring textinsert) > (setq keystring (read-key-sequence "Key combination to bind: ")) > (setq textinsert (read-string "Text to insert: ")) > (local-set-key (read-kbd-macro keystring) (lambda () (interactive) (insert textinsert))) > ) > ) > > However, this doesn't work since textinsert is not evaluated until the function is called with the keybinding. How can I get this to work properly? I am new to elisp so I imagine it's very simple. You can remove textinsert from let and make it a defvar instead. (defvar textinsert nil)