diff options
| author | Case Duckworth | 2022-01-31 00:53:30 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-31 00:53:30 -0600 |
| commit | e8589cec6ca1048b4771be5dbea6323b7f87df9b (patch) | |
| tree | 806c3e05212605151481ecaf1938a0c0586f73a6 /lisp | |
| parent | gah (diff) | |
| download | emacs-e8589cec6ca1048b4771be5dbea6323b7f87df9b.tar.gz emacs-e8589cec6ca1048b4771be5dbea6323b7f87df9b.zip | |
Change face-setting logic
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/acdw.el | 8 |
1 files changed, 8 insertions, 0 deletions
| diff --git a/lisp/acdw.el b/lisp/acdw.el index c2f9767..916591c 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
| @@ -259,5 +259,13 @@ Use like `setq'." | |||
| 259 | into ret | 259 | into ret |
| 260 | finally return ret))) | 260 | finally return ret))) |
| 261 | 261 | ||
| 262 | (defun +set-faces (specs) | ||
| 263 | "Set fonts to SPECS. | ||
| 264 | Specs is an alist: its cars are faces and its cdrs are the plist | ||
| 265 | passed to `set-face-attribute'. Note that the FRAME argument is | ||
| 266 | always nil; this function is mostly intended for use in init." | ||
| 267 | (dolist (spec specs) | ||
| 268 | (apply #'set-face-attribute (car spec) nil (cdr spec)))) | ||
| 269 | |||
| 262 | (provide 'acdw) | 270 | (provide 'acdw) |
| 263 | ;;; acdw.el ends here | 271 | ;;; acdw.el ends here |