|
0
|
1 $ ! VMS command file to make the definitions needed to run the installed Emacs.
|
|
|
2 $ ! You must execute this in each session in order to run Emacs
|
|
|
3 $ ! or else it must be executed by the system at each boot.
|
|
|
4 $
|
|
|
5 $ ! If you execute at boot time, specify "/SYSTEM" as the first parameter.
|
|
|
6 $
|
|
|
7 $ ! This file must reside in the top directory of the Emacs subtree
|
|
|
8 $ ! when it is executed, because it uses its own directory
|
|
|
9 $ ! to initialize a logical name.
|
|
|
10 $
|
|
|
11 $ fdev=f$parse(f$environment("procedure"),,,"DEVICE")-":"
|
|
|
12 $ fdir=f$parse(f$environment("procedure"),,,"DIRECTORY")-"["
|
|
|
13 $ ftrn=f$trnlnm(fdev)
|
|
|
14 $ if ftrn .eqs. "" then ftrn = fdev + ":[]"
|
|
|
15 $ ndef= ftrn-"]"+fdir-".000000"
|
|
|
16 $ base=ndef-"]"+".]"
|
|
|
17 $
|
|
|
18 $ define 'p1' /translation=concealed emacs_library 'base'
|
|
|
19 $
|
|
|
20 $ !
|
|
|
21 $ ! The following logical name is needed for M-x shell to work.
|
|
|
22 $ ! process.c\create_process keys on the string *dcl*.
|
|
|
23 $ !
|
|
|
24 $ define 'p1' eshell "*dcl*"
|
|
|
25 $
|
|
|
26 $ runemacs :== $emacs_library:[000000]emacs -map emacs_library:[000000]emacs.dump
|
|
|
27 $ emacs :== @emacs_library:[000000]kepteditor emacs
|
