emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/auctex df0d719 52/71: Improve handling of key=vals in s


From: Tassilo Horn
Subject: [elpa] externals/auctex df0d719 52/71: Improve handling of key=vals in style/hologo.el
Date: Fri, 17 Dec 2021 15:00:35 -0500 (EST)

branch: externals/auctex
commit df0d719f0ceae40d79473ffbeb3499ef8598f0f9
Author: Arash Esbati <arash@gnu.org>
Commit: Arash Esbati <arash@gnu.org>

    Improve handling of key=vals in style/hologo.el
    
    * style/hologo.el ("hologo"): Use `TeX-arg-key-eval' instead of
    more complicated call of `TeX-arg-eval'.
---
 style/hologo.el | 24 +++++++-----------------
 1 file changed, 7 insertions(+), 17 deletions(-)

diff --git a/style/hologo.el b/style/hologo.el
index 863b3d4..25f8105 100644
--- a/style/hologo.el
+++ b/style/hologo.el
@@ -1,6 +1,6 @@
 ;;; hologo.el --- AUCTeX style for `hologo.sty' (v1.10)  -*- lexical-binding: 
t; -*-
 
-;; Copyright (C) 2015, 2018, 2020 Free Software Foundation, Inc.
+;; Copyright (C) 2015--2021 Free Software Foundation, Inc.
 
 ;; Author: Arash Esbati <arash@gnu.org>
 ;; Maintainer: auctex-devel@gnu.org
@@ -199,25 +199,15 @@
            (format "%s" keyval)))))
 
     ;; Additional user macros
-    '("hologoVariant"
+    `("hologoVariant"
       LaTeX-hologo--arg-use-region-or-query-logo-name
-      (TeX-arg-eval
-       (lambda ()
-         (let ((setup (TeX-read-key-val
-                       nil
-                       (append LaTeX-hologo-key-val-options-local
-                               LaTeX-hologo-key-val-options-global))))
-           (format "%s" setup)))))
+      (TeX-arg-key-val (append ,LaTeX-hologo-key-val-options-local
+                               ,LaTeX-hologo-key-val-options-global)))
 
-    '("HologoVariant"
+    `("HologoVariant"
       LaTeX-hologo--arg-use-region-or-query-logo-name
-      (TeX-arg-eval
-       (lambda ()
-         (let ((setup (TeX-read-key-val
-                       nil
-                       (append LaTeX-hologo-key-val-options-local
-                               LaTeX-hologo-key-val-options-global))))
-           (format "%s" setup)))))
+      (TeX-arg-key-val (append ,LaTeX-hologo-key-val-options-local
+                               ,LaTeX-hologo-key-val-options-global)))
 
     '("hologoList" 0)
 



reply via email to

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