Merged in changes from CVS trunk.

[gnu-emacs] / lisp / vms-patch.el

diff --git a/lisp/vms-patch.el b/lisp/vms-patch.el
index 18cc9f823c5c1f26bcddf80fc3d64888e8068e10..48174f4123776c4e3573a19b79dcaa91b7872439 100644 (file)
--- a/lisp/vms-patch.el
+++ b/lisp/vms-patch.el
@@ -1,4 +1,4 @@
-;;; 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.
 
@@ -18,11 +18,16 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; 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
@@ -142,7 +147,7 @@ spawned Emacs and doing things like \"emacs -l myfile.el -f doit\""
                        (< 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)))
@@ -165,7 +170,7 @@ spawned Emacs and doing things like \"emacs -l myfile.el -f doit\""
       "/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
@@ -188,4 +193,5 @@ following bindings are established.
 All other Emacs commands are still available."
   t)
 
+;;; arch-tag: c178494e-2c37-4d02-99b7-e47e615656cf
 ;;; vms-patch.el ends here