diff options
| author | David Aspinall | 2005-02-15 18:43:22 +0000 |
|---|---|---|
| committer | David Aspinall | 2005-02-15 18:43:22 +0000 |
| commit | 3ebd8547bc8c938bd50fd4876c1f72d46dccb83c (patch) | |
| tree | 7be86c1ee3b8e12ecfa01cdb02471806a455783d /x-symbol/lisp | |
| parent | bfe9931a3bdb711015eadc3696822d7e76c01186 (diff) | |
Changes from Clemens Ballarin for large X-Symbol fonts
Diffstat (limited to 'x-symbol/lisp')
| -rw-r--r-- | x-symbol/lisp/x-symbol-vars.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/x-symbol/lisp/x-symbol-vars.el b/x-symbol/lisp/x-symbol-vars.el index ac020879..e3e3b08f 100644 --- a/x-symbol/lisp/x-symbol-vars.el +++ b/x-symbol/lisp/x-symbol-vars.el @@ -1619,7 +1619,14 @@ encoding `x-symbol-default-coding' in this case. If nil, tokens are not decoded if they require the missing font. Values other than nil are safe, but latin characters without correct fonts will look strange.") -(defvar x-symbol-font-sizes '(("\\`-etl-" 16 14) ("" 14 12))) +(defvar x-symbol-font-sizes + (let ((env-fontsize (getenv "XSYMBOL_FONTSIZE"))) + (if (equal env-fontsize "14") '(("" 14 12)) + (if (equal env-fontsize "18") '(("" 18 14)) + (if (equal env-fontsize "24") '(("" 24 18)) + '(("\\`-etl-" 16 14) ("" 14 12))))))) + +;; (defvar x-symbol-font-sizes '(("\\`-etl-" 16 14) ("" 14 12))) ;; '(14 ("\\`-etl-.+_su[bp]-" . 14) ("\\`-etl-" . 16) ("_su[bp]-" . 12))) (defvar x-symbol-font-lock-with-extra-props |