[elpa] externals/auctex 8941bd640f 33/76: * style/fontspec.el ("fontspec"): Replace `TeX-arg-eval'.

[Tassilo Horn]

branch: externals/auctex
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 90018a21d4..a19d5ce5dd 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