sbbs.el

Check-in [50b5a3c4bd]
Login
☰Home Timeline Files Branches Tags Tickets Wiki
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: 50b5a3c4bd60c8aa722afb4ed79923deb894ab161b5f23dff43f34fff7f90465
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified sbbs.el from [cec0dbd9ca] to [5ad14f783c].

︙
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178

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

This page was generated in about 0.007s by Fossil 2.23 [47362306a7] 2023-11-01 18:56:47