1
0
mirror of https://github.com/rfivet/uemacs.git synced 2024-12-17 23:06:25 -05:00

Review help menu macroes in startup file.

This commit is contained in:
Renaud 2019-06-25 19:57:11 +08:00
parent 71548b9ec6
commit 28551a3e81

53
ue.rc
View File

@ -2,7 +2,7 @@
# #
# Startup file for µEMACS 4.2 # Startup file for µEMACS 4.2
# This file is executed every time the editor is entered. # This file is executed every time the editor is entered.
# If you want to keep compatibility with em (uEmacs/PK) or me (Micro-EMACS) # If you want to keep compatibility with em (uEmacs/PK) or me (MicroEMACS)
# cp emacs.rc ~/.emacsrc # cp emacs.rc ~/.emacsrc
# cp ue.rc ~/.uerc # cp ue.rc ~/.uerc
# otherwise # otherwise
@ -18,16 +18,21 @@ set $tab 4
!if &not &seq $cbufname "emacs.hlp" !if &not &seq $cbufname "emacs.hlp"
write-message "(Loading Help)" write-message "(Loading Help)"
!force help !force help
!force 8 resize-window !if &not &seq $cbufname "emacs.hlp"
bind-to-key execute-macro-39 FN5 write-message "(Failed to load Help)"
bind-to-key execute-macro-38 FN6 !else
beginning-of-line !force 8 resize-window
2 forward-character bind-to-key execute-macro-39 FN5
1 redraw-display bind-to-key execute-macro-38 FN6
save-window bind-to-key execute-macro-37 FNH
set %hlpupdn "<Prev Scrn> / <Next Scrn>" bind-to-key execute-macro-36 FNF
set %hlphelp "<Help>" beginning-of-line
run helponhelp 2 forward-character
1 redraw-display
set %hlpupdn "[PgUp] / [PgDn]"
set %hlphelp "[F1]"
run helponhelp
!endif
!else !else
set %hlpcode &lef $line 2 set %hlpcode &lef $line 2
!if &seq %hlpcode ".." !if &seq %hlpcode ".."
@ -39,9 +44,11 @@ set $tab 4
1 redraw-display 1 redraw-display
run helponhelp run helponhelp
!else !else
!force search-reverse "=>"
bind-to-key previous-page FN5 bind-to-key previous-page FN5
bind-to-key next-page FN6 bind-to-key next-page FN6
!force restore-window bind-to-key beginning-of-file FNH
bind-to-key end-of-file FNF
!force delete-window !force delete-window
clear-message-line clear-message-line
!endif !endif
@ -50,7 +57,9 @@ set $tab 4
!endm !endm
bind-to-key execute-macro-40 M-? bind-to-key execute-macro-40 M-?
bind-to-key execute-macro-40 FNh bind-to-key execute-macro-40 FNP
bind-to-key beginning-of-file FNH
bind-to-key end-of-file FNF
; Help on Help ; Help on Help
@ -90,9 +99,23 @@ store-procedure helponhelp
!endif !endif
!endm !endm
37 store-macro
beginning-of-file
!if &seq $cbufname "emacs.hlp"
execute-macro-39
!endif
!endm
36 store-macro
end-of-file
!if &seq $cbufname "emacs.hlp"
execute-macro-39
!endif
!endm
; Set up auto CMODE ; Set up auto CMODE
37 store-macro 35 store-macro
!if &seq &mid $cfname 1 7 "/tmp/Re" !if &seq &mid $cfname 1 7 "/tmp/Re"
add-mode "wrap" add-mode "wrap"
!return !return
@ -127,7 +150,7 @@ store-procedure helponhelp
!endm !endm
bind-to-key execute-macro-37 M-FNR bind-to-key execute-macro-35 M-FNR
; Make cut-paste easier in window systems ; Make cut-paste easier in window systems