Index: sbbs.el
==================================================================
--- sbbs.el
+++ sbbs.el
@@ -600,11 +600,11 @@
           (goto-char end)
           (insert style)
           (goto-char beg)
           (insert style))
       (insert style style)))
-  (when (or (not (mark)) (< (point) (mark)))
+  (when (or (not (region-active-p)) (< (point) (mark)))
     (forward-char (length style))))
 
 (defun sbbs-compose-format-code ()
   "Insert code syntax markers."
   (interactive)