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 643 644 645 646 647 648 649 650 651 652 653 654 655 | 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))
|
| ︙ |