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) |
︙ | ︙ |