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

Remove mac-start-animation calls

Browse source
This commit is contained in:
Henrik Lissner 2015-11-24 03:45:02 -05:00
parent 0897e5e34b
commit 5d350a7542
2 changed files with 1 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
core/lib/defuns-buffers.el
View file

@ -88,10 +88,7 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
(let ((bname (buffer-name))) (let ((bname (buffer-name)))
(cond ((string-match-p "^\\*scratch\\*" bname) (cond ((string-match-p "^\\*scratch\\*" bname)
(erase-buffer)) (erase-buffer))
(t (t (kill-this-buffer))))
(when window-system
(mac-start-animation (get-buffer-window) :type 'fade-out :duration 0.3))
(kill-this-buffer))))
(if (narf/popup-p (current-buffer)) (if (narf/popup-p (current-buffer))
(narf/popup-close) (narf/popup-close)
(unless (narf/real-buffer-p (current-buffer)) (unless (narf/real-buffer-p (current-buffer))

2
core/lib/defuns-workgroup.el
View file

@ -103,8 +103,6 @@
(narf:workgroup-display) (narf:workgroup-display)
(let ((wgs (wg-workgroup-list-or-error))) (let ((wgs (wg-workgroup-list-or-error)))
(unless (eq (nth index wgs) (wg-current-workgroup t)) (unless (eq (nth index wgs) (wg-current-workgroup t))
(when (and IS-MAC window-system)
(mac-start-animation (window-frame (get-buffer-window)) :type 'fade-out :duration 0.75))
(wg-switch-to-workgroup-at-index index) (wg-switch-to-workgroup-at-index index)
(narf:workgroup-display)))) (narf:workgroup-display))))