Commit 6d0f7f70 authored by Paul Eggert's avatar Paul Eggert

Fix a dns-mode reentrancy bug

* lisp/textmodes/dns-mode.el (dns-mode-ipv6-to-nibbles):
Don’t assume kill-new does no matching.
parent 04a228f4
Pipeline #1073 failed with stage
in 60 minutes and 1 second
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment