[elpa] externals/ivy-posframe 8abcf52 163/195: define defun-advice function

[Feng Shu]

branch: externals/ivy-posframe
commit 8abcf525652d8a112df0e7256998f428a29e3fab
Author: conao3 <conao3@gmail.com>
Commit: conao3 <conao3@gmail.com>

    define defun-advice function
---
 ivy-posframe.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/ivy-posframe.el b/ivy-posframe.el
index 63c5906..df37f7f 100644
--- a/ivy-posframe.el
+++ b/ivy-posframe.el
@@ -481,6 +481,23 @@ the advised function there (a key from 
`ivy-posframe-advice-alist')."
     (apply (car args) (cdr args)))
   )
 
+(defmacro ivy-posframe--defun-advice (name arglist &optional docstring &rest 
body)
+  "Define NAME as a `ivy-posframe' advice function.  see `defun'.
+The definition is (lambda ARGLIST [DOCSTRING] BODY...).
+See also the function `interactive'.
+DECL is a declaration, optional, of the form (declare DECLS...) where
+DECLS is a list of elements of the form (PROP . VALUES).  These are
+interpreted according to `defun-declarations-alist'.
+The return value is undefined.
+
+\(fn NAME ARGLIST &optional DOCSTRING DECL &rest BODY)"
+  (declare (doc-string 3) (indent 2))
+  `(defun ,name ,arglist
+     ,(when (stringp docstring) docstring)
+     (when (display-graphic-p)
+       ,(unless (stringp docstring) docstring)
+       ,@body)))
+
 (defun ivy-posframe--minibuffer-setup (fn &rest args)
   "Advice function of FN, `ivy--minibuffer-setup' with ARGS."
   (let ((ivy-fixed-height-minibuffer nil))