From: "Basil L. Contovounesios" <contovob@tcd.ie>
To: Paul Eggert <eggert@cs.ucla.edu>
Cc: "Mattias Engdegård" <mattiase@acm.org>,
emacs-devel <emacs-devel@gnu.org>
Subject: Re: Regexp error scan (March 26)
Date: Wed, 27 Mar 2019 03:43:11 +0000 [thread overview]
Message-ID: <87h8bpvv74.fsf@tcd.ie> (raw)
In-Reply-To: <77419a89-ce9f-919b-c221-c7a3b938587a@cs.ucla.edu> (Paul Eggert's message of "Tue, 26 Mar 2019 19:10:05 -0700")
Paul Eggert <eggert@cs.ucla.edu> writes:
> diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
> index bcaa3e4525..e34487de27 100644
> --- a/lisp/erc/erc.el
> +++ b/lisp/erc/erc.el
> @@ -67,6 +67,7 @@
> (load "erc-loaddefs" nil t)
>
> (eval-when-compile (require 'cl-lib))
> +(require 'cl-seq)
> (require 'font-lock)
> (require 'pp)
> (require 'thingatpt)
> @@ -2522,10 +2523,8 @@ erc-lurker-maybe-trim
> non-nil."
> (if erc-lurker-trim-nicks
> (replace-regexp-in-string
> - (format "[%s]"
> - (mapconcat (lambda (char)
> - (regexp-quote (char-to-string char)))
> - erc-lurker-ignore-chars ""))
> + (regexp-opt (cl-delete-duplicates
> + (mapcar #'char-to-string erc-lurker-ignore-chars)))
> "" nick)
> nick))
regexp-opt already deletes duplicates, so you can just:
(regexp-opt (mapcar #'char-to-string erc-lurker-ignore-chars))
Besides, cl-delete-duplicates defaults to eql for equality, so it's a
no-op here anyway.
Thanks,
--
Basil
next prev parent reply other threads:[~2019-03-27 3:43 UTC|newest]
Thread overview: 14+ messages / expand[flat|nested] mbox.gz Atom feed top
2019-03-26 17:38 Regexp error scan (March 26) Mattias Engdegård
2019-03-27 2:10 ` Paul Eggert
2019-03-27 3:43 ` Basil L. Contovounesios [this message]
2019-03-27 9:14 ` Mattias Engdegård
2019-03-27 13:55 ` Andy Moreton
2019-03-27 14:36 ` Stefan Monnier
2019-03-27 14:41 ` Mattias Engdegård
2019-03-27 14:45 ` Stefan Monnier
2019-03-27 14:49 ` Noam Postavsky
2019-03-27 15:45 ` Mattias Engdegård
2019-03-27 15:48 ` Stefan Monnier
2019-03-27 18:50 ` Paul Eggert
2019-03-27 15:28 ` Damien Collard
2019-03-27 12:09 ` Mattias Engdegård
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87h8bpvv74.fsf@tcd.ie \
--to=contovob@tcd.ie \
--cc=eggert@cs.ucla.edu \
--cc=emacs-devel@gnu.org \
--cc=mattiase@acm.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).