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 224 Load results into buffer BUF. STATUS is used to check for 225 225 errors." 226 226 (when (buffer-live-p buf) 227 227 (when (plist-get status :error) 228 228 (error "Error while loading: %s" 229 229 (cdr (plist-get status :error)))) 230 230 (forward-paragraph) 231 + (decode-coding-region (point-min) (point-max) 'utf-8) 231 232 (let ((list (read (current-buffer)))) 232 233 (kill-buffer) 233 234 (with-current-buffer buf 234 235 (let (ent) 235 236 (dolist (thread list) 236 237 (push (list (car thread) 237 238 (vector (substring (cdr (assq 'date (cdr thread))) ................................................................................ 253 254 load. STATUS is used to check for errors." 254 255 (when (buffer-live-p buf) 255 256 (when (plist-get status :error) 256 257 (error "Error while loading: %s" 257 258 (cdr (plist-get status :error)))) 258 259 (prog-mode) 259 260 (forward-paragraph) 261 + (decode-coding-region (point) (point-max) 'utf-8) 260 262 (save-excursion 261 263 (save-match-data 262 264 (while (search-forward "#f" nil t) 263 265 (unless (cadddr (syntax-ppss)) 264 266 (replace-match "nil"))))) 265 267 (save-excursion 266 268 (save-match-data