109 |
env |
env |
110 |
(let ((width (read-input "(Optional) Area width: "))) |
(let ((width (read-input "(Optional) Area width: "))) |
111 |
(unless (zerop (length width)) |
(unless (zerop (length width)) |
112 |
(format "[%s]" width))))))))) |
(format "[%s]" width))))))) |
113 |
|
|
114 |
|
;; Fontification |
115 |
|
(when (and (featurep 'font-latex) |
116 |
|
(eq TeX-install-font-lock 'font-latex-setup)) |
117 |
|
(add-to-list 'font-latex-match-slide-title-keywords-local |
118 |
|
"frametitle") |
119 |
|
(font-latex-match-slide-title-make) |
120 |
|
;; Tell font-lock about the update. |
121 |
|
(setq font-lock-set-defaults nil) |
122 |
|
(font-lock-set-defaults)))) |
123 |
|
|
124 |
(defun TeX-arg-beamer-overlay-spec (optional &optional prompt) |
(defun TeX-arg-beamer-overlay-spec (optional &optional prompt) |
125 |
"Prompt for overlay specification." |
"Prompt for overlay specification." |