Remove mac-start-animation calls
This commit is contained in:
parent
0897e5e34b
commit
5d350a7542
|
@ -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))
|
||||
|
|
|
@ -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))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user