branch: elpa/lua-mode
commit dfc3b7859ece0e1e51b0f789267aaab6805d3234
Author: immerrr <[email protected]>
Commit: immerrr <[email protected]>
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)
