sbbs.el: Diff

Differences From Artifact [2a852168db]:

File sbbs.el — part of check-in [c728f51a59] at 2022-01-24 09:30:16 on branch master — Prevent nobreak-space from being highlighted (user: zge, size: 31365) [annotate] [blame] [check-ins using]

To Artifact [d00835b8b8]:

File sbbs.el — part of check-in [1db3d1b5c3] at 2022-01-24 09:35:26 on branch master — Replace formatting when using a prefix argument (user: zge, size: 31429) [annotate] [blame] [check-ins using]

   642    642         (let ((beg (region-beginning))
   643    643               (end (region-end)))
   644    644           (goto-char end)
   645    645           (insert style)
   646    646           (goto-char beg)
   647    647           (insert style)))
   648    648        (sbbs-format-word-at-point
          649  +      (when current-prefix-arg
          650  +        (sbbs-compose-unformat))
   649    651         (save-mark-and-excursion
   650    652           (let ((bounds (bounds-of-thing-at-point 'word)))
   651    653             (if bounds
   652    654                 (progn
   653    655                   (set-mark (car bounds))
   654    656                   (goto-char (cdr bounds))
   655    657                   (sbbs-compose-format style))