Overview
Comment: | Fix detection of references in 'sbbs-show-replies' The 'sbbs-ref' property was not stored in the overlay, but as a text-property inside the buffer. For that reason, it would always find no references, even if there were references in the same thread. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
830ca8047fbfbb1da32ce2efcf05266a |
User & Date: | zge on 2024-02-29 20:07:34 |
Other Links: | branch diff | manifest | tags |
Context
2024-03-01
| ||
22:00 | Untabify region in 'sbbs--parse-number-range' check-in: a8434e7370 user: zge tags: master, trunk | |
2024-02-29
| ||
20:07 | Fix detection of references in 'sbbs-show-replies' The 'sbbs-ref' property was not stored in the overlay, but as a text-property inside the buffer. For that reason, it would always find no references, even if there were references in the same thread. check-in: 830ca8047f user: zge tags: master, trunk | |
2023-09-09
| ||
09:13 | fix the VIP/sage function check-in: 268b829751 user: anon tags: master, trunk | |
Changes
Modified sbbs.el from [bf2e481917] to [a0ab64dda3].
567 567 (sbbs--limit-to-range (cdar sbbs--limit-stack) t) 568 568 (when point (goto-char point)))))) 569 569 570 570 (defun sbbs-show-replies () 571 571 "Show all posts responding to post at point." 572 572 (interactive) 573 573 (let ((nr (get-text-property (point) 'sbbs-thread-nr)) 574 - (point (point)) overlay range) 575 - (while (setq overlay (next-button point)) 576 - (when (memq nr (overlay-get overlay 'sbbs-ref)) 577 - (push (get-text-property (overlay-start overlay) 578 - 'sbbs-thread-nr) 579 - range)) 580 - (setq point (overlay-end overlay))) 574 + overlay range) 575 + (save-excursion 576 + (while (setq overlay (next-button (point))) 577 + (let ((refs (get-text-property (overlay-start overlay) 578 + 'sbbs-ref))) 579 + (when (memq nr refs) 580 + (push (get-text-property (overlay-start overlay) 581 + 'sbbs-thread-nr) 582 + range))) 583 + (goto-char (overlay-end overlay)))) 581 584 (if range 582 585 (sbbs--limit-to-range range) 583 586 (message "No posts referencing %d" nr)))) 584 587 585 588 (defun sbbs-view-open (id &optional range) 586 589 "Open thread ID in new buffer. 587 590 If RANGE is nil, display all posts. If range is a list, display