Overview
| Comment: | Fixed URL handeling with ","-ranges |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
df55ff629320007ff74a6d0db095ab30 |
| User & Date: | zge on 2020-06-18 13:11:24 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-10-07
| ||
| 17:09 | Add separate face for post headers check-in: aa9e221e24 user: zge tags: master, trunk | |
|
2020-06-18
| ||
| 13:11 | Fixed URL handeling with ","-ranges check-in: df55ff6293 user: zge tags: master, trunk | |
|
2020-06-08
| ||
| 10:26 | Fix sbbs-compose-format when mark is before point check-in: a9ee28fa6d user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [75ce247893] to [e334160be5].
218 218 "/" (group-n 4 (: (+ digit) (? "-" (+ digit))) 219 219 (* "," (+ digit) (? "-" (+ digit))))) 220 220 (: "http" (? "s") "://" 221 221 (group-n 1 (or ,@(mapcar #'sbbs--board-domain 222 222 (sbbs--list-boards)))) 223 223 "/" (group-n 2 (+ alnum)) 224 224 "/" (group-n 3 (+ digit)) 225 - (? "#t" (backref 3) 226 - "p" (group-n 4 (+ digit))))) 225 + (? (or (: "/" (group-n 4 (: (+ digit) (? "-" (+ digit))) 226 + (* "," (+ digit) (? "-" (+ digit))))) 227 + (: "#t" (backref 3) 228 + "p" (group-n 4 (+ digit))))))) 227 229 eos)) 228 230 "Regular expression to destruct internal links.") 229 231 230 232 (defun sbbs--limit-to-range (spec &optional no-push-p) 231 233 "Hide all posts in the current thread, that aren't in SPEC. 232 234 233 235 Unless NO-PUSH-P is non-nil, SPEC will be pushed onto