pin when lowring

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/templates/script.ts b/templates/script.ts
index 3d036b4833590cb666d3b1736e6a73ffceb8bbb4..973311f1f8d133efba782ff06db46e69adcb8c33 100644 (file)
--- a/templates/script.ts
+++ b/templates/script.ts
@@ -560,8 +560,13 @@ keyops_local['wrest'] = function (uo: UoRecord) {
   recompute_keybindings();
 }
 
-keyops_local['pin'  ] = function (uo) { pin_unpin(uo, true ); }
-keyops_local['unpin'] = function (uo) { pin_unpin(uo, false); }
+keyops_local['pin'  ] = function (uo) {
+  if (!lower_targets(uo)) return;
+  pin_unpin(uo, true);
+}
+keyops_local['unpin'] = function (uo) {
+  pin_unpin(uo, false);
+}
 
 function pin_unpin(uo: UoRecord, newpin: boolean) {
   for (let piece of uo.targets!) {