Guest User

Untitled

a guest
Oct 19th, 2018
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.51 KB | None | 0 0
  1. (defun my/elfeed-search-quit-and-kill-buffers ()
  2. "Save the database, then kill elfeed buffers, asking the user
  3. for confirmation when needed."
  4. (interactive)
  5. (elfeed-db-save)
  6. (let (buf)
  7. (dolist (file rmh-elfeed-org-files)
  8. (setq buf (file-name-nondirectory file))
  9. (when (and (buffer-modified-p buf)
  10. file
  11. (y-or-n-p (format "Save file %s? " file)))
  12. (with-current-buffer buf (save-buffer)))
  13. (kill-buffer buf)))
  14. (kill-buffer "*elfeed-log*")
  15. (kill-buffer (current-buffer)))
Add Comment
Please, Sign In to add comment