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 568 569 570 571 572 573 | (sbbs--limit-to-range (cdar sbbs--limit-stack) t) (when point (goto-char point)))))) (defun sbbs-show-replies () "Show all posts responding to post at point." (interactive) (let ((nr (get-text-property (point) 'sbbs-thread-nr)) | | > | > > | | | | | | 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 | (sbbs--limit-to-range (cdar sbbs--limit-stack) t) (when point (goto-char point)))))) (defun sbbs-show-replies () "Show all posts responding to post at point." (interactive) (let ((nr (get-text-property (point) 'sbbs-thread-nr)) overlay range) (save-excursion (while (setq overlay (next-button (point))) (let ((refs (get-text-property (overlay-start overlay) 'sbbs-ref))) (when (memq nr refs) (push (get-text-property (overlay-start overlay) 'sbbs-thread-nr) range))) (goto-char (overlay-end overlay)))) (if range (sbbs--limit-to-range range) (message "No posts referencing %d" nr)))) (defun sbbs-view-open (id &optional range) "Open thread ID in new buffer. If RANGE is nil, display all posts. If range is a list, display |
︙ | ︙ |