sbbs.el: Check-in [f577027486]

Overview

Comment:	Avoid arithmetic error in sbbs-compose-format
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| master \| trunk
Files:	files \| file ages \| folders
SHA3-256:	f577027486ed82a8d5ee25ffb8c64764c50a6e2331279a4284dc7272c1569102
User & Date:	zge on 2021-05-28 11:59:37
Other Links:	branch diff \| manifest \| tags

Context

2021-05-28
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
11:58		Fix broken defcustom check-in: a9c36f03bb user: zge tags: master, trunk

Changes

Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified sbbs.el from [9b58d51e50] to [730ca416cd].

   598    598           (let ((beg (region-beginning))
   599    599                 (end (region-end)))
   600    600             (goto-char end)
   601    601             (insert style)
   602    602             (goto-char beg)
   603    603             (insert style))
   604    604         (insert style style)))
   605         -  (when (< (point) (mark))
          605  +  (when (or (not (mark)) (< (point) (mark)))
   606    606       (forward-char (length style))))
   607    607   
   608    608   (defun sbbs-compose-format-code ()
   609    609     "Insert code syntax markers."
   610    610     (interactive)
   611    611     (sbbs-compose-format "```\n"))
   612    612