sbbs.el: Diff

Differences From Artifact [9b58d51e50]:

File sbbs.el — part of check-in [a9c36f03bb] at 2021-05-28 11:58:53 on branch master — Fix broken defcustom (user: zge, size: 28938) [annotate] [blame] [check-ins using]

To Artifact [730ca416cd]:

File sbbs.el — part of check-in [f577027486] at 2021-05-28 11:59:37 on branch master — Avoid arithmetic error in sbbs-compose-format (user: zge, size: 28956) [annotate] [blame] [check-ins using]

   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