2020-12-18 18:31:00

2 files changed, 14 insertions, 1 deletions

diff --git a/metapost/context/base/mpxl/mp-base.mpxl b/metapost/context/base/mpxl/mp-base.mpxl
index df7280186..2c88ee53a 100644
--- a/metapost/context/base/mpxl/mp-base.mpxl
+++ b/metapost/context/base/mpxl/mp-base.mpxl
@@ -715,7 +715,9 @@ def drawdot expr p =
     fi
 enddef ;
 
-permanent drawoptions, currentpen, currentpicture, filldraw, drawdot ; % redefined later: fill, draw
+permanent drawoptions, currentpen, filldraw, drawdot ; % redefined later: fill, draw
+
+% permanent currentpicture; % not yet
 
 % Kind of obsolete:
 
diff --git a/metapost/context/base/mpxl/mp-luas.mpxl b/metapost/context/base/mpxl/mp-luas.mpxl
index 14da16289..d652140c4 100644
--- a/metapost/context/base/mpxl/mp-luas.mpxl
+++ b/metapost/context/base/mpxl/mp-luas.mpxl
@@ -282,3 +282,14 @@ newscriptindex mfid_definecolor ; mfid_definecolor := scriptindex "definecolor"
 def definecolor = runscript mfid_definecolor ; enddef ; % the semicolon prevents lookahead
 
 permanent definecolor ;
+
+% showproperty  fullcircle ;
+% showhashentry "fullcircle" ;
+
+newscriptindex mfid_showproperty  ; mfid_showproperty  := scriptindex("showproperty") ;
+newscriptindex mfid_showhashentry ; mfid_showhashentry := scriptindex("showhashentry") ;
+
+def showproperty  = runscript mfid_showproperty  enddef ;
+def showhashentry = runscript mfid_showhashentry enddef ;
+
+permanent showproperty, showhashentry ;