diff options
| -rw-r--r-- | .config/emacs/config.org | 33 |
1 files changed, 16 insertions, 17 deletions
diff --git a/.config/emacs/config.org b/.config/emacs/config.org index d967b34..ed5ba86 100644 --- a/.config/emacs/config.org +++ b/.config/emacs/config.org @@ -1118,18 +1118,17 @@ directories just get created automatically. also sets a buffer-local variable so that the user will be prompted to delete the newly created directories if they kill the buffer without saving it." (let (dirs-to-delete) - (unless (file-exists-p filename) - (let* ((dir-to-create (file-name-directory filename)) - (current-dir dir-to-create)) - ;; We want to go up each directory component and add them to - ;; ‘dirs-to-delete’ individually. - (while (not (file-exists-p current-dir)) - (push current-dir dirs-to-delete) - (setq current-dir (file-name-directory - (directory-file-name current-dir)))) - - (unless (file-exists-p dir-to-create) - (make-directory dir-to-create t)))) + (let* ((dir-to-create (file-name-directory filename)) + (current-dir dir-to-create)) + ;; We want to go up each directory component and add them to + ;; ‘dirs-to-delete’ individually. + (while (not (file-exists-p current-dir)) + (push current-dir dirs-to-delete) + (setq current-dir (file-name-directory + (directory-file-name current-dir)))) + + (unless (file-exists-p dir-to-create) + (make-directory dir-to-create t))) ;; Use ‘prog1’ so that we maintain the original return value (prog1 (apply original-function filename args) @@ -1153,13 +1152,13 @@ directories just get created automatically. ‘kill-buffer-hook’. If ‘mango--auto-create-directories’ created the directory containing the file for the current buffer automatically, then offer to delete it. Otherwise, do nothing. Also clean up related hooks." - (when (not (file-exists-p buffer-file-name)) + (unless (file-exists-p buffer-file-name) (dolist (dir-to-delete mango--dirs-to-delete) (when (and (stringp dir-to-delete) - (file-exists-p dir-to-delete)) - (when (y-or-n-p (format "Also delete directory ‘%s’?" - (directory-file-name dir-to-delete))) - (delete-directory dir-to-delete)))))) + (file-exists-p dir-to-delete) + (y-or-n-p (format "Also delete directory ‘%s’?" + (directory-file-name dir-to-delete)))) + (delete-directory dir-to-delete))))) (defun mango--remove-auto-directory-hooks () "Clean up directory-deletion hooks, if necessary." |