auctex-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[AUCTeX-diffs] [elpa] externals/auctex 3750d1a 16/17: Resolve unnecassar


From: Tassilo Horn
Subject: [AUCTeX-diffs] [elpa] externals/auctex 3750d1a 16/17: Resolve unnecassary back quote
Date: Fri, 2 Apr 2021 04:13:21 -0400 (EDT)

branch: externals/auctex
commit 3750d1a6e1316ff487cbf4fdb6067d4f3ba9f10e
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@ikumi.que.jp>

    Resolve unnecassary back quote
    
    * font-latex.el (font-latex-user-keyword-classes,
    (font-latex-slide-title-face):
    * tex-fold.el (TeX-fold-macro-spec-list):
    Turn unnecassary back quote into forward quote.
    Fix typo in doc string.
---
 font-latex.el | 9 ++++-----
 tex-fold.el   | 4 ++--
 2 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/font-latex.el b/font-latex.el
index 6755f8d..ae19c38 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -772,13 +772,13 @@ specified.
 Setting this variable directly does not take effect;
 restart Emacs."
   :group 'font-latex-keywords
-  :type `(repeat (list (string :tag "Name")
+  :type '(repeat (list (string :tag "Name")
                        (choice (repeat :tag "Keywords" (string :tag "Keyword"))
                                (repeat
                                 :tag "Keywords with specs"
                                 (group (string :tag "Keyword")
                                        (string :tag "Format specifier"))))
-                       ,'(choice (face :tag "Face name")
+                       (choice (face :tag "Face name")
                                  (custom-face-edit :tag "Face attributes"))
                        (choice :tag "Type"
                                ;; Maps to
@@ -1225,9 +1225,8 @@ 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))))
+  '((t (:inherit (variable-pitch font-lock-type-face)
+                   :weight bold :height 1.2)))
   "Face for slide titles."
   :group 'font-latex-highlighting-faces)
 
diff --git a/tex-fold.el b/tex-fold.el
index 2cf320e..b5b19f7 100644
--- a/tex-fold.el
+++ b/tex-fold.el
@@ -70,7 +70,7 @@ macros, 'math for math macros and 'comment for comments."
               (const :tag "Comments" comment)))
 
 (defcustom TeX-fold-macro-spec-list
-  `(("[f]" ("footnote" "marginpar"))
+  '(("[f]" ("footnote" "marginpar"))
     ("[c]" ("cite"))
     ("[l]" ("label"))
     ("[r]" ("ref" "pageref" "eqref"))
@@ -89,7 +89,7 @@ macros, 'math for math macros and 'comment for comments."
   "List of replacement specifiers and macros to fold.
 
 The first element of each item can be a string, an integer or a
-function symbol.  The second element is a list of macros two fold
+function symbol.  The second element is a list of macros to fold
 without the leading backslash.
 
 If the first element is a string, it will be used as a display




reply via email to

[Prev in Thread] Current Thread [Next in Thread]