etc: indent-code.el: Define source tree by "indent-code.el".

* etc/indent-code.el.in: Set default directory by "indent-code.el"
itself, otherwise it works only when called from the top directory of
the guix source tree.
This commit is contained in:
Alex Kost 2017-04-28 16:07:33 +03:00
parent 8ca0c88a89
commit 97658183ed
No known key found for this signature in database
GPG Key ID: 82460C082A0EE98F
1 changed files with 2 additions and 2 deletions

View File

@ -26,10 +26,10 @@
;;; Code: ;;; Code:
;; Load Scheme indentation rules from the current directory. ;; Load Scheme indentation rules from ".dir-locals.el".
(with-temp-buffer (with-temp-buffer
(scheme-mode) (scheme-mode)
(let ((default-directory (file-name-as-directory ".")) (let ((default-directory (file-name-as-directory load-file-name))
(enable-local-variables :all)) (enable-local-variables :all))
(hack-dir-local-variables) (hack-dir-local-variables)
(hack-local-variables-apply))) (hack-local-variables-apply)))