helpful

commit 7996eeb166612f025496daedc90db89dd305f38b
parent eb27d77e35f19b2b2e31d6954d57b446f8864559
Author: Wilfred Hughes <me@wilfred.me.uk>
Date:   Mon, 11 Dec 2017 23:00:18 +0000

Add a cleanup command helpful-kill-buffers

Diffstat:
M
CHANGELOG.md
 | 
2
++
M
helpful.el
 | 
7
+++++++

2 files changed, 9 insertions(+), 0 deletions(-)
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -15,6 +15,8 @@ Fixed an issue where calling helpful commands on interactively defined
 functions would overwrite unrelated buffers. Fixed a crash with
 interactively defined functions being edebugged.
 
+Added a cleanup command `helpful-kill-buffers`.
+
 # v0.3
 
 Fixed a crash on autoloaded functions that aren't loaded yet.
diff --git a/helpful.el b/helpful.el
@@ -1005,6 +1005,13 @@ See also `helpful-callable' and `helpful-variable'."
   (interactive)
   (helpful--forward-button -1))
 
+(defun helpful-kill-buffers ()
+  "Kill all `helpful-mode' buffers."
+  (interactive)
+  (dolist (buffer (buffer-list))
+    (when (eq (buffer-local-value 'major-mode buffer) 'helpful-mode)
+      (kill-buffer buffer))))
+
 (define-key helpful-mode-map (kbd "g") #'helpful-update)
 (define-key helpful-mode-map (kbd "RET") #'helpful-visit-reference)