From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas Schwab Newsgroups: gmane.emacs.devel Subject: Re: easy-menu subtlety Date: Wed, 20 Feb 2008 17:32:56 +0100 Message-ID: References: <200802201601.m1KG19WW029916@sallyv1.ics.uci.edu> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1203525371 23480 80.91.229.12 (20 Feb 2008 16:36:11 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 20 Feb 2008 16:36:11 +0000 (UTC) Cc: emacs-devel@gnu.org To: Dan Nicolaescu Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Feb 20 17:36:35 2008 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JRrvu-0007Sy-C6 for ged-emacs-devel@m.gmane.org; Wed, 20 Feb 2008 17:36:34 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JRrvP-0002HM-Ci for ged-emacs-devel@m.gmane.org; Wed, 20 Feb 2008 11:36:03 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1JRrsZ-0006ta-6u for emacs-devel@gnu.org; Wed, 20 Feb 2008 11:33:07 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1JRrsX-0006qY-G4 for emacs-devel@gnu.org; Wed, 20 Feb 2008 11:33:06 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JRrsX-0006qQ-B6 for emacs-devel@gnu.org; Wed, 20 Feb 2008 11:33:05 -0500 Original-Received: from ns.suse.de ([195.135.220.2] helo=mx1.suse.de) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1JRrsV-0007TG-Vi for emacs-devel@gnu.org; Wed, 20 Feb 2008 11:33:04 -0500 Original-Received: from Relay2.suse.de (mail2.suse.de [195.135.221.8]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by mx1.suse.de (Postfix) with ESMTP id A09F33151F; Wed, 20 Feb 2008 17:32:59 +0100 (CET) X-Yow: I just got my PRINCE bumper sticker.. But now I can't remember WHO he is... In-Reply-To: <200802201601.m1KG19WW029916@sallyv1.ics.uci.edu> (Dan Nicolaescu's message of "Wed\, 20 Feb 2008 08\:01\:09 -0800") User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.1 (gnu/linux) X-detected-kernel: by monty-python.gnu.org: Linux 2.4-2.6 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:89701 Archived-At: Dan Nicolaescu writes: > The last 3 lines of this code sequence in lisp/progmodes/verilog-mode.e= l: > > ("Move" > ,(if (featurep 'xemacs) > (progn=20 > ["Beginning of function" verilog-beg-of-defun t] > ["End of function" verilog-end-of-defun t] > ["Mark function" verilog-mark-defun t]) > ["Beginning of function" beginning-of-defun t] > ["End of function" end-of-defun t] > ["Mark function" mark-defun t]) That looks completely bogus to me. The result of the evaluation of the form is a single vector, with the other two just thrown away. I think the intention was to write this: ("Move" ,@(if (featurep 'xemacs) '(["Beginning of function" verilog-beg-of-defun t] ["End of function" verilog-end-of-defun t] ["Mark function" verilog-mark-defun t]) '(["Beginning of function" beginning-of-defun t] ["End of function" end-of-defun t] ["Mark function" mark-defun t])) Andreas. --=20 Andreas Schwab, SuSE Labs, schwab@suse.de SuSE Linux Products GmbH, Maxfeldstra=DFe 5, 90409 N=FCrnberg, Germany PGP key fingerprint =3D 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED= 5 "And now for something completely different."