[nongnu] elpa/lua-mode dfc3b78 083/468: Preserve buffer-modified-p state when (un-)marking multiline delimiters

[Philip Kaludercic]

branch: elpa/lua-mode
commit dfc3b7859ece0e1e51b0f789267aaab6805d3234
Author: immerrr <immerrr@gmail.com>
Commit: immerrr <immerrr@gmail.com>

    Preserve buffer-modified-p state when (un-)marking multiline delimiters
---
 lua-mode.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lua-mode.el b/lua-mode.el
index 4520258..f105b00 100644
--- a/lua-mode.el
+++ b/lua-mode.el
@@ -1184,7 +1184,10 @@ left out."
 
 If TYPE is string, mark char  as string delimiter. If TYPE is comment,
 mark char as comment delimiter.  Otherwise, remove the mark if any."
-  (lua-put-char-syntax-table pos (lua-get-multiline-delim-syntax type)))
+  (let ((old-modified-p (buffer-modified-p)))
+    (unwind-protect
+        (lua-put-char-syntax-table pos (lua-get-multiline-delim-syntax type))
+      (set-buffer-modified-p old-modified-p))))
 
 (defun lua-clear-multiline-delims (&optional begin end)
   "Clears all Lua multiline construct markers in region
@@ -1192,7 +1195,10 @@ mark char as comment delimiter.  Otherwise, remove the 
mark if any."
 If BEGIN is nil, start from `beginning-of-buffer'.
 If END is nil, stop at `end-of-buffer'."
   (interactive)
-  (remove-text-properties (or begin 1) (or end (buffer-size)) '(syntax-table 
()))
+  (let ((old-modified-p (buffer-modified-p)))
+    (unwind-protect
+        (remove-text-properties (or begin 1) (or end (buffer-size)) 
'(syntax-table ()))
+      (set-buffer-modified-p old-modified-p)))
   (font-lock-fontify-buffer))
 
 (defun lua-mark-all-multiline-literals (&optional begin end)