Mercurial > hg > xemacs-beta
comparison vms/emacs.com @ 0:376386a54a3c r19-14
Import from CVS: tag r19-14
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:45:50 +0200 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:376386a54a3c |
|---|---|
| 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 |