From 6d0f7f708a32aeb994a86d68a5d05c399aba319a Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 25 Mar 2019 11:29:07 -0700 Subject: [PATCH] Fix a dns-mode reentrancy bug MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * lisp/textmodes/dns-mode.el (dns-mode-ipv6-to-nibbles): Don’t assume kill-new does no matching. --- lisp/textmodes/dns-mode.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.5