Overview
Comment: | Fix sbbs-compose-format on when region is active See http://textboard.org/prog/81/49 |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
d5347562aa00b38e86aed273255cf011 |
User & Date: | zge on 2020-06-06 16:28:50 |
Other Links: | branch diff | manifest | tags |
Context
2020-06-06
| ||
17:17 | Added sbbs-default-board option check-in: cc71172e18 user: zge tags: master, trunk | |
16:28 | Fix sbbs-compose-format on when region is active See http://textboard.org/prog/81/49 check-in: d5347562aa user: zge tags: master, trunk | |
16:06 | Only generate "other" board when link matches regexp Fixes [ed8a04be6b] check-in: ae851a4d20 user: zge tags: master, trunk | |
Changes
Modified sbbs.el from [676c904eb1] to [4c1b0d2eeb].
522 522 (newline)) 523 523 (setq header-line-format (format "Responding to Thread %d" id) 524 524 sbbs--thread-id id 525 525 sbbs--board board) 526 526 (switch-to-buffer (current-buffer))))) 527 527 528 528 (defun sbbs-compose-format (style) 529 - "Insert " 530 - (if (region-active-p) 531 - (save-excursion 532 - (goto-char (region-beginning)) 533 - (insert "style") 534 - (goto-char (region-end)) 535 - (insert "style")) 536 - (insert style style) 537 - (forward-char (- (length style))))) 529 + "Insert string STYLE around region or point." 530 + (save-mark-and-excursion 531 + (if (region-active-p) 532 + (progn 533 + (goto-char (region-beginning)) 534 + (insert style) 535 + (goto-char (region-end)) 536 + (insert style)) 537 + (insert style style))) 538 + (forward-char (length style))) 538 539 539 540 (defun sbbs-compose-format-code () 540 541 "Insert code syntax markers." 541 542 (interactive) 542 543 (sbbs-compose-format "```\n")) 543 544 544 545 (defun sbbs-compose-format-bold ()