diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2020-04-16 11:04:24 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2020-04-16 12:14:38 +0200 |
| commit | 905c0a13f7929298cb36151f46dbef03f7bdcbe4 (patch) | |
| tree | b2adb12f5e6810bf3784628efae69828bba3c464 /lisp/net/puny.el | |
| parent | 01436fddfb2587271391e72b7eaa6c5c541b46d8 (diff) | |
| download | emacs-905c0a13f7929298cb36151f46dbef03f7bdcbe4.tar.gz | |
Fix bugs, inefficiencies and bad style in regexps
Found by relint. See discussion at
https://lists.gnu.org/archive/html/emacs-devel/2020-04/msg00265.html
* lisp/org/org-table.el (org-table-finish-edit-field):
* lisp/arc-mode.el (archive-rar-summarize):
Avoid wrapped subsumption in repeated sequences.
* lisp/erc/erc-dcc.el (erc-dcc-ctcp-query-send-regexp): Replace
inefficient repeated empty-matching expression with a plain greedy
form.
(erc-dcc-handle-ctcp-send): Adjust group numbers.
* lisp/net/puny.el (puny-encode-domain): Fix fast-path shortcut
pattern so that it actually works as intended.
* lisp/progmodes/gdb-mi.el (gdb-control-commands-regexp):
* lisp/vc/diff-mode.el (diff-imenu-generic-expression):
Remove superfluous backslashes.
* lisp/progmodes/scheme.el (scheme-imenu-generic-expression):
Correct confused definition-matching pattern which would match more
than intended.
* lisp/textmodes/sgml-mode.el (sgml-tag-name-re): Avoid inefficient
matching by using the fact that the first character cannot match the
last char of sgml-name-re.
Diffstat (limited to 'lisp/net/puny.el')
| -rw-r--r-- | lisp/net/puny.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/puny.el b/lisp/net/puny.el index 60a6c12e6c7..6987d253248 100644 --- a/lisp/net/puny.el +++ b/lisp/net/puny.el @@ -35,7 +35,7 @@ For instance, \"fśf.org\" => \"xn--ff-2sa.org\"." ;; The vast majority of domain names are not IDNA domain names, so ;; add a check first to avoid doing unnecessary work. - (if (string-match "\\'[[:ascii:]]+\\'" domain) + (if (string-match "\\`[[:ascii:]]+\\'" domain) domain (mapconcat 'puny-encode-string (split-string domain "[.]") "."))) |