APPEASE THE GREAT BYTE-COMPILER-SAMA

This commit is contained in:
Henrik Lissner 2018-03-20 21:20:45 -04:00
parent adef00aa7c
commit 80aa086680
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 7 additions and 6 deletions

View file

@ -8,11 +8,10 @@
;;;###autoload
(defun +posframe-poshandler-frame-center-near-bottom (info)
"TODO"
(let* ((posframe (plist-get info :posframe))
(parent-frame (plist-get info :parent-frame)))
(let ((pos (posframe-poshandler-frame-center info)))
(cons (car pos)
(truncate (/ (frame-pixel-height parent-frame) 1.6))))))
(let ((parent-frame (plist-get info :parent-frame))
(pos (posframe-poshandler-frame-center info)))
(cons (car pos)
(truncate (/ (frame-pixel-height parent-frame) 1.6)))))
;;;###autoload
(defun +posframe|delete-on-escape ()