diff options
Diffstat (limited to 'lisp/acdw.el')
| -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 |