sbbs.el: Diff

Differences From Artifact [a0ab64dda3]:

File sbbs.el — part of check-in [830ca8047f] at 2024-02-29 20:07:34 on branch master — 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. (user: zge, size: 31544) [annotate] [blame] [check-ins using]

To Artifact [1635b42a7e]:

File sbbs.el — part of check-in [a8434e7370] at 2024-03-01 22:00:03 on branch master — Untabify region in 'sbbs--parse-number-range' (user: zge, size: 31619) [annotate] [blame] [check-ins using]

   218    218   
   219    219   (defun sbbs--parse-number-range (desc limit)
   220    220     "Generate list of numbers, as specified by DESC.
   221    221   
   222    222   To avoid memory overflows, limit number of entries to LIMIT."
   223    223     (save-match-data
   224    224       (apply #'nconc
   225         -		   (mapcar
   226         -		    (lambda (range)
   227         -			  (cond ((string-match "\\`\\([[:digit:]]+\\)-\\([[:digit:]]+\\)\\'" range)
   228         -				     (number-sequence (string-to-number (match-string 1 range))
          225  +           (mapcar
          226  +            (lambda (range)
          227  +              (cond ((string-match "\\`\\([[:digit:]]+\\)-\\([[:digit:]]+\\)\\'" range)
          228  +                     (number-sequence (string-to-number (match-string 1 range))
   229    229                                         (min limit (string-to-number (match-string 2 range)))))
   230         -				    ((string-match "\\`\\([[:digit:]]+\\)\\'" range)
   231         -				     (list (string-to-number (match-string 1 range))))
   232         -				    (t (error "Invalid range"))))
   233         -		    (split-string desc ",")))))
          230  +                    ((string-match "\\`\\([[:digit:]]+\\)\\'" range)
          231  +                     (list (string-to-number (match-string 1 range))))
          232  +                    (t (error "Invalid range"))))
          233  +            (split-string desc ",")))))
   234    234   
   235    235   (defun sbbs--read-jump-to (nr)
   236    236     "Set point to first character of post with number NR."
   237    237     (let ((up (point-min)) (down (point-max)) current)
   238    238       (while (progn
   239    239                (goto-char (+ up (/ (- down up) 2)))
   240    240                (setq current (get-text-property (point) 'sbbs-thread-nr))