mirror of https://github.com/rfivet/uemacs.git
157 lines
2.9 KiB
Plaintext
157 lines
2.9 KiB
Plaintext
; .emacsrc -- Startup file for µEMACS 4.2
|
|
;
|
|
; This file is executed every time the editor is entered.
|
|
|
|
set $discmd FALSE
|
|
!if ¬ &seq $progname µEMACS
|
|
; uemacs/PK and MicroEMACS
|
|
set $discmd TRUE
|
|
!return
|
|
!endif
|
|
|
|
set $tab 4
|
|
# set $viewtab TRUE # uncomment this line if you need to visualize tabs
|
|
set $fillcol 76
|
|
|
|
|
|
## Help facility
|
|
!if &seq $TERM cygwin
|
|
set $scroll FALSE
|
|
set %F1 FNP #currently not readable
|
|
set %Home FN1
|
|
set %End FN4
|
|
!else
|
|
set %F1 FNP
|
|
set %Home FNH
|
|
set %End FNF
|
|
!endif
|
|
|
|
!store 40
|
|
set $discmd FALSE
|
|
!if ¬ &seq $cbufname "emacs.hlp"
|
|
write-message "(Loading Help)"
|
|
!force help
|
|
!if ¬ &seq $cbufname "emacs.hlp"
|
|
write-message "(Failed to load Help)"
|
|
!else
|
|
!force 8 resize-window
|
|
bind-to-key execute-macro-39 FN5
|
|
bind-to-key execute-macro-38 FN6
|
|
bind-to-key execute-macro-37 %Home
|
|
bind-to-key execute-macro-36 %End
|
|
beginning-of-line
|
|
2 forward-character
|
|
1 redraw-display
|
|
set %hlpupdn "[PgUp] / [PgDn]"
|
|
set %hlphelp "[F1]"
|
|
run helponhelp
|
|
!endif
|
|
!else
|
|
set %hlpcode &lef $line 2
|
|
!if &seq %hlpcode ".."
|
|
set %hlptopic &mid $line 4 99
|
|
end-of-line
|
|
!force search-forward %hlptopic
|
|
beginning-of-line
|
|
2 forward-character
|
|
1 redraw-display
|
|
run helponhelp
|
|
!else
|
|
!force search-reverse "=>"
|
|
bind-to-key previous-page FN5
|
|
bind-to-key next-page FN6
|
|
bind-to-key beginning-of-file %Home
|
|
bind-to-key end-of-file %End
|
|
!force delete-window
|
|
clear-message-line
|
|
!endif
|
|
!endif
|
|
set $discmd TRUE
|
|
!endm
|
|
|
|
bind-to-key execute-macro-40 M-?
|
|
bind-to-key execute-macro-40 %F1
|
|
bind-to-key execute-macro-40 M-O
|
|
bind-to-key beginning-of-file %Home
|
|
bind-to-key end-of-file %End
|
|
|
|
|
|
## Help on Help
|
|
!store helponhelp
|
|
!if &seq &rig $line 5 "INDEX"
|
|
write-message &cat "Select topic from list and press " %hlphelp
|
|
!else
|
|
write-message &cat "Use " &cat %hlpupdn &cat " to scan help file -- " &cat %hlphelp " to toggle help window"
|
|
!endif
|
|
!endm
|
|
|
|
|
|
## Previous help page
|
|
!store 39
|
|
!if &seq $cbufname "emacs.hlp"
|
|
beginning-of-line
|
|
!force search-reverse "=>"
|
|
2 forward-character
|
|
1 redraw-display
|
|
run helponhelp
|
|
!else
|
|
previous-page
|
|
!endif
|
|
!endm
|
|
|
|
|
|
## Next help page
|
|
!store 38
|
|
!if &seq $cbufname "emacs.hlp"
|
|
beginning-of-line
|
|
2 forward-character
|
|
!force search-forward "=>"
|
|
1 redraw-display
|
|
run helponhelp
|
|
!else
|
|
next-page
|
|
!endif
|
|
!endm
|
|
|
|
!store 37
|
|
beginning-of-file
|
|
!if &seq $cbufname "emacs.hlp"
|
|
execute-macro-39
|
|
!endif
|
|
!endm
|
|
|
|
!store 36
|
|
end-of-file
|
|
!if &seq $cbufname "emacs.hlp"
|
|
execute-macro-39
|
|
!endif
|
|
!endm
|
|
|
|
|
|
## Set up auto CMODE or WRAP
|
|
!store 35
|
|
set %rctmp &right $cfname 4
|
|
!if &or &seq .txt %rctmp &seq .doc %rctmp
|
|
add-mode wrap
|
|
!return
|
|
!endif
|
|
set %rctmp &right %rctmp 2
|
|
!if &or &seq .c %rctmp &seq .h %rctmp
|
|
add-mode cmode
|
|
!return
|
|
!endif
|
|
!endm
|
|
|
|
bind-to-key execute-macro-35 M-FNR
|
|
|
|
|
|
## Make cut-paste easier in window systems
|
|
bind-to-key newline ^J
|
|
|
|
|
|
!if &or &sin $LANG "UTF-8" &sin $LANG "utf8"
|
|
add-global-mode "utf-8"
|
|
!endif
|
|
|
|
set $discmd TRUE
|