Re: address@hidden: Re: compile and the current directory]

[Richard Stallman]

    +  (let (olddir default-directory)
    +    (unless (eq compilation-directory nil)
    +      (setq default-directory compilation-directory))
    +    (apply 'compile-internal (or compilation-arguments
    +                            `(,(eval compile-command) "No more errors")))
    +    (setq default-directory olddir)))

This is a roundabout and unreliable way to bind default-directory.
Why not just bind it with let?

  (let ((default-directory (or compilation-directory default-directory)))
    (apply 'compile-internal (or compilation-arguments
           `(,(eval compile-command) "No more errors"))))