From 48fa52879053991c9d59a70d243bcd470b2196c7 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Tue, 16 Feb 2016 14:55:24 +0100
Subject: Emacs: Show compiled file path after tangling

---
 tag-emacs/emacs.d/init.org | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'tag-emacs')

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)
-- 
cgit 1.4.1