sbbs.el

      (let ((beg (region-beginning))
            (end (region-end)))
        (goto-char end)
        (insert style)
        (goto-char beg)
        (insert style)))
     (sbbs-format-word-at-point
      (when current-prefix-arg
        (sbbs-compose-unformat))
      (save-mark-and-excursion
        (let ((bounds (bounds-of-thing-at-point 'word)))
          (if bounds
              (progn
                (set-mark (car bounds))
                (goto-char (cdr bounds))
                (sbbs-compose-format style))