From 1715bb3f5ba468fc9d06c5835cdc9bba03de06d6 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Fri, 21 Apr 2023 21:47:42 +0200
Subject: allow zeroes in handle/tag regexes!

---
 lisp/mastodon-toot.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lisp')

diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index c2c391d..4c0a274 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -217,7 +217,7 @@ send.")
   (concat
    ;; preceding bracket, space or bol [boundary doesn't work with @]
    "\\([(\n\t ]\\|^\\)"
-   "\\(?2:@[1-9a-zA-Z._-]+" ; a handle
+   "\\(?2:@[0-9a-zA-Z._-]+" ; a handle
    "\\(@[^ \n\t]*\\)?\\)" ; with poss domain, * = allow only @
    "\\b"))
 
@@ -225,7 +225,7 @@ send.")
   (concat
    ;; preceding bracket, space or bol [boundary doesn't work with #]
    "\\([(\n\t ]\\|^\\)"
-   "\\(?2:#[1-9a-zA-Z_]+\\)" ; tag
+   "\\(?2:#[0-9a-zA-Z_]+\\)" ; tag
    "\\b")) ; boundary
 
 (defvar mastodon-toot-mode-map
-- 
cgit v1.2.3