emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/edit-indirect 032ac0ec69 20/28: Try to preserve markers wh


From: ELPA Syncer
Subject: [nongnu] elpa/edit-indirect 032ac0ec69 20/28: Try to preserve markers when committing
Date: Thu, 7 Jul 2022 11:59:14 -0400 (EDT)

branch: elpa/edit-indirect
commit 032ac0ec690d4999d564fd882588c7a197efe8dd
Author: Fanael Linithien <fanael4@gmail.com>
Commit: Fanael Linithien <fanael4@gmail.com>

    Try to preserve markers when committing
    
    Fixes #5.
---
 edit-indirect.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/edit-indirect.el b/edit-indirect.el
index 569e2adcd6..e749b6c7b4 100644
--- a/edit-indirect.el
+++ b/edit-indirect.el
@@ -2,12 +2,12 @@
 
 ;; Author: Fanael Linithien <fanael4@gmail.com>
 ;; URL: https://github.com/Fanael/edit-indirect
-;; Version: 0.1.4
+;; Version: 0.1.5
 ;; Package-Requires: ((emacs "24.3"))
 
 ;; This file is NOT part of GNU Emacs.
 
-;; Copyright (c) 2014-2016, Fanael Linithien
+;; Copyright (c) 2014-2017, Fanael Linithien
 ;; All rights reserved.
 ;;
 ;; Redistribution and use in source and binary forms, with or without
@@ -317,9 +317,11 @@ No error is signaled if `inhibit-read-only' or
               (end-marker (copy-marker end)))
           (edit-indirect--run-hook-with-positions
            'edit-indirect-before-commit-functions beg-marker end-marker)
-          (delete-region beg-marker end-marker)
-          (goto-char beg-marker)
-          (insert-buffer-substring-no-properties buffer 1 (1+ (buffer-size 
buffer)))
+          (save-match-data
+            (set-match-data (list beg-marker end-marker))
+            (replace-match (with-current-buffer buffer
+                             (buffer-substring-no-properties 1 (1+ 
(buffer-size))))
+                           t t))
           (edit-indirect--run-hook-with-positions
            'edit-indirect-after-commit-functions beg-marker (point))
           (set-marker beg-marker nil)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]