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: |
57ac49ce551b1aff15501108d3cdc7cd |
| 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 |
(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."
| < | 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."
(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)
|
| ︙ | ︙ |