branch: externals/auctex
commit df0d719f0ceae40d79473ffbeb3499ef8598f0f9
Author: Arash Esbati <[email protected]>
Commit: Arash Esbati <[email protected]>
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 <[email protected]>
;; Maintainer: [email protected]
@@ -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)
