[elpa] externals/eglot ec02ffa 14/62: Work around Emacs bugs 32237, 32278 (#53)

[Stefan Monnier]

branch: externals/eglot
commit ec02ffab1f2c2a69062f7c7e7a921cda2575f0c4
Author: mkcms <address@hidden>
Commit: João Távora <address@hidden>

    Work around Emacs bugs 32237, 32278 (#53)
    
    See:
    https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32237
    https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32278
    
    * eglot.el (eglot--apply-text-edits): Inhibit modification hooks and
      call them manually for the changed region.
---
 eglot.el | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/eglot.el b/eglot.el
index 695db49..1ca7b6d 100644
--- a/eglot.el
+++ b/eglot.el
@@ -1438,7 +1438,23 @@ If SKIP-SIGNATURE, don't try to send 
textDocument/signatureHelp."
                       (save-excursion
                         (save-restriction
                           (narrow-to-region beg end)
-                          (replace-buffer-contents temp)))
+
+                          ;; On emacs versions < 26.2,
+                          ;; `replace-buffer-contents' is buggy - it calls
+                          ;; change functions with invalid arguments - so we
+                          ;; manually call the change functions here.
+                          ;;
+                          ;; See emacs bugs #32237, #32278:
+                          ;; 
https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32237
+                          ;; 
https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32278
+                          (let ((inhibit-modification-hooks t)
+                                (length (- end beg)))
+                            (run-hook-with-args 'before-change-functions
+                                                beg end)
+                            (replace-buffer-contents temp)
+                            (run-hook-with-args 'after-change-functions
+                                                beg (+ beg (length newText))
+                                                length))))
                       (progress-reporter-update reporter (cl-incf done)))))))
             (mapcar (jsonrpc-lambda (&key range newText)
                       (cons newText (eglot--range-region range 'markers)))