emacs-27 e2c7b63: Don't leave lock files after 'replace-buffer-contents'

[Eli Zaretskii]

branch: emacs-27
commit e2c7b6372d220d09f5d1bf80aa353979a546c57c
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    Don't leave lock files after 'replace-buffer-contents'
    
    * src/editfns.c (Freplace_buffer_contents): Unlock the buffer's
    file if no changes have been made.  (Bug#44303)
    
    (cherry picked from commit a5867ddfbd721568005175bf6c725f7834b21ea4)
---
 src/editfns.c | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/editfns.c b/src/editfns.c
index f660513..fb420da 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2145,6 +2145,13 @@ nil.  */)
     {
       signal_after_change (BEGV, size_a, ZV - BEGV);
       update_compositions (BEGV, ZV, CHECK_INSIDE);
+      /* We've locked the buffer's file above in
+        prepare_to_modify_buffer; if the buffer is unchanged at this
+        point, i.e. no insertions or deletions have been made, unlock
+        the file now.  */
+      if (SAVE_MODIFF == MODIFF
+         && STRINGP (BVAR (a, file_truename)))
+       unlock_file (BVAR (a, file_truename));
     }
 
   return Qt;