sbbs.el

Check-in [438efd04c7]
Login
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: 438efd04c7928045c5ca8af74a1568697055c13b0fb9052e2638f236ce5cb1e4
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
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)))
  (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"))