Overview
| Comment: | stopped filling paragraphs after manual line break |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
50b5a3c4bd60c8aa722afb4ed79923de |
| User & Date: | philip@warpmail.net on 2020-02-26 22:22:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-02-26
| ||
| 22:23 | fixed revert buffer bug in thread buffers check-in: 25999f9e22 user: philip@warpmail.net tags: master, trunk | |
| 22:22 | stopped filling paragraphs after manual line break check-in: 50b5a3c4bd user: philip@warpmail.net tags: master, trunk | |
| 22:17 | removed risky flag from sbbs-boards check-in: 9ba0256b5c user: philip@warpmail.net tags: master, trunk | |
Changes
Modified sbbs.el from [cec0dbd9ca] to [5ad14f783c].
164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 |
(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)
(fill-paragraph)
(newline))
((eq (car it) 'b)
(insert (propertize (cadr it) 'face '(bold variable-pitch))))
((eq (car it) 'i)
(insert (propertize (cadr it) 'face '(italic variable-pitch))))
((eq (car it) 'code)
(insert (propertize (cadr it) 'face 'fixed-pitch)))
|
< |
164 165 166 167 168 169 170 171 172 173 174 175 176 177 |
(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)
(newline))
((eq (car it) 'b)
(insert (propertize (cadr it) 'face '(bold variable-pitch))))
((eq (car it) 'i)
(insert (propertize (cadr it) 'face '(italic variable-pitch))))
((eq (car it) 'code)
(insert (propertize (cadr it) 'face 'fixed-pitch)))
|