[AUCTeX-diffs] [elpa] externals/auctex 3d08a92 22/43: Restore some code erroneously removed from font-latex.el

[Tassilo Horn]

branch: externals/auctex
commit 3d08a92d0918a44305385c6c38445ab29a95add5
Author: Mosè Giordano <address@hidden>
Commit: Mosè Giordano <address@hidden>

    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)