summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorAlan Pearce2016-02-16 14:55:24 +0100
committerAlan Pearce2016-02-16 14:55:24 +0100
commit48fa52879053991c9d59a70d243bcd470b2196c7 (patch)
tree27cc52ba34c49691feb99fe9af7559d8e190768d
parent321e46792fd1aed34793b12574550272e77523cb (diff)
downloadnixfiles-48fa52879053991c9d59a70d243bcd470b2196c7.tar.lz
nixfiles-48fa52879053991c9d59a70d243bcd470b2196c7.tar.zst
nixfiles-48fa52879053991c9d59a70d243bcd470b2196c7.zip
Emacs: Show compiled file path after tangling
-rw-r--r--tag-emacs/emacs.d/init.org8
1 files changed, 4 insertions, 4 deletions
diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 182bf8f8..90af12aa 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)