Changeset 3661

Timestamp:

Oct 8, 2019, 10:11:05 PM (5 years ago)

Author:

Andreas Schnellbacher

Message:

• Cosmetic changes.
• Disabled SetEditOptions because this can work only globally.
• Renamed UseSetting to UseFileSetting.
• Renamed RingDumpSettings to ShowFileSettings.

Location:

trunk/src/netlabs/macros

Files:

• epm_ea.e (modified) (2 diffs)
• modecfg.e (modified) (2 diffs)
• modeexec.e (modified) (81 diffs)

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

@@ -108 +108 @@
    call Find_Ea( "\1\2\4\3\5", xx_seg, xx_ofs, xx_ptr1, xx_ptr2, xx_len, xx_entrylen, xx_valuelen)
    if (xx_len > 4) and xx_entrylen then
-      poke ea_ptr, xx_len-xx_entrylen, atol(xx_entrylen)
+      poke ea_ptr, xx_len-xx_entrylen, atol( xx_entrylen)
    endif
 
@@ -228 +228 @@
          answer = WinMessageBox( SUBJ_TITLE__MSG, NON_ASCII_SUBJECT__MSG\1''CHANGE_QUERY__MSG, 16388) -- YESNO + MOVEABLE
       endif
-   else  -- arg(1) not null
+   else  -- arg( 1) not null
       answer = 6
    endif
    if answer = 6 then
       if arg( 1) = '' then
-         parse value EntryBox(SUBJ_TITLE__MSG, '/'SET__MSG'/'CANCEL__MSG'/'HELP__MSG, subj, 40,
+         parse value EntryBox( SUBJ_TITLE__MSG, '/'SET__MSG'/'CANCEL__MSG'/'HELP__MSG, subj, 40,
                 260,
-                atoi(1)''atoi( 6050)''GethWndC( APP_HANDLE)''SELECT_SUBJECT__MSG) with button 2 newsubj \0
+                atoi( 1)''atoi( 6050)''GethWndC( APP_HANDLE)''SELECT_SUBJECT__MSG) with button 2 newsubj \0
       else
          newsubj = arg( 1)

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

@@ -313 +313 @@
         SetToolbar        <toolbar_name> (must be defined in NEPMD.INI)
         SetDynaspell      0 | 1
-        SetEditOptions    see description of EDIT command
+     /* SetEditOptions    see description of EDIT command (can't work) */
         SetSaveOptions    see description of SAVE command
         SetSearchOptions  see description of LOCATE and REPLACE commands
@@ -461 +461 @@
 'ModeExecute TEXT SetStreamMode 0'
 
-/*'ModeExecute BIN SetEditOptions /t /64 /bin'*/
 'ModeExecute BIN SetSaveOptions /ne /ns /nt'
 'ModeExecute BIN SetTabs 1'

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

@@ -63 +63 @@
 ;         SetToolbar        <toolbar_name> (must be defined in NEPMD.INI)
 ;         SetDynaspell      0 | 1
-;         SetEditOptions    see description of EDIT command
+;      /* SetEditOptions    see description of EDIT command (can't work) */
 ;         SetSaveOptions    see description of SAVE command
 ;         SetSearchOptions  see description of LOCATE and REPLACE commands
@@ -154 +154 @@
 ; ---------------------------------------------------------------------------
 
-compile if not defined(SMALL)  -- If SMALL not defined, then being separately compiled
+compile if not defined( SMALL)  -- If SMALL not defined, then being separately compiled
    EA_comment 'This defines mode-specific commands.'
 
@@ -199 +199 @@
    call AddAVar( 'selectsettingslist',
                         'Toolbar Keyset Expand Matchtab' ||
-                        ' EditOptions SaveOptions SearchOptions' ||
+                        /* EditOptions*/' SaveOptions SearchOptions' ||
                         ' StreamMode InsertMode' ||
                         ' TextFont TextColor MarkColor Indent' ||
@@ -213 +213 @@
 ; ---------------------------------------------------------------------------
 defc ResetFileSettings
-   args = arg(1)
+   args = arg( 1)
 
    fProcessLoad   = 0
@@ -238 +238 @@
    getfileid fid
    SettingsList = LoadSettingsList SelectSettingsList
-   do w = 1 to words(SettingsList)
+   do w = 1 to words( SettingsList)
       wrd = word( SettingsList, w)
-      call SetAVar( fid'.'lowcase(wrd), '')
+      call SetAVar( fid'.'lowcase( wrd), '')
    enddo
    call SetAVar( fid'.modesettingsapplied', 0)
@@ -263 +263 @@
                         -- 2: defload processed
                         -- 0: afterload processed
-   args = arg(1)
+   args = arg( 1)
    dprintf( 'LOAD', 'ProcessLoadSettings entered for 'args)
 
@@ -272 +272 @@
 
    parse arg Mode calling_fid
-   Mode = strip(Mode)
-   calling_fid = strip(calling_fid)
+   Mode = strip( Mode)
+   calling_fid = strip( calling_fid)
 
    if Mode = '' then
@@ -284 +284 @@
    if refresh_on then
       if LoadState then  -- during file loading
-         CheckFlag = GetHiliteCheckFlag(Mode)
+         CheckFlag = GetHiliteCheckFlag( Mode)
       else
          CheckFlag = ''
@@ -296 +296 @@
 
    getfileid fid
-   if isnum(calling_fid) then
+   if isnum( calling_fid) then
       if calling_fid <> fid then
          --dprintf( 'No load settings processed. File not on top anymore:' ||
@@ -307 +307 @@
    -- so slow, that file to be processed is not on top anymore.
    prefix = 'hook.'
-   HookName = 'load_'lowcase(Mode)
+   HookName = 'load_'lowcase( Mode)
    imax = GetAVar( prefix''HookName'.0')
    if imax = '' then
@@ -335 +335 @@
       do w = 1 to words( List)  -- Only LoadSettings need to be reset for default mode
          wrd = word( List, w)
-         next = GetAVar( fid'.'lowcase(wrd))  -- get file setting
+         next = GetAVar( fid'.'lowcase( wrd))  -- get file setting
          if next = '' | next = 'DEFAULT' then
             'Set'wrd 'DEFAULT'  -- execute load setting with 'DEFAULT'
@@ -355 +355 @@
       return
    endif
-   SelectSettingsList = GetAVar('selectsettingslist')
+   SelectSettingsList = GetAVar( 'selectsettingslist')
 
    -- Get file-specific setting names
@@ -362 +362 @@
    UsedFileSettings = ''
    -- Check if mode settings already overtaken from the hook to current file's array var
-   fModeSettingsApplied = GetAVar(fid'.modesettingsapplied')
+   fModeSettingsApplied = GetAVar( fid'.modesettingsapplied')
    if fModeSettingsApplied then
-      do w = 1 to words(SelectSettingsList)
+      do w = 1 to words( SelectSettingsList)
          wrd = word( SelectSettingsList, w)
          wrd = lowcase( wrd)
-         SettingsValue = GetAVar(fid'.'wrd)
+         SettingsValue = GetAVar( fid'.'wrd)
          if wrd = 'keyset' & SettingsValue = 'std' then
             SettingsValue = 'DEFAULT'
@@ -375 +375 @@
          endif
       enddo
-      UsedFileSettings = strip(UsedFileSettings)
+      UsedFileSettings = strip( UsedFileSettings)
    endif
    --dprintf( 'UsedFileSettings = 'UsedFileSettings)
@@ -384 +384 @@
    Mode = GetMode()
    prefix = 'hook.'
-   HookName = 'select_'lowcase(Mode)
-   imax = GetAVar(prefix''HookName'.0')
+   HookName = 'select_'lowcase( Mode)
+   imax = GetAVar( prefix''HookName'.0')
    if imax = '' then
       imax = 0
@@ -391 +391 @@
    UsedModeSettings = ''
    do i = 1 to imax
-      Cmd = GetAVar(prefix''HookName'.'i)
+      Cmd = GetAVar( prefix''HookName'.'i)
       parse value Cmd with wrd SettingsValue
-      if leftstr( upcase(wrd), 3) = 'SET' then
+      if leftstr( upcase( wrd), 3) = 'SET' then
          wrd = substr( wrd, 4)  -- strip 'Set'
       endif
-      if not wordpos( upcase(wrd), upcase(UsedFileSettings)) then
+      if not wordpos( upcase( wrd), upcase( UsedFileSettings)) then
          dprintf( 'MODEEXEC', 'MODE: 'Cmd' -- '.filename)
          Cmd  -- execute command
@@ -402 +402 @@
       endif
    enddo
-   UsedModeSettings = strip(UsedModeSettings)
+   UsedModeSettings = strip( UsedModeSettings)
    if not fModeSettingsApplied then
       call SetAVar( fid'.modesettingsapplied', 1)
@@ -408 +408 @@
 
    -- Execute file-specific settings
-   do w = 1 to words(UsedFileSettings)
+   do w = 1 to words( UsedFileSettings)
       wrd = word( UsedFileSettings, w)
-      SettingsValue = GetAVar(fid'.'lowcase( wrd))
+      SettingsValue = GetAVar( fid'.'lowcase( wrd))
       Cmd = 'Set'wrd SettingsValue
       dprintf( 'MODEEXEC', 'FILE: 'Cmd' -- '.filename)
@@ -419 +419 @@
    -- Tracking every non-default setting in the array var 'lastusedsettings'
    -- increases performance, because only those settings are changed.
-   CurSettings = strip(UsedModeSettings' 'UsedFileSettings)
-   LastSettings = GetAVar('lastusedsettings')
+   CurSettings = strip( UsedModeSettings' 'UsedFileSettings)
+   LastSettings = GetAVar( 'lastusedsettings')
    --dprintf( 'lastsettings = 'LastSettings)
-   do w = 1 to words(LastSettings)
+   do w = 1 to words( LastSettings)
       wrd = word( LastSettings, w)
-      if wordpos( upcase(wrd), upcase(CurSettings)) = 0 then
+      if wordpos( upcase( wrd), upcase( CurSettings)) = 0 then
          Cmd = 'Set'wrd 'DEFAULT'  -- execute select setting with 'DEFAULT'
          dprintf( 'MODEEXEC', 'RESET: 'Cmd' -- '.filename)
@@ -462 +462 @@
    LoadSettingsList   = GetAVar( 'loadsettingslist')
    SelectSettingsList = GetAVar( 'selectsettingslist')
-   parse value arg(1) with Mode Cmd Args
-   Mode = strip(Mode)
-   Cmd  = strip(Cmd)
-   Args = strip(Args)
-   Mode = upcase(Mode)
+   parse value arg( 1) with Mode Cmd Args
+   Mode = strip( Mode)
+   Cmd  = strip( Cmd)
+   Args = strip( Args)
+   Mode = upcase( Mode)
 
    if Mode = 'CLEAR' then
       -- Clear existing load_<mode> and select_<mode> hooks
-      List = GetAVar('usedsettings_modes')
-      do w = 1 to words(List)
+      List = GetAVar( 'usedsettings_modes')
+      do w = 1 to words( List)
          wrd = word( List, w)
-         'HookDelAll load_'lowcase(wrd)
-         'HookDelAll select_'lowcase(wrd)
-         call DelAVar('usedsettings_modes', wrd)
+         'HookDelAll load_'lowcase( wrd)
+         'HookDelAll select_'lowcase( wrd)
+         call DelAVar( 'usedsettings_modes', wrd)
       enddo
       return 0
@@ -484 +484 @@
    elseif Cmd = 'CLEAR' then
       -- Clear existing load_<mode> and select_<mode> hooks for <mode>
-      'HookDelAll load_'lowcase(Mode)
-      'HookDelAll select_'lowcase(Mode)
-      call DelAVar('usedsettings_modes', Mode)
+      'HookDelAll load_'lowcase( Mode)
+      'HookDelAll select_'lowcase( Mode)
+      call DelAVar( 'usedsettings_modes', Mode)
       return 0
    endif
@@ -501 +501 @@
    endif
 
-   if wordpos( upcase(wrd), upcase(SelectSettingsList)) then
+   if wordpos( upcase( wrd), upcase( SelectSettingsList)) then
       -- These settings don't stick with the current file.
       -- Execute them during ProcessAfterload and at/or defselect.
-      'HookChange select_'lowcase(Mode) Cmd Args
+      'HookChange select_'lowcase( Mode) Cmd Args
       -- Save a list of used defselect settings for every mode
-      call AddAVar('usedsettings_'lowcase(Mode), wrd)
-   elseif wordpos( upcase(wrd), upcase(LoadSettingsList)) then
+      call AddAVar( 'usedsettings_'lowcase( Mode), wrd)
+   elseif wordpos( upcase( wrd), upcase( LoadSettingsList)) then
       -- These settings stick with the current file and don't need additional
       -- handling at defselect.
       -- Execute them at defload only.
-      'HookChange load_'lowcase(Mode) Cmd Args
+      'HookChange load_'lowcase( Mode) Cmd Args
    else
       sayerror 'ModeExecute: "'Cmd Args'" is an invalid setting. Add "'wrd ||
@@ -519 +519 @@
 
    if LoadState = 0 then  -- after afterload
-      dprintf( 'MODEEXEC', 'LoadState = 'LoadState', calling RingRefreshSettings' arg(1))
+      dprintf( 'MODEEXEC', 'LoadState = 'LoadState', calling RingRefreshSettings' arg( 1))
 compile if MODEEXEC_PROCESS_RING
-      --dprintf( 'MODEEXEC', 'RingRefreshSetting 'arg(1)' for '.filename)
-      'RingRefreshSetting' arg(1)
+      --dprintf( 'MODEEXEC', 'RingRefreshSetting 'arg( 1)' for '.filename)
+      'RingRefreshSetting' arg( 1)
       -- Todo for SetCodingStyle:
       --    o  Loop through all files only once, not once per subsetting.
@@ -531 +531 @@
 compile else
       if Mode = GetMode() then
-         --dprintf( 'MODEEXEC', arg(1)' for '.filename)
+         --dprintf( 'MODEEXEC', arg( 1)' for '.filename)
          Cmd Args
       endif
@@ -538 +538 @@
 
    -- Save a list of used modes to be able to delete all settings
-   if not wordpos( Mode, GetAVar('usedsettings_modes', Mode)) then
-      call AddAVar('usedsettings_modes', Mode)
+   if not wordpos( Mode, GetAVar( 'usedsettings_modes', Mode)) then
+      call AddAVar( 'usedsettings_modes', Mode)
    endif
 
@@ -557 +557 @@
    universal StatusFieldFlags
    universal TitleFieldFlags
-   parse value arg(1) with Mode Cmd Args
-   Mode = upcase(Mode)
-   parse value lowcase(Cmd) with 'set' SettingName  -- Strip leading 'set'
+   parse value arg( 1) with Mode Cmd Args
+   Mode = upcase( Mode)
+   parse value lowcase( Cmd) with 'set' SettingName  -- Strip leading 'set'
 
    getfileid startfid
@@ -565 +565 @@
    fid = startfid
    dprintf( 'RINGCMD', 'RingRefreshSetting')
-   do f = 1 to filesinring(1)  -- prevent looping forever, hidden files must be included
+   do f = 1 to filesinring( 1)  -- prevent looping forever, hidden files must be included
       if Mode = 'DEFAULT' then
          next = GetAVar( fid'.'SettingName)  -- query file setting
          if next = 'DEFAULT' | next = '' then  -- unset if setting was not changed by any modeexecute
-            Cmd 'REFRESHDEFAULT' Args  -- execute arg(1) with 'REFRESHDEFAULT' parameter prepended
+            Cmd 'REFRESHDEFAULT' Args  -- execute arg( 1) with 'REFRESHDEFAULT' parameter prepended
          endif
       elseif Mode = GetMode() then
@@ -594 +594 @@
 ; Use this command instead of ModeExecute after files are loaded.
 defc ModeExecuteRefresh, ModeExecRefresh
-   'ModeExecute' arg(1)
-   'RingRefreshSetting' arg(1)
+   'ModeExecute' arg( 1)
+   'RingRefreshSetting' arg( 1)
 */
 
@@ -602 +602 @@
 ; Add setting name to list of lastusedsettings.
 ; This is used by several select setting defs.
-defproc UseSetting
-   SettingName = arg(1)
-   SettingValue = arg(2)
+defproc UseFileSetting
+   SettingName = arg( 1)
+   SettingValue = arg( 2)
    getfileid fid
    if GetAVar( fid'.'lowcase( SettingName)) <> SettingValue then
       call SetAVar( fid'.'lowcase( SettingName), SettingValue)
-      if not wordpos( upcase(SettingName), upcase(GetAVar('lastusedsettings'))) then
+      if not wordpos( upcase( SettingName), upcase( GetAVar( 'lastusedsettings'))) then
          call AddAVar( 'lastusedsettings', SettingName)
       endif
@@ -617 +617 @@
 ; returned, separated by '|'
 defproc GetModeSetting
-   Setting = arg(1)
-   Mode    = arg(2)
+   Setting = arg( 1)
+   Mode    = arg( 2)
 
    -- Strip possible prepended 'Set'
@@ -675 +675 @@
 ; ---------------------------------------------------------------------------
 defc ShowModeSetting
-   Val = GetModeSetting( arg(1))
-   if arg(1) <> '' then
-      sayerror 'Value for 'arg(1)' and current mode is: 'Val
+   Val = GetModeSetting( arg( 1))
+   if arg( 1) <> '' then
+      sayerror 'Value for 'arg( 1)' and current mode is: 'Val
    else
       sayerror 'ModeSettings for current mode: 'Val
@@ -684 +684 @@
 ; ---------------------------------------------------------------------------
 ; List all mode- and file-specific settings for all files in the ring.
-defc RingDumpSettings
+defc ShowFileSettings
    LoadSettingsList   = GetAVar( 'loadsettingslist')
    SelectSettingsList = GetAVar( 'selectsettingslist')
@@ -697 +697 @@
    getfileid startfid
    display -3
-   if pfile_exists(TmpFileName) then
+   if pfile_exists( TmpFileName) then
       'xcom e /n' TmpFileName   -- activate tmp file
    else
@@ -706 +706 @@
    savedlast = .last
    .autosave = 0
-   insertline copies('-', 78), .last + 1
+   insertline copies( '-', 78), .last + 1
    insertline 'File settings - created on 'DateTime(), .last + 1
    varname =  '   Defload settings             ='
    line = varname
-   do w = 1 to words(LoadSettingsList)
+   do w = 1 to words( LoadSettingsList)
       wrd = word( LoadSettingsList, w)
-      if length(line) + length(wrd) > 77 then
+      if length( line) + length( wrd) > 77 then
          insertline line, .last + 1
-         line = copies( ' ', length(varname)) wrd
+         line = copies( ' ', length( varname)) wrd
       else
          line = line wrd
@@ -724 +724 @@
    varname =  '   Defselect settings           ='
    line = varname
-   do w = 1 to words(SelectSettingsList)
+   do w = 1 to words( SelectSettingsList)
       wrd = word( SelectSettingsList, w)
-      if length(line) + 1 + length(wrd) > 78 then
+      if length( line) + 1 + length( wrd) > 78 then
          insertline line, .last + 1
-         line = copies( ' ', length(varname)) wrd
+         line = copies( ' ', length( varname)) wrd
       else
          line = line wrd
@@ -740 +740 @@
    activatefile startfid
    fid = startfid
-   dprintf( 'RINGCMD', 'RingDumpSettings')
-   do f = 1 to filesinring(1)  -- just an upper limit
+   dprintf( 'RINGCMD', 'ShowFileSettings')
+   do f = 1 to filesinring( 1)  -- just an upper limit
       if .visible then  -- omit hidden files
          insertline .filename, tmpfid.last + 1, tmpfid
          -- Add mode
-         insertline '   'leftstr( 'mode', max( length('mode'), 22))' = 'GetMode(), tmpfid.last + 1, tmpfid
-         do w = 1 to words(SettingsList)
+         insertline '   'leftstr( 'mode', max( length( 'mode'), 22))' = 'GetMode(), tmpfid.last + 1, tmpfid
+         do w = 1 to words( SettingsList)
             wrd = word( SettingsList, w)
-            SettingName = lowcase(wrd)
+            SettingName = lowcase( wrd)
             SettingValue = GetAVar( fid'.'SettingName)  -- query file setting
-            insertline '   'leftstr( SettingName, max( length(SettingName), 22))' = 'SettingValue, tmpfid.last + 1, tmpfid
+            insertline '   'leftstr( SettingName, max( length( SettingName), 22))' = 'SettingValue, tmpfid.last + 1, tmpfid
          enddo
       endif
@@ -783 +783 @@
    getfileid fid
    SettingValue = GetAVar( fid'.'SettingName)
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    wp = wordpos( 'REFRESHDEFAULT', arg1)
    RefreshDefault = (wp > 0)
@@ -801 +801 @@
          refresh_on = QueryConfigKey( KeyPath)
          if refresh_on then
-            CheckFlag = GetHiliteCheckFlag(Mode)
+            CheckFlag = GetHiliteCheckFlag( Mode)
          endif
       endif
@@ -841 +841 @@
    -- fid'.modesettingsapplied' is reset to 0 by 'ResetFileSettings'
    getfileid fid
-   ModeSettingsApplied = GetAVar(fid'.modesettingsapplied')
+   ModeSettingsApplied = GetAVar( fid'.modesettingsapplied')
    SettingName  = 'margins'
    InfolineName = 'MARGINS'
@@ -847 +847 @@
    getfileid fid
    SettingValue = GetAVar( fid'.'SettingName)
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    wp = wordpos( 'REFRESHDEFAULT', arg1)
    RefreshDefault = (wp > 0)
@@ -904 +904 @@
    -- fid'.modesettingsapplied' is reset to 0 by 'ResetFileSettings'
    getfileid fid
-   ModeSettingsApplied = GetAVar(fid'.modesettingsapplied')
+   ModeSettingsApplied = GetAVar( fid'.modesettingsapplied')
    SettingName  = 'tabs'
    InfolineName = 'TABS'
@@ -910 +910 @@
    getfileid fid
    SettingValue = GetAVar( fid'.'SettingName)
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    wp = wordpos( 'REFRESHDEFAULT', arg1)
    RefreshDefault = (wp > 0)
@@ -961 +961 @@
    universal LoadState
    universal activeaccel
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    if arg1 = '' | arg1 = 'DEFAULT' then
       on = 0
@@ -975 +975 @@
    -- Save the value in an array var, to determine 'DEFAULT' state later
    getfileid fid
-   call SetAVar( fid'.dynaspell', arg(1))
+   call SetAVar( fid'.dynaspell', arg( 1))
    if LoadState = 0 then
       'RefreshInfoline KEYS'
@@ -984 +984 @@
    universal toolbar_loaded
    universal current_toolbar
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    if current_toolbar = '' then
       current_toolbar = toolbar_loaded
@@ -1000 +1000 @@
          current_toolbar = 'STANDARD'
       else
-         'postme LoadToolbar NOSAVE' arg(1)
-         current_toolbar = arg(1)
+         'postme LoadToolbar NOSAVE' arg( 1)
+         current_toolbar = arg( 1)
       endif
    endif
    -- Save the value in an array var, because no field var exists
-   call UseSetting( 'ToolBar', arg(1))
+   call UseFileSetting( 'ToolBar', arg( 1))
 
 ; ---------------------------------------------------------------------------
@@ -1026 +1026 @@
 
    -- Save the value in an array var, because no field var exists
-   call UseSetting( 'Keyset', Keyset)
+   call UseFileSetting( 'Keyset', Keyset)
    'RefreshInfoLine KEYSET'
 
@@ -1032 +1032 @@
 defc SetExpand  -- defc expand exists
    universal expand_on
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    if arg1 = '' | arg1 = 'DEFAULT' then
       KeyPath = '\NEPMD\User\SyntaxExpansion'
@@ -1054 +1054 @@
    expand_on = on
    -- Save the value in an array var, because no field var exists
-   --call UseSetting( 'Expand', arg(1))
-   call UseSetting( 'Expand', ExpandMode)
+   --call UseFileSetting( 'Expand', arg( 1))
+   call UseFileSetting( 'Expand', ExpandMode)
    'RefreshInfoLine EXPAND'
 
@@ -1061 +1061 @@
 defc SetIndent
    universal indent
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    if arg1 = '' | arg1 = 'DEFAULT' then
       new = word( .tabs, 1)
    else
-      new = arg(1)
+      new = arg( 1)
    endif
    -- Set universal var
    indent = new
    -- Save the value in an array var, because no field var exists
-   call UseSetting( 'Indent', arg(1))
+   call UseFileSetting( 'Indent', arg( 1))
 
 ; ---------------------------------------------------------------------------
 defc SetMatchTab  -- defc matchtab exists
    universal matchtab_on
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    if arg1 = '' | arg1 = 'DEFAULT' then
       KeyPath = '\NEPMD\User\SpecialKeys\Tab\MatchWordsAbove'
@@ -1087 +1087 @@
    matchtab_on = on
    -- Save the value in an array var, because no field var exists
-   call UseSetting( 'MatchTab', arg(1))
+   call UseFileSetting( 'MatchTab', arg( 1))
    'RefreshInfoLine MATCHTAB'
 
 ; ---------------------------------------------------------------------------
-;    doesn't work  (because just executed at defload, not at edit)
-; Must be executed at defmain, before executing doscommand.
+; This doesn't work (because executed at defload, not at edit).
+; It must be executed at defmain to work, before executing 'e' EpmArgs.
 ; Problem: Mode is not determined at this time. That will be done at
 ; defload, to assure that a fileid exists. It's required for the
 ; array var, used to save the mode of the current file.
+/*
 defc SetEditOptions
    universal default_edit_options
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    if arg1 = '' | arg1 = 'DEFAULT' then
       KeyPath = '\NEPMD\User\Edit\DefaultOptions'
       new = QueryConfigKey( KeyPath)
    else
-      new = arg(1)
+      new = arg( 1)
    endif
    -- Set universal var
    default_edit_options = new
    -- Save the value in an array var, because no field var exists
-   call UseSetting( 'EditOptions', arg(1))
-
+   call UseFileSetting( 'EditOptions', arg( 1))
+*/
 ; ---------------------------------------------------------------------------
 defc SetSaveOptions
    universal default_save_options
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    if arg1 = '' | arg1 = 'DEFAULT' then
       KeyPath = '\NEPMD\User\Save\DefaultOptions'
       new = QueryConfigKey( KeyPath)
    else
-      new = arg(1)
+      new = arg( 1)
    endif
    -- Set universal var
    default_save_options = new
    -- Save the value in an array var, because no field var exists
-   call UseSetting( 'SaveOptions', arg(1))
+   call UseFileSetting( 'SaveOptions', arg( 1))
 
 ; ---------------------------------------------------------------------------
 defc SetSearchOptions
    universal default_search_options
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    if arg1 = '' | arg1 = 'DEFAULT' then
       KeyPath = '\NEPMD\User\Search\DefaultOptions'
       new = QueryConfigKey( KeyPath)
    else
-      new = arg(1)
+      new = arg( 1)
    endif
    -- Set universal var
    default_search_options = new
    -- Save the value in an array var, because no field var exists
-   call UseSetting( 'SearchOptions', arg(1))
+   call UseFileSetting( 'SearchOptions', arg( 1))
 
 ; ---------------------------------------------------------------------------
@@ -1144 +1145 @@
    universal stream_mode
    universal default_stream_mode
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    if arg1 = '' | arg1 = 'DEFAULT' then
       on = default_stream_mode
@@ -1156 +1157 @@
    'togglecontrol 24' stream_mode
    -- Save the value in an array var, because no field var exists
-   call UseSetting( 'StreamMode', arg(1))
+   call UseFileSetting( 'StreamMode', arg( 1))
    'RefreshInfoLine STREAMMODE'
 
 ; ---------------------------------------------------------------------------
 defc SetInsertMode
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    if arg1 = '' | arg1 = 'DEFAULT' then
       on = 1
@@ -1175 +1176 @@
    endif
    -- Save the value in an array var, because no field var exists
-   call UseSetting( 'InsertMode', arg(1))
+   call UseFileSetting( 'InsertMode', arg( 1))
    -- Update of infoline field is handled internally
 
@@ -1184 +1185 @@
 defc SetTextFont
    universal lastfont
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    if arg1 = '' | arg1 = 'DEFAULT' then
       --new = queryprofile( app_hini, appname, 'FONT')
@@ -1193 +1194 @@
       new = QueryConfigKey( KeyPath)
    else
-      new = arg(1)
+      new = arg( 1)
       parse value new with size '.' rest
       if not isnum( size) then
@@ -1200 +1201 @@
       endif
       if rest = '' then
-         parse value queryfont(.font) with fontname '.' fontsize '.' fontsel
+         parse value queryfont( .font) with fontname '.' fontsize '.' fontsel
          new = size'.'fontname
          if fontsel > 0 then
@@ -1212 +1213 @@
                       -- and execute simply: .font = <font_id>. Therefore the
                       -- font_id would have been saved, after it was registered:
-                      -- .font = registerfont(fontname, fontsize, fontsel)
+                      -- .font = registerfont( fontname, fontsize, fontsel)
       new = ConvertToEFont( new)
       'processfontrequest' new
@@ -1218 +1219 @@
    endif
    -- Save the value in an array var, because no field var exists
-   call UseSetting( 'TextFont', arg(1))
+   call UseFileSetting( 'TextFont', arg( 1))
 
 ; ---------------------------------------------------------------------------
 defc SetTextColor
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    if arg1 = '' | arg1 = 'DEFAULT' then
       KeyPath = '\NEPMD\User\Colors\Text'
       new = ColorNameToNum( QueryConfigKey( KeyPath))
    else
-      new = ColorNameToNum( arg(1))
+      new = ColorNameToNum( arg( 1))
       if rc <> 0 then
          return rc
@@ -1238 +1239 @@
    endif
    -- Save the value in an array var, to determine 'DEFAULT' state later
-   call UseSetting( 'TextColor', arg(1))
+   call UseFileSetting( 'TextColor', arg( 1))
 
 ; ---------------------------------------------------------------------------
 defc SetMarkColor
-   arg1 = upcase(arg(1))
+   arg1 = upcase( arg( 1))
    if arg1 = '' | arg1 = 'DEFAULT' then
       KeyPath = '\NEPMD\User\Colors\Mark'
       new = ColorNameToNum( QueryConfigKey( KeyPath))
    else
-      new = ColorNameToNum( arg(1))
+      new = ColorNameToNum( arg( 1))
       if rc <> 0 then
          return
@@ -1258 +1259 @@
    endif
    -- Save the value in an array var, to determine 'DEFAULT' state later
-   call UseSetting( 'MarkColor', arg(1))
+   call UseFileSetting( 'MarkColor', arg( 1))
 
 ; ---------------------------------------------------------------------------
@@ -1277 +1278 @@
    universal default_header_style
    ValidArgs = '1 2'
-   arg1 = strip( upcase( arg(1)))
+   arg1 = strip( upcase( arg( 1)))
    parse value arg1 with next rest
    if next = 'DEFINEDEFAULT' then
@@ -1293 +1294 @@
       header_style = arg1
       -- Save the value in an array var, because no field var exists
-      call UseSetting( 'HeaderStyle', arg(1))
+      call UseFileSetting( 'HeaderStyle', arg( 1))
    endif
 
@@ -1313 +1314 @@
       header_width = arg1
       -- Save the value in an array var, because no field var exists
-      call UseSetting( 'HeaderWidth', arg( 1))
+      call UseFileSetting( 'HeaderWidth', arg( 1))
    endif
 
@@ -1323 +1324 @@
    universal default_END_commented
    ValidArgs = '0 1'
-   arg1 = strip( upcase( arg(1)))
+   arg1 = strip( upcase( arg( 1)))
    parse value arg1 with next rest
    if next = 'DEFINEDEFAULT' then
@@ -1339 +1340 @@
       END_commented = arg1
       -- Save the value in an array var, because no field var exists
-      call UseSetting( 'EndCommented', arg(1))
+      call UseFileSetting( 'EndCommented', arg( 1))
    endif
 
@@ -1352 +1353 @@
    universal match_chars
    universal default_match_chars
-   arg1 = strip( upcase( arg(1)))
+   arg1 = strip( upcase( arg( 1)))
    parse value arg1 with next rest
    if next = 'DEFINEDEFAULT' then
@@ -1368 +1369 @@
       match_chars = arg1
       -- Save the value in an array var, because no field var exists
-      call UseSetting( 'MatchChars', arg(1))
+      call UseFileSetting( 'MatchChars', arg( 1))
    endif
 
@@ -1378 +1379 @@
    universal default_comment_auto_terminate
    ValidArgs = '0 1'
-   arg1 = strip( upcase( arg(1)))
+   arg1 = strip( upcase( arg( 1)))
    parse value arg1 with next rest
    if next = 'DEFINEDEFAULT' then
@@ -1394 +1395 @@
       comment_auto_terminate = arg1
       -- Save the value in an array var, because no field var exists
-      call UseSetting( 'CommentAutoTerminate', arg(1))
+      call UseFileSetting( 'CommentAutoTerminate', arg( 1))
    endif
 
@@ -1404 +1405 @@
    universal default_function_spacing
    ValidArgs = 'NSCE'  -- No spaces, space at Start/Comma/End of parameter list
-   arg1 = strip( upcase( arg(1)))
+   arg1 = strip( upcase( arg( 1)))
    parse value arg1 with next rest
    if next = 'DEFINEDEFAULT' then
@@ -1434 +1435 @@
       endif
       -- Save the value in an array var, because no field var exists
-      call UseSetting( 'FunctionSpacing', function_spacing)
+      call UseFileSetting( 'FunctionSpacing', function_spacing)
    endif
 
@@ -1444 +1445 @@
    universal default_closing_brace_auto_indent
    ValidArgs = '0 1'
-   arg1 = strip( upcase( arg(1)))
+   arg1 = strip( upcase( arg( 1)))
    parse value arg1 with next rest
    if next = 'DEFINEDEFAULT' then
@@ -1460 +1461 @@
       closing_brace_auto_indent = arg1
       -- Save the value in an array var, because no field var exists
-      call UseSetting( 'ClosingBraceAutoIndent', arg(1))
+      call UseFileSetting( 'ClosingBraceAutoIndent', arg( 1))
    endif
 
@@ -1505 +1506 @@
 ; a ModeExecute command, it is resolved directly by ModeExecute.
 defc SetCodingStyle
-   call ExecuteCodingStyle( 0, arg(1))
+   call ExecuteCodingStyle( 0, arg( 1))
    if isadefproc( 'MenuText_selectcodingstyle') then
       MenuText_selectcodingstyle()
@@ -1521 +1522 @@
 defproc ExecuteCodingStyle
    universal LoadState
-   Mode = arg(1)
-   Name = arg(2)
+   Mode = arg( 1)
+   Name = arg( 2)
    Name = lowcase( Name)
    if Name = 'off' then
@@ -1585 +1586 @@
    None = '-none-'
 
-   Mode = arg(1)
+   Mode = arg( 1)
    if Mode = '' then
       Mode = GetMode()
@@ -1641 +1642 @@
                      '/~Set/Edit ~PROFILE.ERX/~Edit MODECFG.E/'CANCEL__MSG,           -- buttons
                      0, 0,  --5, 5,                       -- top, left,
-                     Min( words(CodingStyles), 15), 100,  -- height, width
+                     Min( words( CodingStyles), 15), 100,  -- height, width
                      GethWndC( APP_HANDLE) || atoi( DefaultItem) ||
                      atoi( DefaultButton) || atoi( HelpId) ||
@@ -1649 +1650 @@
    -- Check result
    Button = asc( leftstr( Result, 1))
-   EOS = pos( \0, Result, 2)        -- CHR(0) signifies End Of String
+   EOS = pos( \0, Result, 2)        -- CHR( 0) signifies End Of String
 
    NewCodingStyle = substr( Result, 2, EOS - 2)
@@ -1729 +1730 @@
          .col = 1
          fDeleted = 0
-         Line = strip( translate( textline(l), ' ', \9))
+         Line = strip( translate( textline( l), ' ', \9))
 
          -- Ignore comments in Line or when already in comment
@@ -1765 +1766 @@
             -- (Surrounding quotes or doublequotes are omitted here just for simpleness.)
             Search = '(MODEEXEC|MODEEXECUTE):w'Mode':wSETCODINGSTYLE'
-            p = pos( Search, upcase(Line), 1, 'x')  -- using the egrep option for pos
+            p = pos( Search, upcase( Line), 1, 'x')  -- using the egrep option for pos
             if p > 0 then
                deleteline l