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
        (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