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
...
253
254
255
256
257
258
259
260
261
262
263
264
265
266
|
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)))
................................................................................
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
|
>
>
|
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
...
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
|
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))) ................................................................................ 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 |