sbbs.el: Diff

Differences From Artifact [fbf9317204]:

File sbbs.el — part of check-in [cc71172e18] at 2020-06-06 17:17:21 on branch master — Added sbbs-default-board option (user: zge, size: 26352) [annotate] [blame] [check-ins using]

To Artifact [75ce247893]:

File sbbs.el — part of check-in [a9ee28fa6d] at 2020-06-08 10:26:26 on branch master — Fix sbbs-compose-format when mark is before point (user: zge, size: 26407) [annotate] [blame] [check-ins using]

   544    544         (setq header-line-format (format "Responding to Thread %d" id)
   545    545               sbbs--thread-id id
   546    546               sbbs--board board)
   547    547         (switch-to-buffer (current-buffer)))))
   548    548   
   549    549   (defun sbbs-compose-format (style)
   550    550     "Insert string STYLE around region or point."
   551         -  (save-mark-and-excursion
          551  +  (save-excursion
   552    552       (if (region-active-p)
   553         -        (progn
   554         -          (goto-char (region-beginning))
          553  +        (let ((beg (region-beginning))
          554  +              (end (region-end)))
          555  +          (goto-char end)
   555    556             (insert style)
   556         -          (goto-char (region-end))
          557  +          (goto-char beg)
   557    558             (insert style))
   558    559         (insert style style)))
   559         -  (forward-char (length style)))
          560  +  (when (< (point) (mark))
          561  +    (forward-char (length style))))
   560    562   
   561    563   (defun sbbs-compose-format-code ()
   562    564     "Insert code syntax markers."
   563    565     (interactive)
   564    566     (sbbs-compose-format "```\n"))
   565    567   
   566    568   (defun sbbs-compose-format-bold ()