branch: externals/buffer-expose
commit f3fd7fa95c2aa2aa6560d9fa5d3d1fe883f69819
Author: Clemens Radermacher <[email protected]>
Commit: Clemens Radermacher <[email protected]>
Add command omitting star buffers
---
buffer-expose.el | 13 +++++++++++++
1 file changed, 13 insertions(+)
diff --git a/buffer-expose.el b/buffer-expose.el
index 43e3dcf..2468aa5 100644
--- a/buffer-expose.el
+++ b/buffer-expose.el
@@ -744,6 +744,19 @@ show per page, which defaults to
`buffer-expose-max-num-windows'."
(nreverse (buffer-list)))
max))
+(defun buffer-expose-no-stars (&optional max)
+ "Expose buffers of `buffer-list' omitting *special* ones.
+
+If MAX is given it determines the maximum number of windows to
+show per page, which defaults to
+`buffer-expose-max-num-windows'."
+ (interactive "P")
+ (buffer-expose-show-buffers
+ (cl-remove-if (lambda (buf)
+ (string-match "\\`*" (buffer-name buf)))
+ (buffer-list))
+ max))
+
(defun buffer-expose-dired-buffers (&optional max)
"Expose dired buffers of `buffer-list'.
