diff options
| author | Alan Pearce | 2016-02-16 14:55:24 +0100 |
|---|---|---|
| committer | Alan Pearce | 2016-02-16 14:55:24 +0100 |
| commit | 48fa52879053991c9d59a70d243bcd470b2196c7 (patch) | |
| tree | 27cc52ba34c49691feb99fe9af7559d8e190768d | |
| parent | 321e46792fd1aed34793b12574550272e77523cb (diff) | |
| download | dotfiles-48fa52879053991c9d59a70d243bcd470b2196c7.tar.lz dotfiles-48fa52879053991c9d59a70d243bcd470b2196c7.tar.zst dotfiles-48fa52879053991c9d59a70d243bcd470b2196c7.zip | |
Emacs: Show compiled file path after tangling
| -rw-r--r-- | tag-emacs/emacs.d/init.org | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org index 182bf8f..90af12a 100644 --- a/tag-emacs/emacs.d/init.org +++ b/tag-emacs/emacs.d/init.org @@ -2431,11 +2431,11 @@ the =org=-document after changes. (message "Tangling init") ;; Avoid running hooks when tangling. (let ((prog-mode-hook nil) - (dest (concat user-emacs-directory "init.el"))) + (dest (expand-file-name "init.el" user-emacs-directory))) (require 'ob-tangle) (org-babel-tangle-file (buffer-file-name) dest) (if (byte-compile-file dest) - dest + (byte-compile-dest-file dest) (with-current-buffer byte-compile-log-buffer (buffer-string)))))) @@ -2450,11 +2450,11 @@ the =org=-document after changes. `(lambda () ;; Avoid running hooks when tangling. (let ((prog-mode-hook nil) - (dest (concat user-emacs-directory "init.el"))) + (dest (expand-file-name "init.el" user-emacs-directory))) (require 'ob-tangle) (org-babel-tangle-file ,(buffer-file-name) dest) (if (byte-compile-file dest) - dest + (byte-compile-dest-file dest) (with-current-buffer byte-compile-log-buffer (buffer-string))))) (lambda (result) |