Re: cperl-mode instead of perl-mode? (was Re: perl-mode indent bug)

[Randal L. Schwartz]

>>>>> "Stuart" == Stuart D Herring <address@hidden> writes:

Randal> (while (let ((pm (rassoc 'perl-mode interpreter-mode-alist)))
Randal> (and pm (setcdr pm 'cperl-mode))))
>> 
>> Heh.  Just realized the (and ..) in there is vestigial.  Nothing like
>> posting
>> code to force you to do a code-review about 20 seconds too late.

Stuart> How is that vestigial?  If you've run out of hits, pm will be nil, but
Stuart> because you're still inside the let, the while can't exit.  So you need 
to
Stuart> test pm, use it if it's not nil, and evaluate to nil if it is so the 
loop
Stuart> will exit.  So what you have is fine, although I might recommend

Stuart> (let (pm)
Stuart>   (while (setq pm (rassoc ...))
Stuart>     (setcdr pm ...)))

It's vestigial because my brain has parts that aren't linked
to anything else.

Thanks for explaining what I probably figured out originally. :)

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<address@hidden> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!