sbbs.el: Diff

Differences From Artifact [676c904eb1]:

File sbbs.el — part of check-in [ae851a4d20] at 2020-06-06 16:06:18 on branch master — Only generate "other" board when link matches regexp Fixes [ed8a04be6b] (user: zge, size: 25476) [annotate] [blame] [check-ins using]

To Artifact [4c1b0d2eeb]:

File sbbs.el — part of check-in [d5347562aa] at 2020-06-06 16:28:50 on branch master — Fix sbbs-compose-format on when region is active See http://textboard.org/prog/81/49 (user: zge, size: 25535) [annotate] [blame] [check-ins using]

   522    522           (newline))
   523    523         (setq header-line-format (format "Responding to Thread %d" id)
   524    524               sbbs--thread-id id
   525    525               sbbs--board board)
   526    526         (switch-to-buffer (current-buffer)))))
   527    527   
   528    528   (defun sbbs-compose-format (style)
   529         -  "Insert "
   530         -  (if (region-active-p)
   531         -      (save-excursion
   532         -        (goto-char (region-beginning))
   533         -        (insert "style")
   534         -        (goto-char (region-end))
   535         -        (insert "style"))
   536         -    (insert style style)
   537         -    (forward-char (- (length style)))))
          529  +  "Insert string STYLE around region or point."
          530  +  (save-mark-and-excursion
          531  +    (if (region-active-p)
          532  +        (progn
          533  +          (goto-char (region-beginning))
          534  +          (insert style)
          535  +          (goto-char (region-end))
          536  +          (insert style))
          537  +      (insert style style)))
          538  +  (forward-char (length style)))
   538    539   
   539    540   (defun sbbs-compose-format-code ()
   540    541     "Insert code syntax markers."
   541    542     (interactive)
   542    543     (sbbs-compose-format "```\n"))
   543    544   
   544    545   (defun sbbs-compose-format-bold ()