-;;; vms-patch.el --- override parts of files.el for VMS.
+;;; vms-patch.el --- override parts of files.el for VMS
;; Copyright (C) 1986, 1992 Free Software Foundation, Inc.
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
+(setq auto-mode-alist (cons '(("\\.com\\'" . dcl-mode)) auto-mode-alist))
+
;;; Functions that need redefinition
;;; VMS file names are upper case, but buffer names are more
(< 32 (setq this-char (aref args end)))
(> 127 this-char))
(setq end (1+ end)))
- (setq command-line-args (append
+ (setq command-line-args (append
command-line-args
(list (substring args beg end))))
(setq beg (1+ end)))
"/SIZE/DATE/OWNER/WIDTH=(FILENAME=32,SIZE=5)")
(setq print-region-function
- '(lambda (start end command ign1 ign2 ign3 &rest switches)
+ (lambda (start end command ign1 ign2 ign3 &rest switches)
(write-region start end "sys$login:delete-me.txt")
(send-command-to-subprocess
1
All other Emacs commands are still available."
t)
+;;; arch-tag: c178494e-2c37-4d02-99b7-e47e615656cf
;;; vms-patch.el ends here