diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2019-03-25 11:29:07 -0700 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-03-25 11:29:52 -0700 |
commit | 6d0f7f708a32aeb994a86d68a5d05c399aba319a (patch) | |
tree | 0c959c3f9af1b7db15676e4353b1ab6214af9dca | |
parent | 04a228f46714406d51b52e688c1788d2a89fd8c4 (diff) | |
download | emacs-6d0f7f708a32aeb994a86d68a5d05c399aba319a.tar.gz |
Fix a dns-mode reentrancy bug
* lisp/textmodes/dns-mode.el (dns-mode-ipv6-to-nibbles):
Don’t assume kill-new does no matching.
-rw-r--r-- | lisp/textmodes/dns-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 |