branch: elpa/recomplete
commit 0e4a2bad35886e31742117eee3d610e13586ac5e
Author: Campbell Barton <ideasma...@gmail.com>
Commit: Campbell Barton <ideasma...@gmail.com>
Cleanup: skip calls to delete/insert for empty regions
---
recomplete.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/recomplete.el b/recomplete.el
index d785e77b1b..0a3bfaa9b6 100644
--- a/recomplete.el
+++ b/recomplete.el
@@ -483,8 +483,12 @@ Return the region replaced."
(setq str (substring str (or i-beg 0) (or i-end len))))
(goto-char beg)
- (delete-region beg end)
- (insert str)
+
+ (unless (eq beg end)
+ (delete-region beg end))
+ (unless (string-empty-p str)
+ (insert str))
+
(when i-end-ofs
;; Leave the cursor where it would be if the end wasn't clipped.
(goto-char (+ (point) i-end-ofs)))
