From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Thien-Thi Nguyen <ttn@glug.org>
Newsgroups: gmane.emacs.help
Subject: Re: compile-command customisation
Date: Wed, 23 Feb 2005 16:44:05 +0100
Organization: sometimes
Message-ID: <7ed5ur9t8a.fsf@ada2.unipv.it>
References: <mailman.1248.1109165001.32256.help-gnu-emacs@gnu.org>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1109173680 5857 80.91.229.2 (23 Feb 2005 15:48:00 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Wed, 23 Feb 2005 15:48:00 +0000 (UTC)
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed Feb 23 16:48:00 2005
Original-Received: from lists.gnu.org ([199.232.76.165])
	by ciao.gmane.org with esmtp (Exim 4.43)
	id 1D3yjt-00024r-CZ
	for geh-help-gnu-emacs@m.gmane.org; Wed, 23 Feb 2005 16:47:49 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1D3z1G-0001Kw-Kk
	for geh-help-gnu-emacs@m.gmane.org; Wed, 23 Feb 2005 11:05:46 -0500
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!postnews.google.com!news1.google.com!newsread.com!news-xfer.newsread.com!newspeer.monmouth.com!news-FFM2.ecrc.net!uio.no!quimby.gnus.org!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 25
Original-NNTP-Posting-Host: ada2.unipv.it
Original-X-Trace: quimby.gnus.org 1109173444 2385 193.204.44.145 (23 Feb 2005 15:44:04
	GMT)
Original-X-Complaints-To: usenet@quimby.gnus.org
Original-NNTP-Posting-Date: Wed, 23 Feb 2005 15:44:04 +0000 (UTC)
User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (gnu/linux)
Cancel-Lock: sha1:4HCaTYhjU/JXWt+AzCwbzxX0hgQ=
Original-Xref: shelby.stanford.edu gnu.emacs.help:128743
Original-To: help-gnu-emacs@gnu.org
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 <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=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
X-MailScanner-To: geh-help-gnu-emacs@m.gmane.org
Xref: main.gmane.org gmane.emacs.help:24280
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:24280

Daniel Wright <daniel.d.wright@gmail.com> writes:

> how it could be done better :)

some standard tips:

(if CONDITION (progn EXP ...))
=> (when CONDITION EXP ...)

(unless CONDITION (progn EXP ...))
=> (unless CONDITION EXP ...)

you can lift `file-name-sans-extension', like so:

(... (file-name-sans-extension file)
 ... (file-name-sans-extension file) ...)
=> (let ((fn-noext (file-name-sans-extension file)))
     (... fn-noext
      ... fn-noext ...))

generally, these transforms do not change your algorithm,
so it is only better in the sense that it is more easy to
read.  improving the algorithm is your sack of joy to haul.

thi