Overview
Comment: | stopped renaming thread buffers from "loading..." to "reading..." |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
42800999ca0419547bb5d310759f216d |
User & Date: | philip@warpmail.net on 2020-02-26 22:23:57 |
Other Links: | branch diff | manifest | tags |
Context
2020-02-27
| ||
23:53 | removed author and url from package header check-in: e61fee62a1 user: philip@warpmail.net tags: master, trunk | |
2020-02-26
| ||
22:23 | stopped renaming thread buffers from "loading..." to "reading..." check-in: 42800999ca user: philip@warpmail.net tags: master, trunk | |
22:23 | fixed revert buffer bug in thread buffers check-in: 25999f9e22 user: philip@warpmail.net tags: master, trunk | |
Changes
Modified sbbs.el from [63b5169aec] to [cff74e11bf].
276 276 (erase-buffer) 277 277 (setq header-line-format 278 278 (format "Thread %d: %s" id 279 279 (cdr (assq 'headline thread)))) 280 280 (dolist (post (cadr (assq 'posts thread))) 281 281 (sbbs--thread-insert-post post)) 282 282 (delete-blank-lines) 283 - (goto-char (point-min))) 284 - (rename-buffer (format "*reading /%s/%d*" 285 - (sbbs--board-name sbbs--board) 286 - id)))))) 283 + (goto-char (point-min))))))) 287 284 288 285 ;; INTERACTIVE FUNCTIONS 289 286 290 287 (defun sbbs-view-open (id) 291 288 "Open thread ID in new buffer." 292 289 (interactive (list (tabulated-list-get-id))) 293 290 (let ((url (sbbs--board-url (format "/%d" id) t)) 294 291 (headline (or (and (not (tabulated-list-get-entry)) 295 292 header-line-format) 296 293 (substring-no-properties 297 294 (aref (tabulated-list-get-entry) 2)))) 298 295 (board sbbs--board) 299 296 (buf (get-buffer-create 300 - (format "*loading /%s/%d*" 297 + (format "*reading /%s/%d*" 301 298 (sbbs--board-name sbbs--board) 302 299 id)))) 303 300 (with-current-buffer buf 304 301 (sbbs-read-mode) 305 302 (when headline 306 303 (setq header-line-format (format "Thread %d: %s" id headline))) 307 304 (setq sbbs--board board