1 files changed, 29 insertions, 0 deletions
diff --git a/tex/context/base/pack-rul.mkiv b/tex/context/base/pack-rul.mkiv
index 5bda9bb29..5aa633207 100644
--- a/tex/context/base/pack-rul.mkiv
+++ b/tex/context/base/pack-rul.mkiv
@@ -778,6 +778,33 @@
 
 \newcount\c_pack_framed_nesting
 
+% to be tested (slightly more efficient):
+%
+% \unexpanded\def\pack_frame_common % #1 #2
+%   {\bgroup
+%    \advance\c_pack_framed_nesting\plusone
+%    \expandafter\let\csname\??framed>\the\c_pack_framed_nesting:\s!parent\endcsname\??framed
+%    \edef\currentframed{>\the\c_pack_framed_nesting}%
+%    \pack_framed_initialize
+%    \bgroup
+%    \doifnextoptionalcselse} % #1 #2
+%
+% \unexpanded\def\framed     {\pack_frame_common\pack_framed_process_framed_pickup\pack_framed_process_indeed}
+% \unexpanded\def\startframed{\pack_frame_common\pack_framed_start_framed_pickup  \pack_framed_start_indeed  }
+%
+% \def\pack_framed_process_framed_pickup[#1]%
+%   {\setupcurrentframed[#1]%
+%    \pack_framed_process_indeed}
+%
+% \def\pack_framed_start_framed_pickup[#1]%
+%   {\setupcurrentframed[#1]% here !
+%    \secondargumenttrue % dirty trick
+%    \pack_framed_start_framed_indeed}
+%
+% \def\pack_framed_start_framed_indeed
+%   {\pack_framed_process_indeed
+%    \bgroup}
+
 \unexpanded\def\pack_framed_process_framed[#1]%
   {\bgroup
    \iffirstargument % faster
@@ -806,6 +833,8 @@
    \pack_framed_process_framed[#1]% can be inlined
    \bgroup}
 
+% till here
+
 \let\stopframed\egroup
 
 \unexpanded\def\normalframedwithsettings[#1]%