[elpa] externals/buffer-expose f3fd7fa 13/38: Add command omitting star buffers

[Clemens Radermacher]

branch: externals/buffer-expose
commit f3fd7fa95c2aa2aa6560d9fa5d3d1fe883f69819
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    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'.