sbbs.el

Diff
Login

Differences From Artifact [a69b270c46]:

To Artifact [8f395ca288]:


257
258
259
260
261
262
263

264

265
266
267
268
269
270
271
257
258
259
260
261
262
263
264

265
266
267
268
269
270
271
272







+
-
+







                              (sbbs-view-open id range)))
                           ;; other thread
                           ((/= id sbbs--thread-id)
                            (let ((sbbs--board board))
                              (sbbs-view-open id range)))
                           ;; this thread
                           (range (sbbs--limit-to-range range))))))
        (insert-button (propertize text  'face 'variable-pitch)
        (insert-button text 'action func 'sbbs-ref range)))))
                       'action func 'sbbs-ref range)))))

(defun sbbs--insert-sxml-par (sxml)
  "Insert paragraph contents SXML at point."
  (dolist (it sxml)
    (cond ((stringp it)
           (insert (propertize it 'face 'variable-pitch)))
          ((eq (car it) 'br)