--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/vms/emacs.com	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,27 @@
+$ ! VMS command file to make the definitions needed to run the installed Emacs.
+$ ! You must execute this in each session in order to run Emacs
+$ !  or else it must be executed by the system at each boot.
+$
+$ ! If you execute at boot time, specify "/SYSTEM" as the first parameter.
+$
+$ ! This file must reside in the top directory of the Emacs subtree
+$ ! when it is executed, because it uses its own directory
+$ ! to initialize a logical name.
+$
+$ fdev=f$parse(f$environment("procedure"),,,"DEVICE")-":"
+$ fdir=f$parse(f$environment("procedure"),,,"DIRECTORY")-"["
+$ ftrn=f$trnlnm(fdev)
+$ if ftrn .eqs. "" then ftrn = fdev + ":[]"
+$ ndef= ftrn-"]"+fdir-".000000"
+$ base=ndef-"]"+".]"
+$
+$ define 'p1' /translation=concealed emacs_library 'base'
+$
+$ !
+$ ! The following logical name is needed for M-x shell to work.
+$ ! process.c\create_process keys on the string *dcl*.
+$ !
+$ define 'p1' eshell "*dcl*"
+$
+$ runemacs :== $emacs_library:[000000]emacs -map emacs_library:[000000]emacs.dump
+$ emacs :== @emacs_library:[000000]kepteditor emacs