Overview
| Comment: | Avoid arithmetic error in sbbs-compose-format |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
f577027486ed82a8d5ee25ffb8c64764 |
| User & Date: | zge on 2021-05-28 11:59:37 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-05-28
| ||
| 12:00 | Remove debugging (message ...) from sbbs--process-sxml check-in: 57ac49ce55 user: zge tags: master, trunk | |
| 11:59 | Avoid arithmetic error in sbbs-compose-format check-in: f577027486 user: zge tags: master, trunk | |
| 11:58 | Fix broken defcustom check-in: a9c36f03bb user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [9b58d51e50] to [730ca416cd].
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 (< (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 (mark)) (< (point) (mark)))
(forward-char (length style))))
(defun sbbs-compose-format-code ()
"Insert code syntax markers."
(interactive)
(sbbs-compose-format "```\n"))
|