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 574 575 576 577 578 579 580 581 582 583 584 585 586 587 |
(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))
(point (point)) overlay range)
(while (setq overlay (next-button point))
(when (memq nr (overlay-get overlay 'sbbs-ref))
(push (get-text-property (overlay-start overlay)
'sbbs-thread-nr)
range))
(setq point (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
|
| > | > > | | | | | |
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
|