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:
parent
71548b9ec6
commit
28551a3e81
53
ue.rc
53
ue.rc
@ -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 ¬ &seq $cbufname "emacs.hlp"
|
!if ¬ &seq $cbufname "emacs.hlp"
|
||||||
write-message "(Loading Help)"
|
write-message "(Loading Help)"
|
||||||
!force help
|
!force help
|
||||||
!force 8 resize-window
|
!if ¬ &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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user