| author | Arash Esbati <arash@gnu.org> | 2026-05-25 12:54:51 +0200 |
|---|---|---|
| committer | Arash Esbati <arash@gnu.org> | 2026-05-25 12:54:51 +0200 |
| commit | 95a5ec7fca542e10b195e52ab19049f841bc6693 (patch) | |
| tree | f428d810e526f6a1eb4d8fc5f9890d2e9532356e | |
| parent | b5c4f3d4f8b3d1164376d86d79e7ceedb167c2e4 (diff) | |
; * style/contract.el ("contract"): Speed up the additions.
| -rw-r--r-- | style/contract.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/style/contract.el b/style/contract.el
index c8aa3a32ca3..eef780a280b 100644
--- a/style/contract.el
+++ b/style/contract.el
@@ -103,8 +103,8 @@
(let ((macs '("refL" "refS" "refN" "refClause" "refClauseN"
"refPar" "refParL" "refParS"
"refSentence" "refSentenceL" "refSentenceS" "refSentenceN")))
- (dolist (mac macs)
- (TeX-add-symbols `(,mac TeX-arg-ref)))
+ (apply #'TeX-add-symbols
+ (mapcar (lambda (x) (list x 'TeX-arg-ref)) macs))
(TeX-add-symbols
'("refParN" [TeX-arg-completing-read ("arabic" "roman")] TeX-arg-ref))
(when (and (featurep 'font-latex)
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。