mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2025-12-05 18:20:29 -08:00
Code Issues Projects Releases Wiki Activity

refactor(lib): move fringe/fontset autodefs to doom-compat

Browse source
This commit is contained in:
Henrik Lissner 2025-09-16 19:44:39 -04:00
parent 4a6f9f741d
commit 395a807aae
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
2 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/doom-compat.el
View file

@ -7,6 +7,15 @@
;;
;;; Code:
;; These two functions don't exist in terminal Emacs, but some Emacs packages
;; (internal and external) use it anyway, leading to void-function errors. I
;; define a no-op substitute to suppress them.
(unless (fboundp 'define-fringe-bitmap)
(fset 'define-fringe-bitmap #'ignore))
(unless (fboundp 'set-fontset-font)
(fset 'set-fontset-font #'ignore))
;;; From Emacs >= 28
;; `format-spec' wasn't autoloaded until 28.1
(unless (fboundp 'format-spec)

8
lisp/doom-ui.el
View file

@ -768,14 +768,6 @@ triggering hooks during startup."
(put sym 'disabled "Doom doesn't support `customize', configure Emacs from $DOOMDIR/config.el instead"))
(put 'customize-themes 'disabled "Set `doom-theme' or use `load-theme' in $DOOMDIR/config.el instead")
;; These two functions don't exist in terminal Emacs, but some Emacs packages
;; (internal and external) use it anyway, leading to void-function errors. I
;; define a no-op substitute to suppress them.
(unless (fboundp 'define-fringe-bitmap)
(fset 'define-fringe-bitmap #'ignore))
(unless (fboundp 'set-fontset-font)
(fset 'set-fontset-font #'ignore))
(after! whitespace
(defun doom--in-parent-frame-p ()
"`whitespace-mode' inundates child frames with whitespace markers, so