[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Bug when compiling elc code?
From: |
Sven Joachim |
Subject: |
Re: Bug when compiling elc code? |
Date: |
Wed, 08 Aug 2007 16:59:41 +0200 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.1.50 (gnu/linux) |
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)))
Message not available