[elpa] externals/posframe 6c4d7ad 05/10: * posframe.el (posframe-workable-p): New function.

[Feng Shu]

branch: externals/posframe
commit 6c4d7ad95600a85f53d6d513e3e818f5c3236394
Author: Feng Shu <address@hidden>
Commit: Feng Shu <address@hidden>

    * posframe.el (posframe-workable-p): New function.
---
 posframe.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/posframe.el b/posframe.el
index 45e9fcd..ab059c5 100644
--- a/posframe.el
+++ b/posframe.el
@@ -163,6 +163,13 @@ frame.")
 (defvar-local posframe--initialized-p nil
   "Record initialize status of `posframe-show'.")
 
+(defun posframe-workable-p ()
+  "Test posframe workable status."
+  (and (>= emacs-major-version 26)
+       (not (or noninteractive
+                emacs-basic-display
+                (not (display-graphic-p))))))
+
 (cl-defun posframe--create-posframe (posframe-buffer
                                      &key
                                      parent-frame