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 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 (mark)) (< (point) (mark)))
(forward-char (length style))))
(defun sbbs-compose-format-code ()
"Insert code syntax markers."
(interactive)
(sbbs-compose-format "```\n"))
|
| |
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"))
|