From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 25 Mar 2019 18:29:07 +0000 (-0700)
Subject: Fix a dns-mode reentrancy bug
X-Git-Tag: emacs-27.0.90~3342
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6d0f7f708a32aeb994a86d68a5d05c399aba319a;p=emacs.git

Fix a dns-mode reentrancy bug

* lisp/textmodes/dns-mode.el (dns-mode-ipv6-to-nibbles):
Don’t assume kill-new does no matching.
---

diff --git a/lisp/textmodes/dns-mode.el b/lisp/textmodes/dns-mode.el
index b303e1918eb..1dbc7bd7351 100644
--- a/lisp/textmodes/dns-mode.el
+++ b/lisp/textmodes/dns-mode.el
@@ -292,9 +292,9 @@ Examples:
   (skip-syntax-backward " ")
   (skip-syntax-backward "w_.")
   (re-search-forward "\\([[:xdigit:]:]+\\)\\(/-?[0-9]\\{2,3\\}\\)?")
-  (kill-new (match-string 0))
   (let ((address (match-string 1))
         (prefix-length (match-string 2)))
+    (kill-new (match-string 0))
     (when prefix-length
       (setq prefix-length (string-to-number (substring prefix-length 1)))
       (if negate-prefix