Overview
| Comment: | Kill buffer after parsing response |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
88a124bbee06d4c1d89303c45b6101ea |
| User & Date: | zge on 2021-05-29 12:39:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-05-29
| ||
| 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 | |
|
2021-05-28
| ||
| 12:04 | Require text-property-search check-in: 5bade98968 user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [d697b54718] to [dcc35df79d].
| ︙ | ︙ | |||
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 473 |
(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)))))
(kill-buffer))
(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)
|
| ︙ | ︙ | |||
497 498 499 500 501 502 503 |
(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)
| | > | 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 |
(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)))))))
(kill-buffer))
;; INTERACTIVE FUNCTIONS
(defun sbbs-show-all ()
"Show all hidden posts."
(interactive)
(sbbs-show-pop -1))
|
| ︙ | ︙ |