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)) |
︙ | ︙ |