mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source 
customizable variables.
(tex-suscript-height): New function.
(superscript, subscript): Set height using tex-suscript-height
rather than fixing at 0.8.
This commit is contained in:
Glenn Morris 2007-09-28 03:29:59 +00:00
parent 804edf0342
commit 8b6f62fc57
3 changed files with 47 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
etc/ChangeLog
View File

@ -1,3 +1,7 @@
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.

11
lisp/ChangeLog
View File

@ -1,3 +1,14 @@
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.

34
lisp/textmodes/tex-mode.el
View File

@ -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)