awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-18 16:06:56 -05:00
Code Issues Packages 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
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