Overview
| Comment: | Replace formatting when using a prefix argument |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
1db3d1b5c351cbae3de09fcea1e8e4f3 |
| User & Date: | zge on 2022-01-24 09:35:26 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-09-09
| ||
| 09:13 | fix the VIP/sage function check-in: 268b829751 user: anon tags: master, trunk | |
|
2022-01-24
| ||
| 09:35 | Replace formatting when using a prefix argument check-in: 1db3d1b5c3 user: zge tags: master, trunk | |
| 09:30 | Prevent nobreak-space from being highlighted check-in: c728f51a59 user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [2a852168db] to [d00835b8b8].
| ︙ | ︙ | |||
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))
|
| ︙ | ︙ |