From: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Date: Thu, 30 Jun 2022 01:37:57 +0000 (-0400)
Subject: EUDC: Prevent field overlap when query form is reset
X-Git-Tag: emacs-29.0.90~1447^2~1370
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d7dc8c5fe4ac1735a7565473621d7504cc5ef089;p=emacs.git

EUDC: Prevent field overlap when query form is reset

* lisp/net/eudc.el (eudc-query-form): Delete all overlays before
erasing buffer.  Remove widget-after-change from
after-change-functions.
---

diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 1d9dbbeb754..fc35d6a0844 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -1026,7 +1026,10 @@ queries the server for the existing fields and displays a corresponding form."
 	pt)
     (switch-to-buffer buffer)
     (let ((inhibit-read-only t))
+    (remove-hook 'after-change-functions 'widget-after-change t)
+    (delete-all-overlays)
     (erase-buffer)
+    (add-hook 'after-change-functions 'widget-after-change nil t)
     (kill-all-local-variables)
     (make-local-variable 'eudc-form-widget-list)
     (widget-insert "Directory Query Form\n")