Commit 8b6f62fc authored by Glenn Morris's avatar Glenn Morris

(tex-suscript-height-ratio, tex-suscript-height-minimum): New

customizable variables.
(tex-suscript-height): New function.
(superscript, subscript): Set height using tex-suscript-height
rather than fixing at 0.8.
parent 804edf03
2007-09-28 Glenn Morris <rgm@gnu.org>
* PROBLEMS: Mention Tex superscript font issue.
2007-09-25 Johannes Weiner <hannes@saeurebad.de>
* NEWS: Fix typo.
......
2007-09-28 Glenn Morris <rgm@gnu.org>
* mail/supercite.el (sc-attribs-filter-namelist): Use mapc rather
than mapcar.
* textmodes/tex-mode.el (tex-suscript-height-ratio)
(tex-suscript-height-minimum): New customizable variables.
(tex-suscript-height): New function.
(superscript, subscript): Set height using tex-suscript-height
rather than fixing at 0.8.
2007-09-27 Juanma Barranquero <lekktu@gmail.com>
* progmodes/python.el (python-eldoc-function): Doc fix.
......
......@@ -676,12 +676,42 @@ An alternative value is \" . \", if you use a font with a narrow period."
(put-text-property beg next 'display nil))
(setq beg next))))
(defcustom tex-suscript-height-ratio 0.8
"Ratio of subscript/superscript height to that of the preceding text.
In nested subscript/superscript, this factor is applied repeatedly,
subject to the limit set by `tex-suscript-height-minimum'."
:type 'float
:group 'tex
:version "23.1")
(defcustom tex-suscript-height-minimum 0.0
"Integer or float limiting the minimum size of subscript/superscript text.
An integer is an absolute height in units of 1/10 point, a float
is a height relative to that of the default font. Zero means no minimum."
:type '(choice (integer :tag "Integer height in 1/10 point units")
(float :tag "Fraction of default font height"))
:group 'tex
:version "23.1")
(defun tex-suscript-height (height)
"Return the integer height of subscript/superscript font in 1/10 points.
Not smaller than the value set by `tex-suscript-height-minimum'."
(ceiling (max (if (integerp tex-suscript-height-minimum)
tex-suscript-height-minimum
;; For bootstrapping.
(condition-case nil
(* tex-suscript-height-minimum
(face-attribute 'default :height))
(error 0)))
;; NB assumes height is integer.
(* height tex-suscript-height-ratio))))
(defface superscript
'((t :height 0.8)) ;; :raise 0.2
'((t :height tex-suscript-height)) ;; :raise 0.2
"Face used for superscripts."
:group 'tex)
(defface subscript
'((t :height 0.8)) ;; :raise -0.2
'((t :height tex-suscript-height)) ;; :raise -0.2
"Face used for subscripts."
:group 'tex)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment