Overview
| Comment: | interpret server responses as utf-8 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
b95de752f788a40d1798360c7bdaeed2 |
| User & Date: | philip@warpmail.net on 2020-02-29 09:52:34 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-03-07
| ||
| 20:02 | reworked link handling check-in: 9ba1b42fbc user: philip@warpmail.net tags: master, trunk | |
|
2020-02-29
| ||
| 09:52 | interpret server responses as utf-8 check-in: b95de752f7 user: philip@warpmail.net tags: master, trunk | |
|
2020-02-27
| ||
| 23:53 | removed author and url from package header check-in: e61fee62a1 user: philip@warpmail.net tags: master, trunk | |
Changes
Modified sbbs.el from [17e6e6e90b] to [54b681e7c1].
| ︙ | ︙ | |||
224 225 226 227 228 229 230 231 232 233 234 235 236 237 |
Load results into buffer BUF. STATUS is used to check for
errors."
(when (buffer-live-p buf)
(when (plist-get status :error)
(error "Error while loading: %s"
(cdr (plist-get status :error))))
(forward-paragraph)
(let ((list (read (current-buffer))))
(kill-buffer)
(with-current-buffer buf
(let (ent)
(dolist (thread list)
(push (list (car thread)
(vector (substring (cdr (assq 'date (cdr thread)))
| > | 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 |
Load results into buffer BUF. STATUS is used to check for
errors."
(when (buffer-live-p buf)
(when (plist-get status :error)
(error "Error while loading: %s"
(cdr (plist-get status :error))))
(forward-paragraph)
(decode-coding-region (point-min) (point-max) 'utf-8)
(let ((list (read (current-buffer))))
(kill-buffer)
(with-current-buffer buf
(let (ent)
(dolist (thread list)
(push (list (car thread)
(vector (substring (cdr (assq 'date (cdr thread)))
|
| ︙ | ︙ | |||
253 254 255 256 257 258 259 260 261 262 263 264 265 266 |
load. STATUS is used to check for errors."
(when (buffer-live-p buf)
(when (plist-get status :error)
(error "Error while loading: %s"
(cdr (plist-get status :error))))
(prog-mode)
(forward-paragraph)
(save-excursion
(save-match-data
(while (search-forward "#f" nil t)
(unless (cadddr (syntax-ppss))
(replace-match "nil")))))
(save-excursion
(save-match-data
| > | 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 |
load. STATUS is used to check for errors."
(when (buffer-live-p buf)
(when (plist-get status :error)
(error "Error while loading: %s"
(cdr (plist-get status :error))))
(prog-mode)
(forward-paragraph)
(decode-coding-region (point) (point-max) 'utf-8)
(save-excursion
(save-match-data
(while (search-forward "#f" nil t)
(unless (cadddr (syntax-ppss))
(replace-match "nil")))))
(save-excursion
(save-match-data
|
| ︙ | ︙ |