-- Leo's gemini proxy

-- Connecting to git.thebackupbox.net:1965...

-- Connected

-- Sending request

-- Meta line: 20 text/gemini

repo: rxvt-unicode-sixel
action: commit
revision:
path_from:
revision_from: 7fffdb66670a726fc5892266efc9e482fa5f33c1:
path_to:
revision_to:

commit 7fffdb66670a726fc5892266efc9e482fa5f33c1
Author: Marc Lehmann <schmorp@schmorp.de>
Date:   Tue Jan 3 18:11:34 2006 +0000

    *** empty log message ***

diff --git a/Changes b/Changes

--- a/Changes
+++ b/Changes
@@ -7,6 +7,7 @@ TODO: read property sequence is broken with respect to utf-8 etc.
 TODO: http://www120.pair.com/mccarthy/nextstep/intro.htmld/Workspace.html is the correct nextstep look.
 WISH: OnTheSpot editing, or maybe switch to miiiiiiif
 WISH: just for fun, do shade and tint with XRender.
+WISH: make builtin character glyphs optional

         - optionally embed a perl interpreter, which can be used for more
           intelligent/customized selection support, visual feedback,
diff --git a/doc/rxvt.1.pod b/doc/rxvt.1.pod

--- a/doc/rxvt.1.pod
+++ b/doc/rxvt.1.pod
@@ -1067,7 +1067,9 @@ info):

 Colon-separated list of perl extension scripts to use in this terminal
 instance. Each extension is looked up in the library directories, loaded
-if necessary, and bound to the current terminal instance; option B<-pe>.
+if necessary, and bound to the current terminal instance. If this resource
+is empty or missing, then the perl interpreter will not be initialized;
+option B<-pe>.

 =item B<perl-eval>: I<string>

diff --git a/src/main.C b/src/main.C

--- a/src/main.C
+++ b/src/main.C
@@ -489,11 +489,13 @@ rxvt_term::init (int argc, const char *const *argv)
 #endif

 #if ENABLE_PERL
-  rxvt_perl.init ();
+  if (rs[Rs_perl_ext] && *rs[Rs_perl_ext])
+    {
+      rxvt_perl.init ();
+      PERL_INVOKE ((this, HOOK_INIT, DT_END));
+    }
 #endif

-  PERL_INVOKE ((this, HOOK_INIT, DT_END));
-
   create_windows (argc, argv);

   dDisp;
diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs

--- a/src/rxvtperl.xs
+++ b/src/rxvtperl.xs
@@ -369,6 +369,8 @@ rxvt_perl_interp::invoke (rxvt_term *term, hook_type htype, ...)
       term->self = (void *)newSVptr ((void *)term, "urxvt::term");
       hv_store ((HV *)SvRV ((SV *)term->self), "_overlay", 8, newRV_noinc ((SV *)newHV ()), 0);
     }
+  else if (!term->self)
+    return false; // perl not initialized for this instance
   else if (htype == HOOK_DESTROY)
     {
       // handled later
@@ -474,7 +476,6 @@ BOOT:
   set_hookname (SEL_EXTEND);
   set_hookname (SEL_MAKE);
   set_hookname (SEL_GRAB);
-  set_hookname (SEL_CLICK);
   set_hookname (FOCUS_IN);
   set_hookname (FOCUS_OUT);
   set_hookname (VIEW_CHANGE);
@@ -483,8 +484,6 @@ BOOT:
   set_hookname (REFRESH_BEGIN);
   set_hookname (REFRESH_END);
   set_hookname (KEYBOARD_COMMAND);
-  set_hookname (MOUSE_CLICK);
-  set_hookname (MOUSE_MOVE);

   export_const (DEFAULT_RSTYLE);
   export_const (OVERLAY_RSTYLE);

-- Response ended

-- Page fetched on Sun Jun 2 13:30:14 2024