From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 23 Jul 2021 11:15:32 +0000 (+0200)
Subject: Make erc recognize `foo*' as a function Lisp symbol
X-Git-Tag: emacs-28.0.90~1749
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f1101fdc8270d26acb80e522245b0991847e2633;p=emacs.git

Make erc recognize `foo*' as a function Lisp symbol

* lisp/erc/erc-button.el (erc-button-alist): Add some more chars
to the `foo' button regexp (bug#49690).
---

diff --git a/lisp/erc/erc-button.el b/lisp/erc/erc-button.el
index cb9af92ba12..4678e7b5609 100644
--- a/lisp/erc/erc-button.el
+++ b/lisp/erc/erc-button.el
@@ -130,7 +130,8 @@ longer than `erc-fill-column'."
     ("<URL: *\\([^<> ]+\\) *>" 0 t browse-url-button-open-url 1)
 ;;; ("(\\(\\([^~\n \t@][^\n \t@]*\\)@\\([a-zA-Z0-9.:-]+\\)\\)" 1 t finger 2 3)
     ;; emacs internal
-    ("[`]\\([a-zA-Z][-a-zA-Z_0-9]+\\)[']" 1 t erc-button-describe-symbol 1)
+    ("[`]\\([a-zA-Z][-a-zA-Z_0-9!*<=>+]+\\)[']"
+     1 t erc-button-describe-symbol 1)
     ;; pseudo links
     ("\\bInfo:[\"]\\([^\"]+\\)[\"]" 0 t Info-goto-node 1)
     ("\\b\\(Ward\\|Wiki\\|WardsWiki\\|TheWiki\\):\\([A-Z][a-z]+\\([A-Z][a-z]+\\)+\\)"