1 (let ((dir (concat (file-name-directory
3 (file-name-directory (or load-file-name
4 (when (boundp 'bytecomp-filename) bytecomp-filename)
6 (file-name-as-directory "default-text-scale"))))
7 (add-to-list 'load-path dir))
9 (require 'default-text-scale)
10 (default-text-scale-mode 1)