sbbs.el: Check-in [438efd04c7]

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

Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified sbbs.el from [35b5b19ba4] to [f9185109d4].

   598    598           (let ((beg (region-beginning))
   599    599                 (end (region-end)))
   600    600             (goto-char end)
   601    601             (insert style)
   602    602             (goto-char beg)
   603    603             (insert style))
   604    604         (insert style style)))
   605         -  (when (or (not (mark)) (< (point) (mark)))
          605  +  (when (or (not (region-active-p)) (< (point) (mark)))
   606    606       (forward-char (length style))))
   607    607   
   608    608   (defun sbbs-compose-format-code ()
   609    609     "Insert code syntax markers."
   610    610     (interactive)
   611    611     (sbbs-compose-format "```\n"))
   612    612