awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Minor optimization of doom*switch-buffer-hooks

Browse Source
This commit is contained in:
Henrik Lissner
2018-06-04 21:09:24 +02:00
parent 625a8a9056
commit fdb95d9ee6
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
core/core-ui.el
View File

@ -377,15 +377,15 @@ from the default."
(funcall orig-fn window norecord))
(run-hooks 'doom-after-switch-window-hook))))
(defun doom*switch-buffer-hooks (orig-fn buffer-or-name &rest args)
(let ((buf (window-normalize-buffer-to-switch-to buffer-or-name)))
(if (or doom-inhibit-switch-buffer-hooks
(eq buf (current-buffer)))
(apply orig-fn buf args)
(run-hooks 'doom-before-switch-buffer-hook)
(prog1
(let ((doom-inhibit-switch-buffer-hooks t))
(apply orig-fn buf args))
(run-hooks 'doom-after-switch-buffer-hook)))))
(if (or doom-inhibit-switch-buffer-hooks
(eq (window-normalize-buffer-to-switch-to buffer-or-name)
(current-buffer)))
(apply orig-fn buffer-or-name args)
(run-hooks 'doom-before-switch-buffer-hook)
(prog1
(let ((doom-inhibit-switch-buffer-hooks t))
(apply orig-fn buffer-or-name args))
(run-hooks 'doom-after-switch-buffer-hook))))
(defun doom|init-custom-hooks ()
(advice-add #'select-frame :around #'doom*switch-frame-hooks)