(vc-cvs-checkout): Fix bug that broke C-x v ~-style checkouts.

[bpt/emacs.git] / lisp / vms-patch.el

diff --git a/lisp/vms-patch.el b/lisp/vms-patch.el
index 41dcd99..f0669a9 100644 (file)
--- a/lisp/vms-patch.el
+++ b/lisp/vms-patch.el
@@ -24,6 +24,8 @@
 
 ;;; 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
@@ -166,7 +168,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