summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw.el8
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.
264Specs is an alist: its cars are faces and its cdrs are the plist
265passed to `set-face-attribute'. Note that the FRAME argument is
266always 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