APPEASE THE GREAT BYTE-COMPILER-SAMA
This commit is contained in:
parent
adef00aa7c
commit
80aa086680
3 changed files with 7 additions and 6 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue