mirror of https://github.com/rfivet/uemacs.git
Clean up startup and help files.
This commit is contained in:
parent
0c584e5490
commit
8726e5b8aa
12
emacs.hlp
12
emacs.hlp
|
|
@ -19,7 +19,7 @@
|
||||||
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
||||||
=> THE VERY BASICS
|
=> THE VERY BASICS
|
||||||
Notations: ^X means <Ctrl> and X. The <Meta> key is <Esc> on most systems.
|
Notations: ^X means <Ctrl> and X. The <Meta> key is <Esc> on most systems.
|
||||||
Exiting: ^G aborts almost any operation. ^X ^C will get you out of uEmacs.
|
Exiting: ^G aborts almost any operation. ^X ^C will get you out of µEMACS.
|
||||||
|
|
||||||
A BUFFER is a named area containing a FILE being edited. Many buffers may
|
A BUFFER is a named area containing a FILE being edited. Many buffers may
|
||||||
be active at once. Many WINDOWS may be active at once on the screen. All
|
be active at once. Many WINDOWS may be active at once on the screen. All
|
||||||
|
|
@ -37,7 +37,7 @@ Beginning of file ..... Meta < End of file ........... Meta >
|
||||||
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
||||||
=> FILE COMMANDS
|
=> FILE COMMANDS
|
||||||
Find file ............. ^X ^F Quick exit ............ Meta Z
|
Find file ............. ^X ^F Quick exit ............ Meta Z
|
||||||
View file ............. ^X ^V Exit emacs ............ ^X ^C
|
View file ............. ^X ^V Exit µEMACS ........... ^X ^C
|
||||||
Insert file ........... ^X ^I
|
Insert file ........... ^X ^I
|
||||||
Change file name ...... ^X N Filter buffer ......... ^X #
|
Change file name ...... ^X N Filter buffer ......... ^X #
|
||||||
Save file ............. ^X ^D
|
Save file ............. ^X ^D
|
||||||
|
|
@ -118,12 +118,12 @@ Query replace string .. Meta ^R :: Yes/no Y/N, replace rest !, cancel ^G.
|
||||||
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
||||||
=> ACCESSING THE OPERATING SYSTEM
|
=> ACCESSING THE OPERATING SYSTEM
|
||||||
Quick exit ............ Meta Z :: Write out all changed buffers and exit.
|
Quick exit ............ Meta Z :: Write out all changed buffers and exit.
|
||||||
Exit emacs ............ ^X ^C :: Exit without automatic save.
|
Exit µEMACS ........... ^X ^C :: Exit without automatic save.
|
||||||
I shell ............... ^X C :: Start a new command processor.
|
I shell ............... ^X C :: Start a new command processor.
|
||||||
Shell command ......... ^X ! :: Execute one operating system command.
|
Shell command ......... ^X ! :: Execute one operating system command.
|
||||||
Pipe command .......... ^X @ :: Pipe command results to a new buffer. *
|
Pipe command .......... ^X @ :: Pipe command results to a new buffer.
|
||||||
Filter buffer ......... ^X # :: Filter buffer through a program. *
|
Filter buffer ......... ^X # :: Filter buffer through a program.
|
||||||
Execute program ....... ^X $ :: * Not under VMS.
|
Execute program ....... ^X $ ::
|
||||||
-------------------------------------------------------------------------------
|
-------------------------------------------------------------------------------
|
||||||
=> MACRO COMMANDS
|
=> MACRO COMMANDS
|
||||||
Begin macro ........... ^X (
|
Begin macro ........... ^X (
|
||||||
|
|
|
||||||
310
emacs.rc
310
emacs.rc
|
|
@ -1,113 +1,51 @@
|
||||||
; EMACS.RC / .emacsrc
|
; .emacsrc -- Startup file for µEMACS 4.2
|
||||||
;
|
;
|
||||||
; Startup file for MicroEMACS 3.9 and uEmacs/PK 4.0
|
|
||||||
; This file is executed every time the editor is entered.
|
; This file is executed every time the editor is entered.
|
||||||
;
|
|
||||||
; Modified by Petri Kutvonen, last edited September 1991.
|
|
||||||
|
|
||||||
set $discmd "FALSE"
|
set $discmd FALSE
|
||||||
|
!if ¬ &seq $progname µEMACS
|
||||||
|
; uemacs/PK and MicroEMACS
|
||||||
|
set $discmd TRUE
|
||||||
|
!return
|
||||||
|
!endif
|
||||||
|
|
||||||
!if &seq $progname "µEMACS"
|
set $tab 4
|
||||||
!force execute-file &cat $HOME "/.uerc"
|
# 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
|
!else
|
||||||
|
set %F1 FNP
|
||||||
; First, try to resolve if we are on a PC ... yes, this is a kludge
|
set %Home FNH
|
||||||
|
set %End FNF
|
||||||
!if &seq $sres "NORMAL"
|
|
||||||
set %system "OTHER"
|
|
||||||
!else
|
|
||||||
set %system "PC"
|
|
||||||
!endif
|
!endif
|
||||||
|
|
||||||
!if &seq %system "PC"
|
!store 40
|
||||||
|
set $discmd FALSE
|
||||||
; PC specific initialization
|
|
||||||
|
|
||||||
write-message "(Setting up)"
|
|
||||||
|
|
||||||
; Comment out or change this line if you want more than 25 lines,
|
|
||||||
; other possible $sres values include EGA and VGA
|
|
||||||
|
|
||||||
set $sres "CGA"
|
|
||||||
|
|
||||||
; Uncomment next line if your old screen "snows"
|
|
||||||
|
|
||||||
;set $flicker "TRUE"
|
|
||||||
|
|
||||||
; If your screen "snows" you'll not like scrolling
|
|
||||||
|
|
||||||
!if &seq $flicker "TRUE"
|
|
||||||
set $scroll "FALSE"
|
|
||||||
!endif
|
|
||||||
|
|
||||||
; Function keys (unshifted)
|
|
||||||
; f1 f2 f3 f4 f5 f6 f7 f8 f9 f10
|
|
||||||
; FN; FN< FN= FN> FN? FN@ FNA FNB FNC FND
|
|
||||||
|
|
||||||
bind-to-key help FN;
|
|
||||||
bind-to-key exit-emacs FND
|
|
||||||
|
|
||||||
; Function keys (shifted)
|
|
||||||
; F1 F2 F3 F4 F5 F6 F7 F8 F9 F10
|
|
||||||
; FNT FNU FNV FNW FNX FNY FNZ FN[ FN\ FN]
|
|
||||||
|
|
||||||
; Other special keys (unshifted)
|
|
||||||
; Home End Ins Del PgUp PgDn
|
|
||||||
; FNG FNO FNR FNS FNI FNQ
|
|
||||||
|
|
||||||
; Some common Alt-keys
|
|
||||||
; Alt-X Alt-Z Alt-C Alt-F Alt-O
|
|
||||||
; FN- FN, FN. FN! FN^X
|
|
||||||
|
|
||||||
bind-to-key exit-emacs FN-
|
|
||||||
bind-to-key quick-exit FN,
|
|
||||||
bind-to-key i-shell FN.
|
|
||||||
bind-to-key find-file FN!
|
|
||||||
bind-to-key view-file FN/
|
|
||||||
bind-to-key next-window FN^X
|
|
||||||
|
|
||||||
; Set screen colors
|
|
||||||
|
|
||||||
; You can define a DOS environment variable EMACS_BW (any value)
|
|
||||||
; if you don't like colors, e.g. if you have a LCD screen
|
|
||||||
|
|
||||||
!if &seq &env "EMACS_BW" ""
|
|
||||||
add-global-mode "blue"
|
|
||||||
add-global-mode "HIGH"
|
|
||||||
!endif
|
|
||||||
|
|
||||||
!endif
|
|
||||||
|
|
||||||
; Help facility
|
|
||||||
|
|
||||||
40 store-macro
|
|
||||||
set $discmd "FALSE"
|
|
||||||
!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"
|
||||||
!if &seq %system "PC"
|
write-message "(Failed to load Help)"
|
||||||
!if &seq &env "EMACS_BW" ""
|
|
||||||
add-mode "red"
|
|
||||||
!endif
|
|
||||||
bind-to-key execute-macro-38 FNI
|
|
||||||
bind-to-key execute-macro-37 FNQ
|
|
||||||
!else
|
!else
|
||||||
bind-to-key execute-macro-38 FN5
|
!force 8 resize-window
|
||||||
bind-to-key execute-macro-37 FN6
|
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
|
!endif
|
||||||
beginning-of-line
|
|
||||||
2 forward-character
|
|
||||||
1 redraw-display
|
|
||||||
save-window
|
|
||||||
!if &seq %system "PC"
|
|
||||||
set %hlpupdn "<PgUp> / <PgDn>"
|
|
||||||
set %hlphelp "<F1>"
|
|
||||||
!else
|
|
||||||
set %hlpupdn "<Prev Scrn> / <Next Scrn>"
|
|
||||||
set %hlphelp "<Help>"
|
|
||||||
!endif
|
|
||||||
execute-macro-39
|
|
||||||
!else
|
!else
|
||||||
set %hlpcode &lef $line 2
|
set %hlpcode &lef $line 2
|
||||||
!if &seq %hlpcode ".."
|
!if &seq %hlpcode ".."
|
||||||
|
|
@ -117,33 +55,29 @@ bind-to-key next-window FN^X
|
||||||
beginning-of-line
|
beginning-of-line
|
||||||
2 forward-character
|
2 forward-character
|
||||||
1 redraw-display
|
1 redraw-display
|
||||||
execute-macro-39
|
run helponhelp
|
||||||
!else
|
!else
|
||||||
!if &seq %system "PC"
|
!force search-reverse "=>"
|
||||||
bind-to-key previous-page FNI
|
bind-to-key previous-page FN5
|
||||||
bind-to-key next-page FNQ
|
bind-to-key next-page FN6
|
||||||
!else
|
bind-to-key beginning-of-file %Home
|
||||||
bind-to-key previous-page FN5
|
bind-to-key end-of-file %End
|
||||||
bind-to-key next-page FN6
|
|
||||||
!endif
|
|
||||||
!force restore-window
|
|
||||||
!force delete-window
|
!force delete-window
|
||||||
clear-message-line
|
clear-message-line
|
||||||
!endif
|
!endif
|
||||||
!endif
|
!endif
|
||||||
set $discmd "TRUE"
|
set $discmd TRUE
|
||||||
!endm
|
!endm
|
||||||
|
|
||||||
bind-to-key execute-macro-40 M-?
|
bind-to-key execute-macro-40 M-?
|
||||||
!if &seq %system "PC"
|
bind-to-key execute-macro-40 %F1
|
||||||
bind-to-key execute-macro-40 FN;
|
bind-to-key execute-macro-40 M-O
|
||||||
!else
|
bind-to-key beginning-of-file %Home
|
||||||
bind-to-key execute-macro-40 FNh
|
bind-to-key end-of-file %End
|
||||||
!endif
|
|
||||||
|
|
||||||
; Help on Help
|
|
||||||
|
|
||||||
39 store-macro
|
## Help on Help
|
||||||
|
!store helponhelp
|
||||||
!if &seq &rig $line 5 "INDEX"
|
!if &seq &rig $line 5 "INDEX"
|
||||||
write-message &cat "Select topic from list and press " %hlphelp
|
write-message &cat "Select topic from list and press " %hlphelp
|
||||||
!else
|
!else
|
||||||
|
|
@ -151,150 +85,72 @@ bind-to-key execute-macro-40 M-?
|
||||||
!endif
|
!endif
|
||||||
!endm
|
!endm
|
||||||
|
|
||||||
; Previous help page
|
|
||||||
|
|
||||||
38 store-macro
|
## Previous help page
|
||||||
|
!store 39
|
||||||
!if &seq $cbufname "emacs.hlp"
|
!if &seq $cbufname "emacs.hlp"
|
||||||
beginning-of-line
|
beginning-of-line
|
||||||
!force search-reverse "=>"
|
!force search-reverse "=>"
|
||||||
2 forward-character
|
2 forward-character
|
||||||
1 redraw-display
|
1 redraw-display
|
||||||
execute-macro-39
|
run helponhelp
|
||||||
!else
|
!else
|
||||||
previous-page
|
previous-page
|
||||||
!endif
|
!endif
|
||||||
!endm
|
!endm
|
||||||
|
|
||||||
; Next help page
|
|
||||||
|
|
||||||
37 store-macro
|
## Next help page
|
||||||
|
!store 38
|
||||||
!if &seq $cbufname "emacs.hlp"
|
!if &seq $cbufname "emacs.hlp"
|
||||||
beginning-of-line
|
beginning-of-line
|
||||||
2 forward-character
|
2 forward-character
|
||||||
!force search-forward "=>"
|
!force search-forward "=>"
|
||||||
1 redraw-display
|
1 redraw-display
|
||||||
execute-macro-39
|
run helponhelp
|
||||||
!else
|
!else
|
||||||
next-page
|
next-page
|
||||||
!endif
|
!endif
|
||||||
!endm
|
!endm
|
||||||
|
|
||||||
; Set up auto CMODE
|
!store 37
|
||||||
|
beginning-of-file
|
||||||
|
!if &seq $cbufname "emacs.hlp"
|
||||||
|
execute-macro-39
|
||||||
|
!endif
|
||||||
|
!endm
|
||||||
|
|
||||||
36 store-macro
|
!store 36
|
||||||
!if &seq &mid $cfname 1 7 "/tmp/Re"
|
end-of-file
|
||||||
add-mode "wrap"
|
!if &seq $cbufname "emacs.hlp"
|
||||||
!return
|
execute-macro-39
|
||||||
!endif
|
|
||||||
!if &gre &sin $cfname "/.ed" 0
|
|
||||||
add-mode "wrap"
|
|
||||||
!return
|
|
||||||
!endif
|
|
||||||
!if &gre &sin $cfname "/.let" 0
|
|
||||||
add-mode "wrap"
|
|
||||||
!return
|
|
||||||
!endif
|
|
||||||
!if &gre &sin $cfname "/.art" 0
|
|
||||||
add-mode "wrap"
|
|
||||||
!return
|
|
||||||
!endif
|
|
||||||
!if &gre &sin $cfname "/nn." 0
|
|
||||||
add-mode "wrap"
|
|
||||||
!return
|
|
||||||
!endif
|
|
||||||
set %rctmp &sin $cfname "."
|
|
||||||
!if &equ %rctmp 0
|
|
||||||
!return
|
|
||||||
!endif
|
|
||||||
set %rctmp &mid $cfname &add %rctmp 1 5
|
|
||||||
!if &or &seq %rctmp "c" &seq %rctmp "h"
|
|
||||||
add-mode "cmode"
|
|
||||||
!endif
|
|
||||||
!if &or &seq %rctmp "txt" &or &seq %rctmp "doc" &or &seq %rctmp "tmp" &seq %rctmp "tex"
|
|
||||||
add-mode "wrap"
|
|
||||||
!endif
|
!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
|
!endm
|
||||||
|
|
||||||
bind-to-key execute-macro-36 M-FNR
|
bind-to-key execute-macro-35 M-FNR
|
||||||
|
|
||||||
; Setup for ASCII {|}[\] to ISO Latin-1 translation
|
|
||||||
|
|
||||||
21 store-macro
|
|
||||||
insert-string "ä"
|
|
||||||
!endm
|
|
||||||
22 store-macro
|
|
||||||
insert-string "ö"
|
|
||||||
!endm
|
|
||||||
23 store-macro
|
|
||||||
insert-string "å"
|
|
||||||
!endm
|
|
||||||
24 store-macro
|
|
||||||
insert-string "Ä"
|
|
||||||
!endm
|
|
||||||
25 store-macro
|
|
||||||
insert-string "Ö"
|
|
||||||
!endm
|
|
||||||
26 store-macro
|
|
||||||
insert-string "Å"
|
|
||||||
!endm
|
|
||||||
|
|
||||||
27 store-macro
|
|
||||||
bind-to-key execute-macro-21 {
|
|
||||||
bind-to-key execute-macro-22 |
|
|
||||||
bind-to-key execute-macro-23 }
|
|
||||||
bind-to-key execute-macro-24 [
|
|
||||||
bind-to-key execute-macro-25 \
|
|
||||||
bind-to-key execute-macro-26 ]
|
|
||||||
write-message "ISO Latin-1 äöåÄÖÅ"
|
|
||||||
!endm
|
|
||||||
|
|
||||||
28 store-macro
|
|
||||||
unbind-key {
|
|
||||||
unbind-key |
|
|
||||||
unbind-key }
|
|
||||||
unbind-key [
|
|
||||||
unbind-key \
|
|
||||||
unbind-key ]
|
|
||||||
write-message "ASCII {|}[\]"
|
|
||||||
!endm
|
|
||||||
|
|
||||||
bind-to-key execute-macro-27 ^X[
|
|
||||||
bind-to-key execute-macro-28 ^X]
|
|
||||||
|
|
||||||
; Make cut-paste easier in window systems
|
|
||||||
|
|
||||||
|
## Make cut-paste easier in window systems
|
||||||
bind-to-key newline ^J
|
bind-to-key newline ^J
|
||||||
|
|
||||||
; uEmacs/PK specific initialization
|
|
||||||
|
|
||||||
!if &seq $progname "uEmacs/PK"
|
!if &or &sin $LANG "UTF-8" &sin $LANG "utf8"
|
||||||
|
|
||||||
; Don't scroll on a Sun
|
|
||||||
|
|
||||||
!if &or &seq $TERM "sun" &seq $TERM "sun-cmd"
|
|
||||||
set $scroll "FALSE"
|
|
||||||
!endif
|
|
||||||
|
|
||||||
; Execute local initialization files
|
|
||||||
|
|
||||||
!if &seq %system "PC"
|
|
||||||
!force execute-file "EM.RC"
|
|
||||||
!else
|
|
||||||
!force execute-file &cat $HOME "/.emrc"
|
|
||||||
!force execute-file ".emrc"
|
|
||||||
!endif
|
|
||||||
!endif
|
|
||||||
|
|
||||||
!if &gre &sin $LANG "UTF-8" 0
|
|
||||||
add-global-mode "utf-8"
|
add-global-mode "utf-8"
|
||||||
!endif
|
!endif
|
||||||
|
|
||||||
!if &gre &sin $LANG "utf8" 0
|
set $discmd TRUE
|
||||||
add-global-mode "utf-8"
|
|
||||||
!endif
|
|
||||||
add-global-mode "utf-8"
|
|
||||||
|
|
||||||
!endif
|
|
||||||
|
|
||||||
set $discmd "TRUE"
|
|
||||||
|
|
|
||||||
163
ue.rc
163
ue.rc
|
|
@ -1,163 +0,0 @@
|
||||||
# UE.RC
|
|
||||||
#
|
|
||||||
# Startup file for µEMACS 4.2
|
|
||||||
# This file is executed every time the editor is entered.
|
|
||||||
# If you want to keep compatibility with em (uEmacs/PK) or me (MicroEMACS)
|
|
||||||
# cp emacs.rc ~/.emacsrc
|
|
||||||
# cp ue.rc ~/.uerc
|
|
||||||
# otherwise
|
|
||||||
# cp ue.rc ~/.emacsrc
|
|
||||||
|
|
||||||
set $discmd "FALSE"
|
|
||||||
set $tab 4
|
|
||||||
|
|
||||||
; Help facility
|
|
||||||
|
|
||||||
40 store-macro
|
|
||||||
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 FNH
|
|
||||||
bind-to-key execute-macro-36 FNF
|
|
||||||
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 FNH
|
|
||||||
bind-to-key end-of-file FNF
|
|
||||||
!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 FNP
|
|
||||||
bind-to-key beginning-of-file FNH
|
|
||||||
bind-to-key end-of-file FNF
|
|
||||||
|
|
||||||
; Help on Help
|
|
||||||
|
|
||||||
store-procedure 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
|
|
||||||
|
|
||||||
39 store-macro
|
|
||||||
!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
|
|
||||||
|
|
||||||
38 store-macro
|
|
||||||
!if &seq $cbufname "emacs.hlp"
|
|
||||||
beginning-of-line
|
|
||||||
2 forward-character
|
|
||||||
!force search-forward "=>"
|
|
||||||
1 redraw-display
|
|
||||||
run helponhelp
|
|
||||||
!else
|
|
||||||
next-page
|
|
||||||
!endif
|
|
||||||
!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
|
|
||||||
|
|
||||||
35 store-macro
|
|
||||||
!if &seq &mid $cfname 1 7 "/tmp/Re"
|
|
||||||
add-mode "wrap"
|
|
||||||
!return
|
|
||||||
!endif
|
|
||||||
!if &gre &sin $cfname "/.ed" 0
|
|
||||||
add-mode "wrap"
|
|
||||||
!return
|
|
||||||
!endif
|
|
||||||
!if &gre &sin $cfname "/.let" 0
|
|
||||||
add-mode "wrap"
|
|
||||||
!return
|
|
||||||
!endif
|
|
||||||
!if &gre &sin $cfname "/.art" 0
|
|
||||||
add-mode "wrap"
|
|
||||||
!return
|
|
||||||
!endif
|
|
||||||
!if &gre &sin $cfname "/nn." 0
|
|
||||||
add-mode "wrap"
|
|
||||||
!return
|
|
||||||
!endif
|
|
||||||
set %rctmp &sin $cfname "."
|
|
||||||
!if &equ %rctmp 0
|
|
||||||
!return
|
|
||||||
!endif
|
|
||||||
set %rctmp &mid $cfname &add %rctmp 1 5
|
|
||||||
!if &or &seq %rctmp "c" &seq %rctmp "h"
|
|
||||||
add-mode "cmode"
|
|
||||||
!endif
|
|
||||||
!if &or &seq %rctmp "txt" &or &seq %rctmp "doc" &or &seq %rctmp "tmp" &seq %rctmp "tex"
|
|
||||||
add-mode "wrap"
|
|
||||||
!endif
|
|
||||||
|
|
||||||
!endm
|
|
||||||
|
|
||||||
bind-to-key execute-macro-35 M-FNR
|
|
||||||
|
|
||||||
; Make cut-paste easier in window systems
|
|
||||||
|
|
||||||
bind-to-key newline ^J
|
|
||||||
|
|
||||||
!if &or &gre &sin $LANG "UTF-8" 0 &gre &sin $LANG "utf8" 0
|
|
||||||
add-global-mode "utf-8"
|
|
||||||
!endif
|
|
||||||
|
|
||||||
set $discmd "TRUE"
|
|
||||||
Loading…
Reference in New Issue