sbbs.el: Diff

Differences From Artifact [35b5b19ba4]:

File sbbs.el — part of check-in [918ba0640d] at 2021-05-29 12:45:40 on branch master — Disable open-at-last-post by default (user: zge, size: 28970) [annotate] [blame] [check-ins using]

To Artifact [f9185109d4]:

File sbbs.el — part of check-in [438efd04c7] at 2021-05-29 12:53:42 on branch master — Improve check if region is active (user: zge, size: 28981) [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 (or (not (mark)) (< (point) (mark)))
          605  +  (when (or (not (region-active-p)) (< (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