awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-14 15:46:56 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add docstrings to fix hooks

Browse Source
This commit is contained in:
Henrik Lissner
2018-10-01 20:29:43 -04:00
parent 394633b5d8
commit 6368ef9ba0
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
core/core-ui.el
View File

@@ -494,15 +494,17 @@ moderate boost in startup (or theme switch) time."
(advice-add #'load-theme :around #'doom*prefer-compiled-theme) (advice-add #'load-theme :around #'doom*prefer-compiled-theme)
(defun doom|disable-whitespace-mode-in-childframes (frame) (defun doom|disable-whitespace-mode-in-childframes (frame)
"`whitespace-mode' inundates child frames with whitspace markers, so disable
it to fix all that visual noise."
(when (frame-parameter frame 'parent-frame) (when (frame-parameter frame 'parent-frame)
(with-selected-frame frame (with-selected-frame frame
(setq-local whitespace-style nil) (setq-local whitespace-style nil)
frame))) frame)))
(add-hook 'after-make-frame-functions #'doom|disable-whitespace-mode-in-childframes) (add-hook 'after-make-frame-functions #'doom|disable-whitespace-mode-in-childframes)
;; Disruptive motion errors take over the minibuffer while we're typing there;
;; prevent this from happening.
(defun doom*silence-motion-errors (orig-fn &rest args) (defun doom*silence-motion-errors (orig-fn &rest args)
"Prevent disruptive motion errors taking over the minibuffer while we're in
it."
(if (not (minibufferp)) (if (not (minibufferp))
(apply orig-fn args) (apply orig-fn args)
(ignore-errors (apply orig-fn args)) (ignore-errors (apply orig-fn args))