sbbs.el

Check-in [57ac49ce55]
Login
Overview
Comment:Remove debugging (message ...) from sbbs--process-sxml
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | master | trunk
Files: files | file ages | folders
SHA3-256: 57ac49ce551b1aff15501108d3cdc7cd9e1831977a18f7762664c4e7337c6fb1
User & Date: zge on 2021-05-28 12:00:22
Other Links: branch diff | manifest | tags
Context
2021-05-28
12:04
Require text-property-search check-in: 5bade98968 user: zge tags: master, trunk
12:00
Remove debugging (message ...) from sbbs--process-sxml check-in: 57ac49ce55 user: zge tags: master, trunk
11:59
Avoid arithmetic error in sbbs-compose-format check-in: f577027486 user: zge tags: master, trunk
Changes

Modified sbbs.el from [730ca416cd] to [0404974fcc].

309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
309
310
311
312
313
314
315

316
317
318
319
320
321
322







-







                              (sbbs-view-open id range)))
                           ;; this thread
                           (range (sbbs--limit-to-range range))))))
        (propertize text 'action func 'sbbs-ref range)))))

(defun sbbs--process-sxml (sxml)
  "Process SXML into a formatted string."
  (message "%S" sxml)
  (let (processed)
    (dolist (it (if (listp sxml) sxml (list sxml)))
      (push (cond ((stringp it)
                   (propertize it 'face 'sbbs--variable-pitch))
                  ((eq (car it) 'br)
                   "\n")
                  ((eq (car it) 'b)