[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ivy-posframe 187288c 167/195: accept declare form
From: |
Feng Shu |
Subject: |
[elpa] externals/ivy-posframe 187288c 167/195: accept declare form |
Date: |
Sat, 3 Oct 2020 07:12:06 -0400 (EDT) |
branch: externals/ivy-posframe
commit 187288c873f8838b170cc962da8f655af26acb2e
Author: conao3 <conao3@gmail.com>
Commit: conao3 <conao3@gmail.com>
accept declare form
---
ivy-posframe.el | 17 ++++++++++++-----
1 file changed, 12 insertions(+), 5 deletions(-)
diff --git a/ivy-posframe.el b/ivy-posframe.el
index 9627cd4..8e75bbe 100644
--- a/ivy-posframe.el
+++ b/ivy-posframe.el
@@ -478,11 +478,18 @@ 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)))
+ (let ((decls (cond
+ ((eq (car-safe docstring) 'declare)
+ (prog1 (cdr docstring) (setq docstring nil)))
+ ((and (stringp docstring)
+ (eq (car-safe (car body)) 'declare))
+ (prog1 (cdr (car body)) (setq body (cdr body)))))))
+ `(defun ,name ,arglist
+ ,(when (stringp docstring) docstring)
+ (declare ,@decls)
+ (when (display-graphic-p)
+ ,(unless (stringp docstring) docstring)
+ ,@body))))
(ivy-posframe--defun-advice ivy-posframe--minibuffer-setup (fn &rest args)
"Advice function of FN, `ivy--minibuffer-setup' with ARGS."
- [elpa] externals/ivy-posframe f032c58 124/195: remove overwrite ivy variable code, (continued)
- [elpa] externals/ivy-posframe f032c58 124/195: remove overwrite ivy variable code, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe 9dcdd80 121/195: add ivy--height advice, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe 7567182 136/195: let ivy-posframe-enable = (ivy-posframe-mode 1), Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe df179ec 128/195: refine readme, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe 590c224 175/195: Fix previous commit, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe 112655b 179/195: Add a window/frame top center position option #61, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe 57c53ef 173/195: Merge pull request #59 from conao3/fix-ivy-buffer-missing, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe 1794866 170/195: not use let variable to make code simple, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe 65bc90d 151/195: fix minor mode option, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe 2f2c7f6 154/195: Merge pull request #48 from tttuuu888/work-list, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe 187288c 167/195: accept declare form,
Feng Shu <=
- [elpa] externals/ivy-posframe d9ceee9 181/195: Fix: Regression : not usable with tty and gui emacsen under same daemon #69, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe aadadf1 185/195: Merge pull request #73 from tttuuu888/work-issue-71-2, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe 85f2f7a 184/195: Fix for prompt line duplicated issue in another way. #71, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe 61cb32e 192/195: Fix swiper-avy and ivy-posframe are having trouble #80, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe ad83ce5 189/195: Merge pull request #79 from xeijin/patch-1, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe 4474956 194/195: let ivy-posframe-swiper-avy work when do not use ivy-posframe function, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe 556c9a9 161/195: Check (display-graphic-p) dynamically in advices, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe 46b4089 081/195: Merge pull request #33 from conao3/issue/remove-top-level-setup-executing, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe f5da408 157/195: remove ivy-display-function, Feng Shu, 2020/10/03
- [elpa] externals/ivy-posframe c9a7331 143/195: handle ivy-display-function, Feng Shu, 2020/10/03