From f68b0fe9ff7b09c0f073ac82c44b99fa3de3b105 Mon Sep 17 00:00:00 2001
From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Fri, 10 Dec 2004 16:48:52 +0000
Subject: [PATCH] (auto-mode-alist): Map .com to DCL mode.

---
 lisp/ChangeLog | 6 +++++-
 lisp/files.el  | 1 +
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ef5e373c62c..63365a866d6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-12-10  Thien-Thi Nguyen  <ttn@gnu.org>
+
+	* files.el (auto-mode-alist): Map .com to DCL mode.
+
 2002-03-16  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* Version 21.2 released.
@@ -19,7 +23,7 @@
 
 2002-03-07  Gerd Moellmann  <gerd@gnu.org>
 
-	* progmodes/ebrowse.el (ebrowse-view/find-file-and-search-pattern): 
+	* progmodes/ebrowse.el (ebrowse-view/find-file-and-search-pattern):
 	Use the other-window instead of the other-frame functions when
 	the window is dedicated.
 
diff --git a/lisp/files.el b/lisp/files.el
index e9ced2fc033..5eb4b7907a6 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1467,6 +1467,7 @@ in that case, this function acts as if `enable-local-variables' were t."
      ("BROWSE\\'" . ebrowse-tree-mode)
      ("\\.ebrowse\\'" . ebrowse-tree-mode)
      ("#\\*mail\\*" . mail-mode)
+     ("\\.com\\'" . dcl-mode)
      ;; Get rid of any trailing .n.m and try again.
      ;; This is for files saved by cvs-merge that look like .#<file>.<rev>
      ;; or .#<file>.<rev>-<rev> or VC's <file>.~<rev>~.
-- 
2.39.5