diff --git a/README.org b/README.org index 4a965eb..e30bfa2 100644 --- a/README.org +++ b/README.org @@ -2403,9 +2403,11 @@ May be changed by `toggle-post-tangle-hook-dir-usage'." "Function to hook on `org-babel-post-tangle-hook'." (when (and org-babel-post-tangle-dir (derived-mode-p org-babel-post-tangle-dir-modes)) - (message "Tangle `%S' modes into `%S'" - org-babel-post-tangle-dir-modes org-babel-post-tangle-dir) - (rename-file (buffer-file-name) org-babel-post-tangle-dir t))) + (let ((bfn (buffer-file-name))) + (unless (string-suffix-p "init.el" bfn) + (message "Tangle file `%S' into `%S'" + (file-name-nondirectory bfn) org-babel-post-tangle-dir) + (rename-file bfn org-babel-post-tangle-dir t))))) (defun toggle-post-tangle-hook-dir-usage () "Toggle tangling to `org-babel-post-tangle-dir'."