[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8941bd64 2/3: * style/fontspec.el ("fontspec"): Replace `TeX-arg-
From: |
Arash Esbati |
Subject: |
master 8941bd64 2/3: * style/fontspec.el ("fontspec"): Replace `TeX-arg-eval'. |
Date: |
Wed, 7 Dec 2022 07:38:42 -0500 (EST) |
branch: master
commit 8941bd640feb81363b21dfe1791539a63e107790
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>
* style/fontspec.el ("fontspec"): Replace `TeX-arg-eval'.
---
style/fontspec.el | 22 ++++++++++------------
1 file changed, 10 insertions(+), 12 deletions(-)
diff --git a/style/fontspec.el b/style/fontspec.el
index 90018a21..a19d5ce5 100644
--- a/style/fontspec.el
+++ b/style/fontspec.el
@@ -390,18 +390,16 @@ to appropriate keys which are eventually prepended to
"Existing feature")
"New name")
- '("aliasfontfeatureoption"
- (TeX-arg-eval
- (lambda ()
- (let* ((key (completing-read
- (TeX-argument-prompt nil nil "Feature")
- (LaTeX-fontspec-font-features)))
- (val (completing-read
- (TeX-argument-prompt nil nil "Existing name")
- (cadr (assoc key (LaTeX-fontspec-font-features))))))
- (TeX-argument-insert key nil)
- (format "%s" val))))
- "New name") )
+ `("aliasfontfeatureoption"
+ (TeX-arg-completing-read (LaTeX-fontspec-font-features) "Feature")
+ (TeX-arg-completing-read
+ ,(lambda ()
+ (save-excursion
+ (re-search-backward "\\\\aliasfontfeatureoption{\\([^}]+\\)}"
+ (line-beginning-position) t))
+ (cadr (assoc (match-string-no-properties 1)
+ (LaTeX-fontspec-font-features)))))
+ "New Name") )
(LaTeX-add-environments
;; 4.6 Strong emphasis
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 8941bd64 2/3: * style/fontspec.el ("fontspec"): Replace `TeX-arg-eval'.,
Arash Esbati <=