sbbs.el

Check-in [830ca8047f]
Login
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: 830ca8047fbfbb1da32ce2efcf05266a7c3ae5e11690a340de62427279d8c3ff
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
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))
        (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)))
        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