From 5d350a7542d2e6d0d9ce81dc10a0b4f12aaaccbe Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 24 Nov 2015 03:45:02 -0500 Subject: [PATCH] Remove mac-start-animation calls --- core/lib/defuns-buffers.el | 5 +---- core/lib/defuns-workgroup.el | 2 -- 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/core/lib/defuns-buffers.el b/core/lib/defuns-buffers.el index 4c422cc34..96714c54b 100644 --- a/core/lib/defuns-buffers.el +++ b/core/lib/defuns-buffers.el @@ -88,10 +88,7 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/" (let ((bname (buffer-name))) (cond ((string-match-p "^\\*scratch\\*" bname) (erase-buffer)) - (t - (when window-system - (mac-start-animation (get-buffer-window) :type 'fade-out :duration 0.3)) - (kill-this-buffer)))) + (t (kill-this-buffer)))) (if (narf/popup-p (current-buffer)) (narf/popup-close) (unless (narf/real-buffer-p (current-buffer)) diff --git a/core/lib/defuns-workgroup.el b/core/lib/defuns-workgroup.el index 7e687e1f3..afcec184f 100644 --- a/core/lib/defuns-workgroup.el +++ b/core/lib/defuns-workgroup.el @@ -103,8 +103,6 @@ (narf:workgroup-display) (let ((wgs (wg-workgroup-list-or-error))) (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) (narf:workgroup-display))))