[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/auctex 39699a7 05/12: Simplify conditionals evaluating
From: |
Tassilo Horn |
Subject: |
[elpa] externals/auctex 39699a7 05/12: Simplify conditionals evaluating to constant |
Date: |
Sat, 17 Apr 2021 15:13:21 -0400 (EDT) |
branch: externals/auctex
commit 39699a711d7101442c43a849060e77bf614bbb25
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@ikumi.que.jp>
Simplify conditionals evaluating to constant
* font-latex.el (font-latex-bold-face, font-latex-italic-face)
(font-latex-math-face, font-latex-string-face)
(font-latex-warning-face, font-latex-verbatim-face)
(font-latex-script-char-face):
All supported emacsens support :inherit attribute for face and
have `fixed-pitch' basic face.
---
font-latex.el | 29 +++++++----------------------
1 file changed, 7 insertions(+), 22 deletions(-)
diff --git a/font-latex.el b/font-latex.el
index ae19c38..7ba3792 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -1090,9 +1090,7 @@ have changed."
;;; Faces
(defface font-latex-bold-face
- (let ((font (cond ((assq :inherit custom-face-attributes) '(:inherit bold))
- ((assq :weight custom-face-attributes) '(:weight bold))
- (t '(:bold t)))))
+ (let ((font '(:inherit bold)))
`((((class grayscale) (background light))
(:foreground "DimGray" ,@font))
(((class grayscale) (background dark))
@@ -1106,9 +1104,7 @@ have changed."
:group 'font-latex-highlighting-faces)
(defface font-latex-italic-face
- (let ((font (cond ((assq :inherit custom-face-attributes) '(:inherit italic))
- ((assq :slant custom-face-attributes) '(:slant italic))
- (t '(:italic t)))))
+ (let ((font '(:inherit italic)))
`((((class grayscale) (background light))
(:foreground "DimGray" ,@font))
(((class grayscale) (background dark))
@@ -1122,9 +1118,7 @@ have changed."
:group 'font-latex-highlighting-faces)
(defface font-latex-math-face
- (let ((font (cond ((assq :inherit custom-face-attributes)
- '(:inherit underline))
- (t '(:underline t)))))
+ (let ((font '(:inherit underline)))
`((((class grayscale) (background light))
(:foreground "DimGray" ,@font))
(((class grayscale) (background dark))
@@ -1148,9 +1142,7 @@ have changed."
:group 'font-latex-highlighting-faces)
(defface font-latex-string-face
- (let ((font (cond ((assq :inherit custom-face-attributes) '(:inherit italic))
- ((assq :slant custom-face-attributes) '(:slant italic))
- (t '(:italic t)))))
+ (let ((font '(:inherit italic)))
`((((type tty) (class color))
(:foreground "green"))
(((class grayscale) (background light))
@@ -1166,9 +1158,7 @@ have changed."
:group 'font-latex-highlighting-faces)
(defface font-latex-warning-face
- (let ((font (cond ((assq :inherit custom-face-attributes) '(:inherit bold))
- ((assq :weight custom-face-attributes) '(:weight bold))
- (t '(:bold t)))))
+ (let ((font '(:inherit bold)))
`((((class grayscale)(background light))
(:foreground "DimGray" ,@font))
(((class grayscale)(background dark))
@@ -1182,10 +1172,7 @@ have changed."
:group 'font-latex-highlighting-faces)
(defface font-latex-verbatim-face
- (let ((font (if (and (assq :inherit custom-face-attributes)
- (facep 'fixed-pitch))
- '(:inherit fixed-pitch)
- '(:family "courier"))))
+ (let ((font '(:inherit fixed-pitch)))
`((((class grayscale) (background light))
(:foreground "DimGray" ,@font))
(((class grayscale) (background dark))
@@ -1209,9 +1196,7 @@ have changed."
:group 'font-latex-highlighting-faces)
(defface font-latex-script-char-face
- (let ((font (cond ((assq :inherit custom-face-attributes)
- '(:inherit underline))
- (t '(:underline t)))))
+ (let ((font '(:inherit underline)))
`((((class grayscale) (background light))
(:foreground "DarkGray" ,@font))
(((class grayscale) (background dark))
- [elpa] externals/auctex updated (83403e9 -> 688349a), Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 65b8b29 02/12: Use #' instead of ' to quote function names, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 7ba3caa 03/12: Remove compatibility code for Emacs<24.3, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex b587fdb 04/12: Resolve constant fboundp/boundp/featurep, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 4046481 01/12: Use closure rather than hand-made lambda, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 39699a7 05/12: Simplify conditionals evaluating to constant,
Tassilo Horn <=
- [elpa] externals/auctex 8cdf102 07/12: ; Fix commit b587fdbeb8 for Emacs 28, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 5f79e96 08/12: Don't move past % if the current command is a non-indent command, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 953fcb7 11/12: ; Fix Xreader spelling in docstring., Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 688349a 12/12: Merge remote-tracking branch 'origin/master' into externals/auctex, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex 61f508d 06/12: ; Fix doc string, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex a0b62cb 09/12: ; Fix formulation in comment, Tassilo Horn, 2021/04/17
- [elpa] externals/auctex fffc8fc 10/12: Rename TeX-xreader-sync-view to TeX-reader-sync-view (bug#47807), Tassilo Horn, 2021/04/17