[elpa] externals/beframe a7d2eb91d8 07/19: Make beframe--functions-in-frames add advice only when appropriate

[ELPA Syncer]

branch: externals/beframe
commit a7d2eb91d884c9433174b12a87e1bcbc80266edd
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make beframe--functions-in-frames add advice only when appropriate
---
 beframe.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/beframe.el b/beframe.el
index 69271b026d..4ccc668f7d 100644
--- a/beframe.el
+++ b/beframe.el
@@ -312,9 +312,11 @@ frame.  See `beframe-functions-in-frames'."
   "Install advice for `beframe-functions-in-frames'.
 With optional DISABLE remove the advice."
   (dolist (cmd beframe-functions-in-frames)
-    (if disable
-        (advice-remove cmd #'beframe--with-other-frame)
-      (advice-add cmd :around #'beframe--with-other-frame))))
+    (cond
+     (disable
+      (advice-remove cmd #'beframe--with-other-frame))
+     (beframe-mode
+      (advice-add cmd :around #'beframe--with-other-frame)))))
 
 (declare-function project-prompt-project-dir "project")