diff options
| -rw-r--r-- | bot/sx-bot.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/bot/sx-bot.el b/bot/sx-bot.el index e80894f..be12089 100644 --- a/bot/sx-bot.el +++ b/bot/sx-bot.el @@ -37,9 +37,11 @@ (defun sx-bot-write-to-file (data) "Write (cdr DATA) to file named (car DATA). File is savedd in `sx-bot-out-dir'." - (with-temp-file (expand-file-name (car data) sx-bot-out-dir) - (let (print-length) - (prin1 (cdr data) (current-buffer))))) + (let ((file-name (expand-file-name (car data) sx-bot-out-dir))) + (message "Writing %S" file-name) + (with-temp-file file-name + (let (print-length) + (prin1 (cdr data) (current-buffer)))))) (defun sx-bot-fetch-and-write-tags () |