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 458 (cdr (assq 'messages (cdr thread)))) 459 459 (propertize 460 460 (cdr (assq 'headline (cdr thread))) 461 461 'face 'sbbs--variable-pitch))) 462 462 ent)) 463 463 (setq-local tabulated-list-entries ent) 464 464 (tabulated-list-print t t) 465 - (hl-line-highlight))))) 466 - (kill-buffer)) 465 + (hl-line-highlight)))))) 467 466 468 467 (defun sbbs--thread-loader (status id buf range) 469 468 "Callback function for `url-retrieve' when loading thread. 470 469 471 470 The attribute ID determines what thread from board BOARD to 472 471 load. STATUS is used to check for errors." 473 472 (when (buffer-live-p buf) ................................................................................ 498 497 (dolist (post (cadr (assq 'posts thread))) 499 498 (sbbs--thread-insert-post post)) 500 499 (delete-blank-lines) 501 500 (when range 502 501 (sbbs--limit-to-range range)) 503 502 (if sbbs-open-at-last-post 504 503 (sbbs-goto-end) 505 - (goto-char (point-min))))))) 506 - (kill-buffer)) 504 + (goto-char (point-min)))))))) 507 505 508 506 ;; INTERACTIVE FUNCTIONS 509 507 510 508 (defun sbbs-show-all () 511 509 "Show all hidden posts." 512 510 (interactive) 513 511 (sbbs-show-pop -1))