From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Lennart Borgman Newsgroups: gmane.emacs.devel Subject: Re: Function for deleting a key binding in a sparse keymap Date: Mon, 12 Dec 2005 02:41:16 +0100 Message-ID: <439CD53C.1070500@student.lu.se> References: <3cc04a73cc1b1a.3cc1b1a3cc04a7@net.lu.se> <43987D21.4070200@student.lu.se> <4398C8F2.8060301@student.lu.se> <4399E538.2080909@student.lu.se> <439B688C.1090207@student.lu.se> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1134353596 5997 80.91.229.2 (12 Dec 2005 02:13:16 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 12 Dec 2005 02:13:16 +0000 (UTC) Cc: storm@cua.dk, monnier@iro.umontreal.ca, emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Dec 12 03:13:11 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1EldA4-0008Ke-Oi for ged-emacs-devel@m.gmane.org; Mon, 12 Dec 2005 03:11:33 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1EldAH-0000ls-0G for ged-emacs-devel@m.gmane.org; Sun, 11 Dec 2005 21:11:45 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Elcoa-0002re-1t for emacs-devel@gnu.org; Sun, 11 Dec 2005 20:49:20 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Elcii-0007yk-67 for emacs-devel@gnu.org; Sun, 11 Dec 2005 20:43:18 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1ElchJ-0007Cs-Uw for emacs-devel@gnu.org; Sun, 11 Dec 2005 20:41:50 -0500 Original-Received: from [81.228.11.159] (helo=pne-smtpout2-sn1.fre.skanova.net) by monty-python.gnu.org with esmtp (Exim 4.34) id 1Elciv-00087f-EO; Sun, 11 Dec 2005 20:43:29 -0500 Original-Received: from [192.168.123.121] (83.249.218.244) by pne-smtpout2-sn1.fre.skanova.net (7.2.069.1) id 43995FC6000936F7; Mon, 12 Dec 2005 02:41:17 +0100 User-Agent: Mozilla Thunderbird 1.0.7 (Windows/20050923) X-Accept-Language: en-us, en Original-To: rms@gnu.org In-Reply-To: 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:47503 Archived-At: Richard M. Stallman wrote: >But even better, don't use labels! Gotos are not a clear way to >express a program. It would be clearer to try to express this as > > (if overriding-terminal-local-map > (look-in overriding-terminal-local-map) > (if overriding-local-map > (look-in overriding-local-map) > (look-in (get-char-property (point) 'keymap)) > etc.)) > >which involves no labels or gotos. > > I a little bit doubt it is readable outside a buffer in Emacs-Lisp mode. Here is a version I have made to see how it looks: (unless (FIND-IN special-event-map) (if overriding-terminal-local-map (FIND-IN overriding-terminal-local-map) (if overriding-local-map (FIND-IN overriding-local-map) (unless (FIND-IN (KEYMAP-PROPERTY-AT-POINT)) (unless (FIND-IN-ANY EMULATION-MODE-MAP-ALISTS) (unless (FIND-IN-ANY minor-mode-overriding-map-alist) (unless (FIND-IN-ANY minor-mode-map-alist) (unless (FIND-IN (LOCAL-MAP-PROPERTY-AT-POINT)) (FIND-IN (current-local-map)))))))))) (unless FOUND (FIND-IN (current-global-map))) I think it would need some explanation too.