Overview
Comment: | Fix sbbs-compose-format when mark is before point |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
a9ee28fa6de5755f83aa11ddcc260a5d |
User & Date: | zge on 2020-06-08 10:26:26 |
Other Links: | branch diff | manifest | tags |
Context
2020-06-18
| ||
13:11 | Fixed URL handeling with ","-ranges check-in: df55ff6293 user: zge tags: master, trunk | |
2020-06-08
| ||
10:26 | Fix sbbs-compose-format when mark is before point check-in: a9ee28fa6d user: zge tags: master, trunk | |
2020-06-06
| ||
17:17 | Added sbbs-default-board option check-in: cc71172e18 user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [fbf9317204] to [75ce247893].
544 544 (setq header-line-format (format "Responding to Thread %d" id) 545 545 sbbs--thread-id id 546 546 sbbs--board board) 547 547 (switch-to-buffer (current-buffer))))) 548 548 549 549 (defun sbbs-compose-format (style) 550 550 "Insert string STYLE around region or point." 551 - (save-mark-and-excursion 551 + (save-excursion 552 552 (if (region-active-p) 553 - (progn 554 - (goto-char (region-beginning)) 553 + (let ((beg (region-beginning)) 554 + (end (region-end))) 555 + (goto-char end) 555 556 (insert style) 556 - (goto-char (region-end)) 557 + (goto-char beg) 557 558 (insert style)) 558 559 (insert style style))) 559 - (forward-char (length style))) 560 + (when (< (point) (mark)) 561 + (forward-char (length style)))) 560 562 561 563 (defun sbbs-compose-format-code () 562 564 "Insert code syntax markers." 563 565 (interactive) 564 566 (sbbs-compose-format "```\n")) 565 567 566 568 (defun sbbs-compose-format-bold ()