Re: Bug when compiling elc code?

[Sven Joachim]

bojohan+news@dd.chalmers.se (Johan Bockgård) writes:

> Sven Joachim <svenjoac@gmx.de> writes:
>
>>     (let ((old-mode (default-file-modes)))
>>       (set-default-file-modes (file-modes buffer-file-name))
>>       (byte-compile-file buffer-file-name)
>>       (set-default-file-modes old-mode)))
>
> You should use `unwind-protect' here.

Right, thanks.  Is the following okay?

(add-hook 'emacs-lisp-mode-hook
          '(lambda ()
             (make-local-hook 'after-save-hook)
             (add-hook 'after-save-hook
                       '(lambda ()
                          (let ((old-mode (default-file-modes)))
                            (unwind-protect
                                (progn
                                  (set-default-file-modes (file-modes 
buffer-file-name))
                                  (byte-compile-file buffer-file-name))
                              (set-default-file-modes old-mode))))
                       nil t)))