Changeset 5006

Timestamp:

Apr 28, 2022, 9:47:02 AM (3 years ago)

Author:

Andreas Schnellbacher

Message:

• Addition to changeset r4996.

Location:

trunk/src/netlabs/macros

Files:

• mouse.e (modified) (1 diff)
• stdprocs.e (modified) (1 diff)

trunk/src/netlabs/macros/mouse.e ¶

@@ -1379 +1379 @@
             -- pMark_Word doesn't include white space; the following does:
             call pBegin_Word()
-            markchar
+            KeyPath = '\NEPMD\User\Mark\WordMarkType'
+            WordMarkType = QueryConfigKey( KeyPath)
+            if WordMarkType = 'B' then
+               markblock
+            else
+               markchar
+            endif
             startcol = .col
             tabword
             .col = .col - 1
-            markchar
+            if WordMarkType = 'B' then
+               markblock
+            else
+               markchar
+            endif
             .col = startcol
          endif

trunk/src/netlabs/macros/stdprocs.e ¶

@@ -1129 +1129 @@
    endif
    call pEnd_Word()
--- #########################################################################################
    KeyPath = '\NEPMD\User\Mark\WordMarkType'
    WordMarkType = QueryConfigKey( KeyPath)