From e0282a064c78ef95fccf2cfe645eae320cb4c2c4 Mon Sep 17 00:00:00 2001
From: mitchell <70453897+667e-11@users.noreply.github.com>
Date: Tue, 3 Mar 2020 23:43:24 -0500
Subject: Added tests for some complex menu functions.

---
 modules/textadept/menu.lua | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'modules/textadept/menu.lua')

diff --git a/modules/textadept/menu.lua b/modules/textadept/menu.lua
index 9684516b..f986037a 100644
--- a/modules/textadept/menu.lua
+++ b/modules/textadept/menu.lua
@@ -118,10 +118,12 @@ local default_menubar = {
       {_L['Lower Case Selection'], buffer.lower_case},
       SEPARATOR,
       {_L['Enclose as XML Tags'], function()
+        buffer:begin_undo_action()
         enc('<', '>')
         local pos = buffer.current_pos
         while buffer.char_at[pos - 1] ~= 60 do pos = pos - 1 end -- '<'
         buffer:insert_text(-1, '</'..buffer:text_range(pos, buffer.current_pos))
+        buffer:end_undo_action()
       end},
       {_L['Enclose as Single XML Tag'], function() enc('<', ' />') end},
       {_L['Enclose in Single Quotes'], function() enc("'", "'") end},
-- 
cgit v1.2.3