diff options
| author | Sean Allred <code@seanallred.com> | 2015-01-02 22:15:44 -0500 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2015-01-02 22:15:44 -0500 |
| commit | 52a8682c762bdc5e2e8d3a9ccc2eb527556f58ad (patch) | |
| tree | 9c28faef8b0f040c930d7e84da2938528e3b1493 /bot/sx-bot.el | |
| parent | b5e4da2a4b6f59e28b1aca11f7dad9323df1a8fe (diff) | |
Message actions
Diffstat (limited to 'bot/sx-bot.el')
| -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 () |