Overview
| Comment: | Don't kill random buffer after parsing response |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
ba466181bd729fd919b3f408bdc33042 |
| User & Date: | zge on 2021-05-29 12:45:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-05-29
| ||
| 12:45 | Disable recenter-to-top by default check-in: e70b45d979 user: zge tags: master, trunk | |
| 12:45 | Don't kill random buffer after parsing response check-in: ba466181bd user: zge tags: master, trunk | |
| 12:39 | Kill buffer after parsing response check-in: 88a124bbee user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [dcc35df79d] to [d697b54718].
| ︙ | ︙ | |||
458 459 460 461 462 463 464 |
(cdr (assq 'messages (cdr thread))))
(propertize
(cdr (assq 'headline (cdr thread)))
'face 'sbbs--variable-pitch)))
ent))
(setq-local tabulated-list-entries ent)
(tabulated-list-print t t)
| | < | 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 |
(cdr (assq 'messages (cdr thread))))
(propertize
(cdr (assq 'headline (cdr thread)))
'face 'sbbs--variable-pitch)))
ent))
(setq-local tabulated-list-entries ent)
(tabulated-list-print t t)
(hl-line-highlight))))))
(defun sbbs--thread-loader (status id buf range)
"Callback function for `url-retrieve' when loading thread.
The attribute ID determines what thread from board BOARD to
load. STATUS is used to check for errors."
(when (buffer-live-p buf)
|
| ︙ | ︙ | |||
498 499 500 501 502 503 504 |
(dolist (post (cadr (assq 'posts thread)))
(sbbs--thread-insert-post post))
(delete-blank-lines)
(when range
(sbbs--limit-to-range range))
(if sbbs-open-at-last-post
(sbbs-goto-end)
| | < | 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 |
(dolist (post (cadr (assq 'posts thread)))
(sbbs--thread-insert-post post))
(delete-blank-lines)
(when range
(sbbs--limit-to-range range))
(if sbbs-open-at-last-post
(sbbs-goto-end)
(goto-char (point-min))))))))
;; INTERACTIVE FUNCTIONS
(defun sbbs-show-all ()
"Show all hidden posts."
(interactive)
(sbbs-show-pop -1))
|
| ︙ | ︙ |