sbbs.el

Diff
Login

Differences From Artifact [17e6e6e90b]:

To Artifact [54b681e7c1]:


224
225
226
227
228
229
230

231
232
233
234
235
236
237
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
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