2 ;; Copyright Leo Butler (l.butler@cmich.edu) 2014
3 ;; Released under the terms of GPLv3+
7 (defun get-tex-environment* (x)
12 (get-tex-environment x
))))
14 (defun $tex_displa
(x)
15 (let ((s ($tex1
(list (car x
) (cadr x
))))
16 (e (mfuncall '$tex1
(caddr x
)))
17 (env (get-tex-environment* (caddr x
))))
18 (concatenate 'string
(subseq s
0 (- (length s
) 14)) (car env
) e
(cdr env
))))
21 ;; end of tex-display.lisp
