From 847821faaecf92833f1e1564e1ef9377758d4d45 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Mon, 2 Jul 2018 16:09:16 +0200
Subject: 2018-07-02 14:46:00

---
 tex/context/base/mkiv/publ-ini.mkiv | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'tex/context/base/mkiv/publ-ini.mkiv')

diff --git a/tex/context/base/mkiv/publ-ini.mkiv b/tex/context/base/mkiv/publ-ini.mkiv
index 587341355..39e9308e9 100644
--- a/tex/context/base/mkiv/publ-ini.mkiv
+++ b/tex/context/base/mkiv/publ-ini.mkiv
@@ -334,6 +334,11 @@
      \expandafter\publ_command_nop
    \fi{#1}}
 
+\newtoks\t_btx_cmd
+\newbox \b_btx_cmd
+
+\t_btx_cmd{\global\setbox\b_btx_cmd\hpack{\clf_btxcmdstring}}
+
 \let\btxcmd\btxcommand
 
 \def\publ_command_yes#1%
@@ -1997,4 +2002,15 @@
 \fetchruntimecommand \showbtxfields              \f!publ_tra
 \fetchruntimecommand \showbtxtables              \f!publ_tra
 
+%D Some potential crap:
+%D
+%D Because I consider this bad data management and a weird mix of languages only one
+%D accessor is provided.
+
+\unexpanded\def\btxshortcut
+  {\dosingleempty\publ_shortcut}
+
+\def\publ_shortcut[#1]#2%
+  {\clf_btxshortcut{\iffirstargument#1\else\s!default\fi}{#2}}
+
 \protect
-- 
cgit v1.2.3