Overview
Comment: | Untabify region in 'sbbs--parse-number-range' |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
a8434e737086eada88ce99b2f3f00bfa |
User & Date: | zge on 2024-03-01 22:00:03 |
Other Links: | branch diff | manifest | tags |
Context
2024-03-01
| ||
22:00 | Rework directory local variables check-in: 303773e90d user: zge tags: master, trunk | |
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 | |
Changes
Modified sbbs.el from [a0ab64dda3] to [1635b42a7e].
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))