[elpa] externals/pulsar c29b5f31c9 2/5: Merge pull request #16 from shipmints/pulsar--on-performance-2

[ELPA Syncer]

branch: externals/pulsar
commit c29b5f31c9f6453f21f776273d3c371bd5f76d0c
Merge: 20e04bd5ca 581638b1ab
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #16 from shipmints/pulsar--on-performance-2
    
    Inhibit pulsar-mode in hidden buffers to further improve performance.
---
 pulsar.el | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

diff --git a/pulsar.el b/pulsar.el
index c9cee4a4dc..dae5d99397 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -148,6 +148,17 @@ This allows pulsar to respect, e.g., `tab-new' \"parent,\"
   :package-version '(pulsar . "1.1.0")
   :group 'pulsar)
 
+(defcustom pulsar-inhibit-hidden-buffers t
+  "When non-nil, `pulsar-mode' will not be enabled in hidden buffers.
+Hidden buffers are those with names that start with a space character.
+
+This handles cases such as:
+`eldoc' buffers in `special-mode'; e.g., \" *eldoc*\"
+or `diff-hl-mode` buffers; e.g., \" *diff-hl-diff*\"."
+  :type 'boolean
+  :package-version '(pulsar . "1.2.0")
+  :group 'pulsar)
+
 (make-obsolete 'pulsar-pulse-on-window-change nil "0.5.0")
 
 (defcustom pulsar-face 'pulsar-generic
@@ -480,10 +491,11 @@ This is a buffer-local mode.  Also check 
`pulsar-global-mode'."
 
 (defun pulsar--on ()
   "Enable `pulsar-mode'."
-  (unless (minibufferp)
+  (unless (or pulsar-mode
+              (minibufferp)
+              (and pulsar-inhibit-hidden-buffers (string-prefix-p " " 
(buffer-name))))
     (let (inhibit-quit)
-      (unless pulsar-mode
-        (pulsar-mode 1)))))
+      (pulsar-mode 1))))
 
 ;;;###autoload
 (define-globalized-minor-mode pulsar-global-mode pulsar-mode pulsar--on)