Overview
Comment: | Improve check if region is active |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
438efd04c7928045c5ca8af74a156869 |
User & Date: | zge on 2021-05-29 12:53:42 |
Other Links: | branch diff | manifest | tags |
Context
2021-05-29
| ||
14:28 | Fix outlines check-in: 80dcfa319c user: zge tags: master, trunk | |
12:53 | Improve check if region is active check-in: 438efd04c7 user: zge tags: master, trunk | |
12:45 | Disable open-at-last-post by default check-in: 918ba0640d user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [35b5b19ba4] to [f9185109d4].
︙ | ︙ | |||
598 599 600 601 602 603 604 | (let ((beg (region-beginning)) (end (region-end))) (goto-char end) (insert style) (goto-char beg) (insert style)) (insert style style))) | | | 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 | (let ((beg (region-beginning)) (end (region-end))) (goto-char end) (insert style) (goto-char beg) (insert style)) (insert style style))) (when (or (not (region-active-p)) (< (point) (mark))) (forward-char (length style)))) (defun sbbs-compose-format-code () "Insert code syntax markers." (interactive) (sbbs-compose-format "```\n")) |
︙ | ︙ |