--- button.c-	2023-10-22 12:28:34.000000000 -0600
+++ button.c	2023-12-10 08:19:24.566953186 -0600
@@ -2904,15 +2904,15 @@
 
 static SelectUnit
 EvalSelectUnit(XtermWidget xw,
-	       Time buttonDownTime,
-	       SelectUnit defaultUnit,
-	       unsigned int button)
+	       XButtonEvent *event,
+	       SelectUnit defaultUnit)
 {
+    Time buttonDownTime = event->time;
     TScreen *screen = TScreenOf(xw);
     SelectUnit result;
     int delta;
 
-    if (button != screen->lastButton) {
+    if (event->button != screen->lastButton) {
 	delta = screen->multiClickTime + 1;
     } else if (screen->lastButtonUpTime == (Time) 0) {
 	/* first time and once in a blue moon */
@@ -2925,7 +2925,11 @@
 	delta = (int) ((((Time) ~ 0) - screen->lastButtonUpTime) + buttonDownTime);
     }
 
-    if (delta > screen->multiClickTime) {
+    if ((event->state & ShiftMask)) {
+	screen->numberOfClicks = 1;
+	screen->andPasteToo = !(event->state & ControlMask);
+	result = Select_WORD;
+    } else if (delta > screen->multiClickTime) {
 	screen->numberOfClicks = 1;
 	result = defaultUnit;
     } else {
@@ -2946,9 +2950,8 @@
     if (SendMousePosition(xw, event))
 	return;
     screen->selectUnit = EvalSelectUnit(xw,
-					event->xbutton.time,
-					Select_CHAR,
-					event->xbutton.button);
+					&event->xbutton,
+					Select_CHAR);
     screen->replyToEmacs = False;
 
 #if OPT_READLINE
@@ -3008,9 +3011,8 @@
     CELL cell;
 
     screen->selectUnit = EvalSelectUnit(xw,
-					event->time,
-					Select_CHAR,
-					event->button);
+					event,
+					Select_CHAR);
     if (screen->numberOfClicks > 1) {
 	PointToCELL(screen, event->y, event->x, &cell);
 	screen->replyToEmacs = True;
@@ -3174,6 +3176,10 @@
 	}
     }
     SelectSet(xw, event, params, num_params);
+    if (screen->andPasteToo) {
+	xtermGetSelection((Widget) xw, event->xbutton.time, params, num_params, NULL);
+	screen->andPasteToo = False;
+    }
     screen->eventMode = NORMAL;
 }
 
@@ -3240,9 +3246,8 @@
 	|| !(SCREEN_FLAG(screen, dclick3_deletes)))
 #endif
 	screen->selectUnit = EvalSelectUnit(xw,
-					    event->xbutton.time,
-					    screen->selectUnit,
-					    event->xbutton.button);
+					    &event->xbutton,
+					    screen->selectUnit);
     screen->replyToEmacs = False;
 
 #if OPT_READLINE
--- ptyx.h-	2023-10-22 04:26:34.000000000 -0600
+++ ptyx.h	2023-12-10 08:19:24.566953186 -0600
@@ -2895,6 +2895,7 @@
 	Time		selection_time;	/* latest event timestamp */
 	Time		lastButtonUpTime;
 	unsigned	lastButton;
+	Boolean		andPasteToo;
 
 #define MAX_CUT_BUFFER  8		/* CUT_BUFFER0 to CUT_BUFFER7 */
 #define MAX_SELECTIONS	(MAX_SELECTION_CODES + MAX_CUT_BUFFER)