[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: trunk r117969: Font-lock `cl-flet*', too.

From: Leo Liu
Subject: Re: trunk r117969: Font-lock `cl-flet*', too.
Date: Mon, 29 Sep 2014 15:13:35 +0800
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4.50 (CentOS 6.5)

On 2014-09-29 14:41 +0800, Leo Liu wrote:
> +                           (lambda (f)
> +                             (and (memq f deps) (throw 'exit t))
> +                             f))

Can cause infinite loop if f is a lambda. So I have changed this
expansion to something like:

(lambda (f)
  (cond ((memq f deps) (throw 'exit t))
        ((symbolp f) f)
        ;; Fail on the safe side.
        (t (throw 'exit t))))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]