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