branch: externals/auctex
commit 3d08a92d0918a44305385c6c38445ab29a95add5
Author: Mosè Giordano <[email protected]>
Commit: Mosè Giordano <[email protected]>
Restore some code erroneously removed from font-latex.el
* font-latex.el (font-latex-make-sectioning-faces):
(font-latex-user-keyword-classes):
(font-latex-slide-title-face): Restore code.
---
font-latex.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/font-latex.el b/font-latex.el
index 797d74f..d36e03e 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -223,9 +223,11 @@ Emacs."
1.1)))
(dotimes (num max)
(let* ((num (- max (1+ num)))
- (face-name (intern (format "font-latex-sectioning-%s-face" num))))
+ (face-name (intern (format "font-latex-sectioning-%s-face" num)))
+ (f-inherit (intern (format "font-latex-sectioning-%s-face" (1+
num)))))
(eval
`(defface ,face-name
+ '((t (:height ,height-scale :inherit ,f-inherit)))
(format "Face for sectioning commands at level %s.
Probably you don't want to customize this face directly. Better
@@ -699,6 +701,8 @@ restart Emacs."
:tag "Keywords with specs"
(group (string :tag "Keyword")
(string :tag "Format specifier"))))
+ ,'(choice (face :tag "Face name")
+ (custom-face-edit :tag "Face attributes"))
(choice :tag "Type"
;; Maps to
;;`font-latex-match-command-with-arguments'
@@ -1157,6 +1161,9 @@ have changed."
:group 'font-latex-highlighting-faces)
(defface font-latex-slide-title-face
+ (let* ((scale 1.2))
+ `((t (:inherit (variable-pitch font-lock-type-face)
+ :weight bold :height ,scale))))
"Face for slide titles."
:group 'font-latex-highlighting-faces)
