emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

APPEASE THE GREAT BYTE-COMPILER-SAMA

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
modules/lang/org/+capture.el
View file

@ -38,7 +38,7 @@
;; fix #462: when refiling from org-capture, Emacs prompts to kill the ;; fix #462: when refiling from org-capture, Emacs prompts to kill the
;; underlying, modified buffer. This fixes that. ;; underlying, modified buffer. This fixes that.
(defun +org-capture*refile (orig-fn &rest args) (defun +org-capture*refile (&rest _)
(when org-capture-is-refiling (when org-capture-is-refiling
(org-save-all-org-buffers))) (org-save-all-org-buffers)))
(advice-add 'org-refile :after #'+org-capture*refile) (advice-add 'org-refile :after #'+org-capture*refile)

2
modules/lang/org/autoload/org-capture.el
View file

@ -1,6 +1,8 @@
;;; lang/org/autoload/org-capture.el -*- lexical-binding: t; -*- ;;; lang/org/autoload/org-capture.el -*- lexical-binding: t; -*-
;;;###if (featurep! +capture) ;;;###if (featurep! +capture)
(defvar org-capture-initial)
;; --- External frame --------------------- ;; --- External frame ---------------------
(defvar +org-capture-window-params (defvar +org-capture-window-params

9
modules/ui/posframe/autoload.el
View file

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