642
643
644
645
646
647
648
649
650
651
652
653
654
655
|
(let ((beg (region-beginning))
(end (region-end)))
(goto-char end)
(insert style)
(goto-char beg)
(insert style)))
(sbbs-format-word-at-point
(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))
|
|
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
|
(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))
|