diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-03-26 20:27:26 +0000 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-03-26 20:27:26 +0000 |
commit | ce6600296875e17009e2b85c769956cde55a2d53 (patch) | |
tree | 561dc188a6150b848fcd7babb492aa1245d58d58 | |
parent | 043675e4522634a2e10e58f8ffdc710518154813 (diff) |
Fix link regexp
-rw-r--r-- | sx-question-print.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/sx-question-print.el b/sx-question-print.el index f8d7d17..7f312eb 100644 --- a/sx-question-print.el +++ b/sx-question-print.el @@ -433,10 +433,11 @@ E.g.: (and (opt "!") "[" (group-n 1 (1+ (not (any "]")))) "]" (or (and "(" (group-n 2 (1+ (not (any ")")))) ")") (and "[" (group-n 3 (1+ (not (any "]")))) "]"))) - (group-n 4 (and (and "http" (opt "s") "://") "" + (group-n 4 (and "http" (opt "s") "://" (>= 2 (any lower numeric "_%")) "." - (>= 2 (any lower numeric "/-._%&#?=;")))))) + (>= 2 (any lower numeric "_%")) + (* (any lower numeric "-/._%&#?=;")))))) "Regexp matching markdown links.") (defun sx-question-mode--process-markdown-in-region (beg end) |